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

69
Copybook/OJRWE429.cpy Normal file
View File

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