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/OJRWE606.cpy Normal file
View File

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