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

38
Copybook/OJRILCCM.cpy Normal file
View File

@ -0,0 +1,38 @@
00001 15 FILLER REDEFINES LCCM-SCR-HOLD-AREA. 08/02/02
00002 20 LCCM-REPORT-SUB PIC S9(04) COMP. OJRILCCM
00003 20 LCCM-REPORT-NAME PIC X(08). LV001
00004 20 LCCM-REPORT-TYPE PIC X(01). OJRILCCM
00005 88 LCCM-PRE-UPDATE-88 VALUE '0'. OJRILCCM
00006 88 LCCM-POST-UPDATE-88 VALUE '1'. OJRILCCM
00007 88 LCCM-READ-ONLY-88 VALUE '2'. OJRILCCM
00008 20 LCCM-REPORT-DESC PIC X(34). OJRILCCM
00009 20 LCCM-REPORT-REQUEST PIC X(01). OJRILCCM
00010 88 LCCM-GET-DEFAULTS-88 VALUE 'D'. OJRILCCM
00011 88 LCCM-EDIT-PARMS-88 VALUE 'E'. OJRILCCM
00012 88 LCCM-SUBMIT-88 VALUE 'S'. OJRILCCM
00013 88 LCCM-INT-RDR-88 VALUE 'I'. OJRILCCM
00014 88 LCCM-UPDATE-OLA-88 VALUE 'U'. OJRILCCM
00015 88 LCCM-UPDATE-CONF-88 VALUE 'U', OJRILCCM
00016 'I'. OJRILCCM
00017 88 LCCM-SEND-MAP-88 VALUE 'M'. OJRILCCM
00018 88 LCCM-RECEIVE-MAP-88 VALUE 'R'. OJRILCCM
00019 20 LCCM-REPORT-PARMS OCCURS 16 TIMES. OJRILCCM
00020 25 LCCM-PARM-DESC PIC X(32). OJRILCCM
00021 25 LCCM-PARM-TYPE PIC X(02). OJRILCCM
00022 88 LCCM-PARM-TYPE-DATE VALUE '00'.OJRILCCM
00023 88 LCCM-PARM-TYPE-QTR VALUE '01'.OJRILCCM
00024 88 LCCM-PARM-TYPE-UID VALUE '02'.OJRILCCM
00025 88 LCCM-PARM-TYPE-TEXT VALUE '03'.OJRILCCM
00026 25 LCCM-PARM-VALUE PIC X(32). OJRILCCM
00027 25 LCCM-PARM-LENGTH PIC S9(04) COMP. OJRILCCM
00028 20 LCCM-PARM-SUB PIC S9(04) COMP. OJRILCCM
00029 * 100 BYTES BELOW OJRILCCM
00030 20 LCCM-8B-EDIT-VARS. OJRILCCM
00031 25 LCCM-8B-PRIOR-RUN-DATE OJRILCCM
00032 PIC S9(09) COMP-3. OJRILCCM
00033 25 LCCM-8B-LAST-UC30-DEL-MAIL-YRQ OJRILCCM
00034 PIC S9(05) COMP-3. OJRILCCM
00035 25 LCCM-8B-FIRST-PURSUED-RPT-YRQ OJRILCCM
00036 PIC S9(05) COMP-3. OJRILCCM
00037 25 FILLER PIC X(89). OJRILCCM
00038 * NOTE -- LCCM-PARM-SUB VALID ONLY FOR DATA CAPTURE ROUTINES OJRILCCM