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

87
Copybook/OJRWE609.cpy Normal file
View File

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