00001  I1000-EDIT-AND-DEFAULT-PARMS.                                    08/02/02
00002      PERFORM I1100-PROCESS-YYY THRU I1100-EXIT.                   OJRPENNN
00003  I1000-EXIT.                                                         LV001
00004      EXIT.                                                        OJRPENNN
00005                                                                   OJRPENNN
00006  I1100-PROCESS-YYY.                                               OJRPENNN
00007      MOVE +0  TO WRK-YYY.                                         OJRPENNN
00008  I1100-EXIT.                                                      OJRPENNN
00009      EXIT.                                                        OJRPENNN