giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Copybook/OJRWE423.cpy Normal file
View File

@ -0,0 +1,28 @@
00001 01 OJRWE423-DATA-AREA. 08/02/02
00002 OJRWE423
00003 05 OJR-PARM-START-YRQ PIC X(3). LV001
00004 05 OJR-PARM-END-YRQ PIC X(3). OJRWE423
00005 OJRWE423
00006 05 OJR-FIRST-PURSUED-RPT-YRQ PIC S9(05) COMP-3. OJRWE423
00007 05 OJR-LAST-UC30-DEL-MAIL-YRQ PIC S9(05) COMP-3. OJRWE423
00008 05 OJR-PICKUP-YRQ PIC S9(05) COMP-3. OJRWE423
00009 OJRWE423
00010 05 WRK-QTR-5 PIC 9(05). OJRWE423
00011 05 WRK-QTR-3 PIC 9(03). OJRWE423
00012 OJRWE423
00013 05 WRK-PARM-START-YRQ PIC S9(05) COMP-3. OJRWE423
00014 05 WRK-PARM-END-YRQ PIC S9(05) COMP-3. OJRWE423
00015 OJRWE423
00016 05 WRK-PARM-EMP-NO-LIST-IND PIC X(01). OJRWE423
00017 88 WRK-PARM-EMP-NO-LIST-YES-88 VALUE 'Y'. OJRWE423
00018 88 WRK-PARM-EMP-NO-LIST-NO-88 VALUE 'N'. OJRWE423
00019 OJRWE423
00020 05 WRK-PARM-FIELD-LIST-IND PIC X(01). OJRWE423
00021 88 WRK-PARM-FIELD-LIST-YES-88 VALUE 'Y'. OJRWE423
00022 88 WRK-PARM-FIELD-LIST-NO-88 VALUE 'N'. OJRWE423
00023 OJRWE423
00024 OJRWE423
00025 05 WRK-EDIT-STATUS-IND PIC X(01). OJRWE423
00026 88 WRK-EDIT-PASSED-88 VALUE 'Y'. OJRWE423
00027 88 WRK-EDIT-FAILED-88 VALUE 'N'. OJRWE423
00028 OJRWE423