DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
11
Copybook/OJRWE320.cpy
Normal file
11
Copybook/OJRWE320.cpy
Normal file
@ -0,0 +1,11 @@
|
||||
00001 01 OJRWE320-DATA-AREA. 05/13/02
|
||||
00002 OJRWE320
|
||||
00003 LV001
|
||||
00004 05 WRK-EDIT-STATUS-IND PIC X(01) VALUE 'Y'. OJRWE320
|
||||
00005 88 WRK-EDIT-PASSED-88 VALUE 'Y'. OJRWE320
|
||||
00006 88 WRK-EDIT-FAILED-88 VALUE 'N'. OJRWE320
|
||||
00007 OJRWE320
|
||||
00008 OJRWE320
|
||||
00009 05 WRK-PARM-SUBJECT-YRQ PIC S9(5) COMP-3. OJRWE320
|
||||
00010 OJRWE320
|
||||
00011 05 OJR-PARM-SUBJECT-YRQ PIC X(3). OJRWE320
|
||||
Reference in New Issue
Block a user