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

145
Copybook/DTSIS79.cpy Normal file
View File

@ -0,0 +1,145 @@
00001 ***** 04/13/99
00002 * DTSIS79
00003 * DTSIS79 BENEFIT MAILING ADDRESS SEND/RECEIVE AREA. LV005
00004 * DTSIS79
00005 ***** DTSIS79
00006 SKIP1 DTSIS79
00007 10 FILLER PIC X(12). DTSIS79
00008 SKIP1 DTSIS79
00009 10 MAP-SCR-TYPE-AREA. DTSIS79
00010 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS79
00011 15 MAP-SCR-TYPE-A PIC X(01). DTSIS79
00012 15 MAP-SCR-TYPE PIC X(02). DTSIS79
00013 SKIP1 DTSIS79
00014 10 MAP-CICS-REGION-NAME-AREA. DTSIS79
00015 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS79
00016 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS79
00017 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS79
00018 SKIP1 DTSIS79
00019 10 MAP-SYS-DATE-AREA. DTSIS79
00020 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS79
00021 15 MAP-SYS-DATE-A PIC X(01). DTSIS79
00022 15 MAP-SYS-DATE PIC X(08). DTSIS79
00023 SKIP1 DTSIS79
00024 10 MAP-SYS-TIME-AREA. DTSIS79
00025 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS79
00026 15 MAP-SYS-TIME-A PIC X(01). DTSIS79
00027 15 MAP-SYS-TIME PIC X(08). DTSIS79
00028 ***** DTSIS79
00029 10 MAP-EMP-NO-AREA. DTSIS79
00030 15 MAP-EMP-NO-1-AREA. DTSIS79
00031 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS79
00032 20 MAP-EMP-NO-1-A PIC X(01). DTSIS79
00033 20 MAP-EMP-NO-1 PIC X(03). DTSIS79
00034 20 MAP-EMP-NO-1-N REDEFINES MAP-EMP-NO-1 DTSIS79
00035 PIC 9(03). DTSIS79
00036 15 MAP-EMP-NO-2-AREA. DTSIS79
00037 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS79
00038 20 MAP-EMP-NO-2-A PIC X(01). DTSIS79
00039 20 MAP-EMP-NO-2 PIC X(03). DTSIS79
00040 20 MAP-EMP-NO-2-N REDEFINES MAP-EMP-NO-2 DTSIS79
00041 PIC 9(03). DTSIS79
00042 SKIP1 DTSIS79
00043 10 MAP-PRIMARY-NAME-AREA. CL**5
00044 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**5
00045 15 MAP-PRIMARY-NAME-A PIC X(01). CL**5
00046 15 MAP-PRIMARY-NAME PIC X(40). CL**5
00047 SKIP1 CL**5
00048 10 MAP-ALT-NAME-AREA. CL**5
00049 15 MAP-ALT-NAME-L PIC S9(04) COMP. CL**5
00050 15 MAP-ALT-NAME-A PIC X(01). CL**5
00051 15 MAP-ALT-NAME PIC X(40). CL**5
00052 SKIP1 DTSIS79
00053 10 MAP-ADDR-AREA. DTSIS79
00054 15 MAP-ATTN-AREA. DTSIS79
00055 20 MAP-ATTN-L PIC S9(04) COMP. DTSIS79
00056 20 MAP-ATTN-A PIC X(01). DTSIS79
00057 20 MAP-ATTN PIC X(40). DTSIS79
00058 15 MAP-CIND-AREA. CL**2
00059 20 MAP-CIND-L PIC S9(04) COMP. CL**2
00060 20 MAP-CIND-A PIC X(01). CL**2
00061 20 MAP-CIND PIC X(01). CL**2
00062 15 MAP-DLV1-AREA. CL**2
00063 20 MAP-DLV1-L PIC S9(04) COMP. CL**2
00064 20 MAP-DLV1-A PIC X(01). CL**2
00065 20 MAP-DLV1 PIC X(40). CL**2
00066 15 MAP-DLV2-AREA. CL**2
00067 20 MAP-DLV2-L PIC S9(04) COMP. CL**2
00068 20 MAP-DLV2-A PIC X(01). CL**2
00069 20 MAP-DLV2 PIC X(40). CL**2
00070 15 MAP-CASS-AREA. CL**2
00071 20 MAP-CASS-L PIC S9(04) COMP. CL**2
00072 20 MAP-CASS-A PIC X(01). CL**2
00073 20 MAP-CASS PIC X(25). CL**2
00074 15 MAP-CITY-AREA. DTSIS79
00075 20 MAP-CITY-L PIC S9(04) COMP. DTSIS79
00076 20 MAP-CITY-A PIC X(01). DTSIS79
00077 20 MAP-CITY PIC X(25). DTSIS79
00078 15 MAP-STAT-AREA. DTSIS79
00079 20 MAP-STAT-L PIC S9(04) COMP. DTSIS79
00080 20 MAP-STAT-A PIC X(01). DTSIS79
00081 20 MAP-STAT PIC X(02). DTSIS79
00082 15 MAP-ZIPC-AREA. DTSIS79
00083 20 MAP-ZIPC-L PIC S9(04) COMP. DTSIS79
00084 20 MAP-ZIPC-A PIC X(01). DTSIS79
00085 20 MAP-ZIPC PIC X(10). DTSIS79
00086 SKIP1 DTSIS79
00087 10 MAP-ALL-PHONES-AREA. DTSIS79
00088 * 1=VOICE, 2=VOICE#2, 3=FAX DTSIS79
00089 15 MAP-PHONE-AREA OCCURS 3. DTSIS79
00090 20 MAP-PHONE-A-CD-AREA. DTSIS79
00091 25 MAP-PHONE-A-CD-L PIC S9(04) COMP. DTSIS79
00092 25 MAP-PHONE-A-CD-A PIC X(01). DTSIS79
00093 25 MAP-PHONE-A-CD PIC X(03). DTSIS79
00094 20 MAP-PHONE-PREF-AREA. DTSIS79
00095 25 MAP-PHONE-PREF-L PIC S9(04) COMP. DTSIS79
00096 25 MAP-PHONE-PREF-A PIC X(01). DTSIS79
00097 25 MAP-PHONE-PREF PIC X(03). DTSIS79
00098 20 MAP-PHONE-SUFF-AREA. DTSIS79
00099 25 MAP-PHONE-SUFF-L PIC S9(04) COMP. DTSIS79
00100 25 MAP-PHONE-SUFF-A PIC X(01). DTSIS79
00101 25 MAP-PHONE-SUFF PIC X(04). DTSIS79
00102 20 MAP-PHONE-EXT-AREA. CL**2
00103 25 MAP-PHONE-EXT-L PIC S9(04) COMP. CL**2
00104 25 MAP-PHONE-EXT-A PIC X(01). CL**2
00105 25 MAP-PHONE-EXT PIC X(05). CL**2
00106 SKIP1 DTSIS79
00107 10 MAP-EMAIL-AREA. CL**2
00108 15 MAP-EMAIL-L PIC S9(04) COMP. CL**2
00109 15 MAP-EMAIL-A PIC X(01). CL**2
00110 15 MAP-EMAIL PIC X(40). CL**2
00111 SKIP1 DTSIS79
00112 10 MAP-CREATE-DATE-TIME-AREA. CL**4
00113 15 MAP-CREATE-DATE-TIME-L PIC S9(04) COMP. CL**4
00114 15 MAP-CREATE-DATE-TIME-A PIC X(01). CL**4
00115 15 MAP-CREATE-DATE-TIME PIC X(15). CL**4
00116 SKIP1 CL**2
00117 10 MAP-KEY-ADD-AREA. DTSIS79
00118 15 MAP-KEY-ADD-L PIC S9(04) COMP. DTSIS79
00119 15 MAP-KEY-ADD-A PIC X(01). DTSIS79
00120 15 MAP-KEY-ADD PIC X(06). DTSIS79
00121 SKIP1 DTSIS79
00122 10 MAP-KEY-MOD-AREA. DTSIS79
00123 15 MAP-KEY-MOD-L PIC S9(04) COMP. DTSIS79
00124 15 MAP-KEY-MOD-A PIC X(01). DTSIS79
00125 15 MAP-KEY-MOD PIC X(07). DTSIS79
00126 SKIP1 DTSIS79
00127 10 MAP-KEY-DEL-AREA. DTSIS79
00128 15 MAP-KEY-DEL-L PIC S9(04) COMP. DTSIS79
00129 15 MAP-KEY-DEL-A PIC X(01). DTSIS79
00130 15 MAP-KEY-DEL PIC X(07). DTSIS79
00131 SKIP1 DTSIS79
00132 10 MAP-MSG-AREA. DTSIS79
00133 15 MAP-MSG-ID-AREA. DTSIS79
00134 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS79
00135 20 MAP-MSG-ID-A PIC X(01). DTSIS79
00136 20 MAP-MSG-ID PIC X(08). DTSIS79
00137 15 MAP-MSG-TEXT-AREA. DTSIS79
00138 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS79
00139 20 MAP-MSG-TEXT-A PIC X(01). DTSIS79
00140 20 MAP-MSG-TEXT PIC X(58). DTSIS79
00141 SKIP1 DTSIS79
00142 10 MAP-GOTO-AREA. DTSIS79
00143 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS79
00144 15 MAP-GOTO-A PIC X(01). DTSIS79
00145 15 MAP-GOTO PIC X(02). DTSIS79