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

74
Copybook/OJRWE123.cpy Normal file
View File

@ -0,0 +1,74 @@
00001 01 OJRWE123-DATA-AREA. 08/02/02
00002 OJRWE123
00003 05 OJR-PERIOD-START-DATE PIC S9(09) COMP-3. LV001
00004 05 OJR-PERIOD-END-DATE PIC S9(09) COMP-3. OJRWE123
00005 OJRWE123
00006 05 OJR-PARM-05-CUTOFF-DATE PIC X(6). OJRWE123
00007 OJRWE123
00008 05 OJR-PARM-06-CUTOFF-DATE PIC X(6). OJRWE123
00009 OJRWE123
00010 05 OJR-PARM-09-CUTOFF-DATE PIC X(6). OJRWE123
00011 OJRWE123
00012 05 OJR-PARM-11-CUTOFF-DATE PIC X(6). OJRWE123
00013 OJRWE123
00014 05 OJR-EDIT-STATUS-IND PIC X(01). OJRWE123
00015 88 OJR-EDIT-PASSED-88 VALUE 'Y'. OJRWE123
00016 88 OJR-EDIT-FAILED-88 VALUE 'N'. OJRWE123
00017 OJRWE123
00018 05 WRK-PARM-05-CUTOFF-DATE PIC S9(09) COMP-3. OJRWE123
00019 OJRWE123
00020 05 WRK-PARM-06-CUTOFF-DATE PIC S9(09) COMP-3. OJRWE123
00021 OJRWE123
00022 05 WRK-PARM-09-CUTOFF-DATE PIC S9(09) COMP-3. OJRWE123
00023 OJRWE123
00024 05 WRK-PARM-11-CUTOFF-DATE PIC S9(09) COMP-3. OJRWE123
00025 OJRWE123
00026 05 DEFAULT-CUTOFF-DAYS PIC S9(04) COMP OJRWE123
00027 VALUE +90. OJRWE123
00028 OJRWE123
00029 05 WRK-EDIT-STATUS-IND PIC X(01). OJRWE123
00030 88 WRK-EDIT-PASSED-88 VALUE 'Y'. OJRWE123
00031 88 WRK-EDIT-FAILED-88 VALUE 'N'. OJRWE123
00032 OJRWE123
00033 05 WRK-DISPLAY PIC 9(9). OJRWE123
00034 05 FILLER REDEFINES WRK-DISPLAY. OJRWE123
00035 10 FILLER PIC X. OJRWE123
00036 10 WRK-DISPLAY-C PIC X(2). OJRWE123
00037 10 WRK-DISPLAY-Y PIC X(2). OJRWE123
00038 10 WRK-DISPLAY-M PIC X(2). OJRWE123
00039 10 WRK-DISPLAY-D PIC X(2). OJRWE123
00040 OJRWE123
00041 05 FILLER REDEFINES WRK-DISPLAY. OJRWE123
00042 10 FILLER PIC X(6). OJRWE123
00043 10 WRK-DISPLAY-3 PIC X(3). OJRWE123
00044 OJRWE123
00045 05 FILLER REDEFINES WRK-DISPLAY. OJRWE123
00046 10 FILLER PIC X(3). OJRWE123
00047 10 WRK-DISPLAY-EMP-1 PIC X(3). OJRWE123
00048 10 WRK-DISPLAY-EMP-2 PIC X(3). OJRWE123
00049 OJRWE123
00050 05 FILLER REDEFINES WRK-DISPLAY. OJRWE123
00051 10 FILLER PIC X(2). OJRWE123
00052 10 WRK-DISPLAY-ASSIGN-1 PIC X(2). OJRWE123
00053 10 WRK-DISPLAY-ASSIGN-2 PIC X(5). OJRWE123
00054 OJRWE123
00055 05 FILLER REDEFINES WRK-DISPLAY. OJRWE123
00056 10 FILLER PIC X(3). OJRWE123
00057 10 WRK-DISPLAY-LEVY-1 PIC X(2). OJRWE123
00058 10 WRK-DISPLAY-LEVY-2 PIC X(4). OJRWE123
00059 OJRWE123
00060 05 FILLER REDEFINES WRK-DISPLAY. OJRWE123
00061 10 FILLER PIC X(3). OJRWE123
00062 10 WRK-DISPLAY-LIEN-1 PIC X(2). OJRWE123
00063 10 WRK-DISPLAY-LIEN-2 PIC X(4). OJRWE123
00064 OJRWE123
00065 05 FILLER REDEFINES WRK-DISPLAY. OJRWE123
00066 10 FILLER PIC X(3). OJRWE123
00067 10 WRK-DISPLAY-REFUND-1 PIC X(2). OJRWE123
00068 10 WRK-DISPLAY-REFUND-2 PIC X(4). OJRWE123
00069 OJRWE123
00070 05 FILLER REDEFINES WRK-DISPLAY. OJRWE123
00071 10 FILLER PIC X(4). OJRWE123
00072 10 WRK-DISPLAY-QTR-C PIC X(2). OJRWE123
00073 10 WRK-DISPLAY-QTR-Y PIC X(2). OJRWE123
00074 10 WRK-DISPLAY-QTR-Q PIC X(1). OJRWE123