12 lines
891 B
COBOL
12 lines
891 B
COBOL
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
|