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

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