DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
9
Copybook/OJRPENNN.cpy
Normal file
9
Copybook/OJRPENNN.cpy
Normal file
@ -0,0 +1,9 @@
|
||||
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
|
||||
Reference in New Issue
Block a user