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

110
Copybook/DTSIS75.cpy Normal file
View File

@ -0,0 +1,110 @@
00001 ***** 09/29/98
00002 * S75 TICKLER SEARCH SEND/RECEIVE AREA DTSIS75
00003 ***** LV004
00004 10 FILLER PIC X(12). DTSIS75
00005 10 MAP-SCR-TYPE-AREA. DTSIS75
00006 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS75
00007 15 MAP-SCR-TYPE-A PIC X(01). DTSIS75
00008 15 MAP-SCR-TYPE PIC X(02). DTSIS75
00009 10 MAP-CICS-REGION-NAME-AREA. DTSIS75
00010 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS75
00011 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS75
00012 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS75
00013 10 MAP-SYS-DATE-AREA. DTSIS75
00014 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS75
00015 15 MAP-SYS-DATE-A PIC X(01). DTSIS75
00016 15 MAP-SYS-DATE PIC X(08). DTSIS75
00017 10 FLD0221. DTSIS75
00018 15 MAP-DEST-OP-ID-L PIC S9(04) COMP. DTSIS75
00019 15 MAP-DEST-OP-ID-A PIC X(01). DTSIS75
00020 15 MAP-DEST-OP-ID PIC X(08). CL**2
00021 10 MAP-SYS-TIME-AREA. DTSIS75
00022 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS75
00023 15 MAP-SYS-TIME-A PIC X(01). DTSIS75
00024 15 MAP-SYS-TIME PIC X(08). DTSIS75
00025 10 FLD0416. DTSIS75
00026 15 MAP-ACKNOWLEDGED-IND-L PIC S9(04) COMP. DTSIS75
00027 15 MAP-ACKNOWLEDGED-IND-A PIC X(01). DTSIS75
00028 15 MAP-ACKNOWLEDGED-IND PIC X(01). DTSIS75
00029 88 MAP-ACKNOWLEDGED-VALID VALUE 'Y' 'N'. DTSIS75
00030 10 MAP-TRIGGER-DATE-FROM-AREA. DTSIS75
00031 15 FLD0516. DTSIS75
00032 20 MAP-TRIGGER-DATE-FROM-MO-L PIC S9(04) COMP. DTSIS75
00033 20 MAP-TRIGGER-DATE-FROM-MO-A PIC X(01). DTSIS75
00034 20 MAP-TRIGGER-DATE-FROM-MO PIC X(02). DTSIS75
00035 15 FLD0519. DTSIS75
00036 20 MAP-TRIGGER-DATE-FROM-DA-L PIC S9(04) COMP. DTSIS75
00037 20 MAP-TRIGGER-DATE-FROM-DA-A PIC X(01). DTSIS75
00038 20 MAP-TRIGGER-DATE-FROM-DA PIC X(02). DTSIS75
00039 15 FLD0522. DTSIS75
00040 20 MAP-TRIGGER-DATE-FROM-YR-L PIC S9(04) COMP. DTSIS75
00041 20 MAP-TRIGGER-DATE-FROM-YR-A PIC X(01). DTSIS75
00042 20 MAP-TRIGGER-DATE-FROM-YR PIC X(02). DTSIS75
00043 10 MAP-TRIGGER-DATE-TO-AREA. DTSIS75
00044 15 FLD0527. DTSIS75
00045 20 MAP-TRIGGER-DATE-TO-MO-L PIC S9(04) COMP. DTSIS75
00046 20 MAP-TRIGGER-DATE-TO-MO-A PIC X(01). DTSIS75
00047 20 MAP-TRIGGER-DATE-TO-MO PIC X(02). DTSIS75
00048 15 FLD0530. DTSIS75
00049 20 MAP-TRIGGER-DATE-TO-DA-L PIC S9(04) COMP. DTSIS75
00050 20 MAP-TRIGGER-DATE-TO-DA-A PIC X(01). DTSIS75
00051 20 MAP-TRIGGER-DATE-TO-DA PIC X(02). DTSIS75
00052 15 FLD0533. DTSIS75
00053 20 MAP-TRIGGER-DATE-TO-YR-L PIC S9(04) COMP. DTSIS75
00054 20 MAP-TRIGGER-DATE-TO-YR-A PIC X(01). DTSIS75
00055 20 MAP-TRIGGER-DATE-TO-YR PIC X(02). DTSIS75
00056 10 MAP-TABLE. DTSIS75
00057 15 MAP-LINE OCCURS 12 TIMES. DTSIS75
00058 20 MAP-LINE-L PIC S9(04) COMP. DTSIS75
00059 20 MAP-LINE-A PIC X(01). DTSIS75
00060 18 MAP-LINE-DATA. DTSIS75
00061 20 MAP-LINE-NO PIC Z9. DTSIS75
00062 20 FILLER PIC X(03). DTSIS75
00063 20 MAP-PRIMARY-NAME PIC X(25). CL**2
00064 20 FILLER PIC X(03). DTSIS75
00065 20 MAP-EMP-NO PIC 999B999. DTSIS75
00066 20 FILLER PIC X(03). DTSIS75
00067 20 MAP-SOURCE PIC X(08). CL**2
00068 20 FILLER PIC X(03). DTSIS75
00069 20 MAP-TRIGGER-DATE PIC X(08). DTSIS75
00070 20 FILLER PIC X(02). CL**4
00071 20 MAP-ACKNOWLEDGE-DATE PIC X(08). DTSIS75
00072 20 FILLER PIC X(02). CL**4
00073 20 MAP-TYPE PIC X(03). DTSIS75
00074 20 FILLER PIC X(02). DTSIS75
00075 10 FLD2121. DTSIS75
00076 15 MAP-LINE-NUMBER-L PIC S9(04) COMP. DTSIS75
00077 15 MAP-LINE-NUMBER-A PIC X(01). DTSIS75
00078 15 MAP-LINE-NUMBER PIC X(02). DTSIS75
00079 88 MAP-LINE-NUMBER-VALID VALUE '01' THRU '12'. DTSIS75
00080 15 MAP-LINE-NUMBER-N REDEFINES DTSIS75
00081 MAP-LINE-NUMBER PIC 9(02). DTSIS75
00082 10 FLD2140. DTSIS75
00083 15 MAP-SCREEN-ID-L PIC S9(04) COMP. DTSIS75
00084 15 MAP-SCREEN-ID-A PIC X(01). DTSIS75
00085 15 MAP-SCREEN-ID PIC X(02). DTSIS75
00086 10 F742309. CL**3
00087 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS75
00088 15 MAP-KEY-BACK-A PIC X(01). DTSIS75
00089 15 MAP-KEY-BACK PIC X(07). DTSIS75
00090 10 F742318. CL**3
00091 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS75
00092 15 MAP-KEY-FWRD-A PIC X(01). DTSIS75
00093 15 MAP-KEY-FWRD PIC X(07). DTSIS75
00094 10 F742327. CL**3
00095 15 MAP-KEY-TICK-INQ-L PIC S9(04) COMP. DTSIS75
00096 15 MAP-KEY-TICK-INQ-A PIC X(01). DTSIS75
00097 15 MAP-KEY-TICK-INQ PIC X(20). CL**3
00098 10 MAP-MSG-AREA. DTSIS75
00099 15 MAP-MSG-ID-AREA. DTSIS75
00100 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS75
00101 20 MAP-MSG-ID-A PIC X(01). DTSIS75
00102 20 MAP-MSG-ID PIC X(08). DTSIS75
00103 15 MAP-MSG-TEXT-AREA. DTSIS75
00104 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS75
00105 20 MAP-MSG-TEXT-A PIC X(01). DTSIS75
00106 20 MAP-MSG-TEXT PIC X(58). DTSIS75
00107 10 MAP-GOTO-AREA. DTSIS75
00108 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS75
00109 15 MAP-GOTO-A PIC X(01). DTSIS75
00110 15 MAP-GOTO PIC X(02). DTSIS75