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

56
Copybook/OJRIPARM.cpy Normal file
View File

@ -0,0 +1,56 @@
00001 05 WRK-COMPARE-DATE PIC 9(9). 08/02/02
00002 05 FILLER REDEFINES WRK-COMPARE-DATE. OJRIPARM
00003 10 FILLER PIC X. LV001
00004 10 WRK-COMPARE-CC PIC 9(2). OJRIPARM
00005 10 WRK-COMPARE-YY PIC 9(2). OJRIPARM
00006 10 WRK-COMPARE-MO PIC 9(2). OJRIPARM
00007 10 WRK-COMPARE-DA PIC 9(2). OJRIPARM
00008 SKIP3 OJRIPARM
00009 05 WRK-DISPLAY PIC 9(9). OJRIPARM
00010 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
00011 10 FILLER PIC X. OJRIPARM
00012 10 WRK-DISPLAY-C PIC X(2). OJRIPARM
00013 10 WRK-DISPLAY-Y PIC X(2). OJRIPARM
00014 10 WRK-DISPLAY-M PIC X(2). OJRIPARM
00015 10 WRK-DISPLAY-D PIC X(2). OJRIPARM
00016 OJRIPARM
00017 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
00018 10 FILLER PIC X(6). OJRIPARM
00019 10 WRK-DISPLAY-3 PIC X(3). OJRIPARM
00020 OJRIPARM
00021 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
00022 10 FILLER PIC X(3). OJRIPARM
00023 10 WRK-DISPLAY-EMP-1 PIC X(3). OJRIPARM
00024 10 WRK-DISPLAY-EMP-2 PIC X(3). OJRIPARM
00025 OJRIPARM
00026 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
00027 10 FILLER PIC X(2). OJRIPARM
00028 10 WRK-DISPLAY-ASSIGN-1 PIC X(2). OJRIPARM
00029 10 WRK-DISPLAY-ASSIGN-2 PIC X(5). OJRIPARM
00030 OJRIPARM
00031 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
00032 10 FILLER PIC X(3). OJRIPARM
00033 10 WRK-DISPLAY-LEVY-1 PIC X(2). OJRIPARM
00034 10 WRK-DISPLAY-LEVY-2 PIC X(4). OJRIPARM
00035 OJRIPARM
00036 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
00037 10 FILLER PIC X(3). OJRIPARM
00038 10 WRK-DISPLAY-LIEN-1 PIC X(2). OJRIPARM
00039 10 WRK-DISPLAY-LIEN-2 PIC X(4). OJRIPARM
00040 OJRIPARM
00041 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
00042 10 FILLER PIC X(3). OJRIPARM
00043 10 WRK-DISPLAY-REFUND-1 PIC X(2). OJRIPARM
00044 10 WRK-DISPLAY-REFUND-2 PIC X(4). OJRIPARM
00045 OJRIPARM
00046 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
00047 10 FILLER PIC X(4). OJRIPARM
00048 10 WRK-DISPLAY-QTR-C PIC X(2). OJRIPARM
00049 10 WRK-DISPLAY-QTR-Y PIC X(2). OJRIPARM
00050 10 WRK-DISPLAY-QTR-Q PIC X(1). OJRIPARM
00051 OJRIPARM
00052 * MOVE MHDR-CMPL-WEEK-END-DATE TO WRK-DISPLAY. OJRIPARM
00053 * MOVE WRK-DISPLAY-M TO MAP-CMPL-WEEK-END-MO. OJRIPARM
00054 * MOVE WRK-DISPLAY-D TO MAP-CMPL-WEEK-END-DA. OJRIPARM
00055 * MOVE WRK-DISPLAY-Y TO MAP-CMPL-WEEK-END-YR. OJRIPARM
00056 OJRIPARM