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

81
Copybook/OJRWE607.cpy Normal file
View File

@ -0,0 +1,81 @@
00001 01 OJRWE607-DATA-AREA. 08/02/02
00002 OJRWE607
00003 05 WRK-PARM-AREA. LV001
00004 10 WRK-PARM-COMPLETED-START-DATE PIC S9(09) COMP-3. OJRWE607
00005 10 WRK-PARM-COMPLETED-END-DATE PIC S9(09) COMP-3. OJRWE607
00006 10 WRK-PARM-PROCESSED-START-DATE PIC S9(09) COMP-3. OJRWE607
00007 10 WRK-PARM-PROCESSED-END-DATE PIC S9(09) COMP-3. OJRWE607
00008 10 WRK-PARM-ASSIGN-TYPE-CNT PIC S9(04) COMP. OJRWE607
00009 10 WRK-PARM-ASSIGN-TYPE OCCURS 5 TIMES OJRWE607
00010 INDEXED BY WRK-PARM-ASSIGN-IDX OJRWE607
00011 PIC X(02). OJRWE607
00012 10 WRK-PARM-FLD-REP-ID-CNT PIC S9(4) COMP. OJRWE607
00013 10 WRK-PARM-FLD-REP-ID OCCURS 5 TIMES OJRWE607
00014 INDEXED BY WRK-PARM-FLD-REP-IDX OJRWE607
00015 PIC X(02). OJRWE607
00016 OJRWE607
00017 05 OJR-PARM-COMPLETED-START-DATE PIC X(6). OJRWE607
00018 05 OJR-PARM-COMPLETED-END-DATE PIC X(6). OJRWE607
00019 05 OJR-PARM-PROCESSED-START-DATE PIC X(6). OJRWE607
00020 05 OJR-PARM-PROCESSED-END-DATE PIC X(6). OJRWE607
00021 05 OJR-PARM-ASSIGN-TYPE-CNT PIC S9(04) COMP. OJRWE607
00022 05 OJR-PARM-ASSIGN-TYPE OCCURS 5 TIMES OJRWE607
00023 INDEXED BY OJR-PARM-ASSIGN-IDX OJRWE607
00024 PIC X(02). OJRWE607
00025 05 OJR-PARM-FLD-REP-ID OCCURS 5 TIMES OJRWE607
00026 INDEXED BY OJR-PARM-FLD-REP-IDX OJRWE607
00027 PIC X(02). OJRWE607
00028 OJRWE607
00029 05 WRK-EDIT-STATUS-IND PIC X(01). OJRWE607
00030 88 WRK-EDIT-PASSED-88 VALUE 'Y'. OJRWE607
00031 88 WRK-EDIT-FAILED-88 VALUE 'N'. OJRWE607
00032 OJRWE607
00033 05 ALL-NINES-DATE PIC S9(09) COMP-3 OJRWE607
00034 VALUE +999999999. OJRWE607
00035 OJRWE607
00036 SKIP3 OJRWE607
00037 05 WRK-ASSIGN-TYPE-IND PIC X(01). OJRWE607
00038 05 WRK-FLD-REP-ID-IND PIC X(01). OJRWE607
00039 OJRWE607
00040 05 WRK-DISPLAY PIC 9(9). OJRWE607
00041 05 FILLER REDEFINES WRK-DISPLAY. OJRWE607
00042 10 FILLER PIC X. OJRWE607
00043 10 WRK-DISPLAY-C PIC X(2). OJRWE607
00044 10 WRK-DISPLAY-Y PIC X(2). OJRWE607
00045 10 WRK-DISPLAY-M PIC X(2). OJRWE607
00046 10 WRK-DISPLAY-D PIC X(2). OJRWE607
00047 OJRWE607
00048 05 FILLER REDEFINES WRK-DISPLAY. OJRWE607
00049 10 FILLER PIC X(6). OJRWE607
00050 10 WRK-DISPLAY-3 PIC X(3). OJRWE607
00051 OJRWE607
00052 05 FILLER REDEFINES WRK-DISPLAY. OJRWE607
00053 10 FILLER PIC X(3). OJRWE607
00054 10 WRK-DISPLAY-EMP-1 PIC X(3). OJRWE607
00055 10 WRK-DISPLAY-EMP-2 PIC X(3). OJRWE607
00056 OJRWE607
00057 05 FILLER REDEFINES WRK-DISPLAY. OJRWE607
00058 10 FILLER PIC X(2). OJRWE607
00059 10 WRK-DISPLAY-ASSIGN-1 PIC X(2). OJRWE607
00060 10 WRK-DISPLAY-ASSIGN-2 PIC X(5). OJRWE607
00061 OJRWE607
00062 05 FILLER REDEFINES WRK-DISPLAY. OJRWE607
00063 10 FILLER PIC X(3). OJRWE607
00064 10 WRK-DISPLAY-LEVY-1 PIC X(2). OJRWE607
00065 10 WRK-DISPLAY-LEVY-2 PIC X(4). OJRWE607
00066 OJRWE607
00067 05 FILLER REDEFINES WRK-DISPLAY. OJRWE607
00068 10 FILLER PIC X(3). OJRWE607
00069 10 WRK-DISPLAY-LIEN-1 PIC X(2). OJRWE607
00070 10 WRK-DISPLAY-LIEN-2 PIC X(4). OJRWE607
00071 OJRWE607
00072 05 FILLER REDEFINES WRK-DISPLAY. OJRWE607
00073 10 FILLER PIC X(3). OJRWE607
00074 10 WRK-DISPLAY-REFUND-1 PIC X(2). OJRWE607
00075 10 WRK-DISPLAY-REFUND-2 PIC X(4). OJRWE607
00076 OJRWE607
00077 05 FILLER REDEFINES WRK-DISPLAY. OJRWE607
00078 10 FILLER PIC X(4). OJRWE607
00079 10 WRK-DISPLAY-QTR-C PIC X(2). OJRWE607
00080 10 WRK-DISPLAY-QTR-Y PIC X(2). OJRWE607
00081 10 WRK-DISPLAY-QTR-Q PIC X(1). OJRWE607