10 lines
729 B
COBOL
10 lines
729 B
COBOL
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
|