giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CICS/DTSCS13.cob

Browse Source
This commit is contained in:
faizana
2025-09-04 08:56:50 -04:00
parent 3d0b3b793e
commit 7ca284b0f7
8 changed files with 8334 additions and 8350 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5378
CICS/DTSCS13.cob
View File

File diff suppressed because it is too large Load Diff

9573
CICS/DTSCS26.cob
View File

File diff suppressed because it is too large Load Diff

2
CICSFiles.txt
View File

@ -1,4 +1,4 @@
E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS81.cob E:\Faizan_Folder\DUTAS_DEV_UPDATE\DUTAS\CICS\DTSCS26.cob

20
Copybook/DTSIS13.cpy
View File

@ -1,6 +1,6 @@
00001 ***** 09/13/12 00001 ***** 05/11/17
00002 * DTSIS13 00002 * DTSIS13
00003 * DTSIS13 TAX ADDRESS INQUIRY/UPDATE SEND/RECEIVE AREA. LV012 00003 * DTSIS13 TAX ADDRESS INQUIRY/UPDATE SEND/RECEIVE AREA. LV003
00004 * DTSIS13 00004 * DTSIS13
00005 ***** DTSIS13 00005 ***** DTSIS13
00006 SKIP1 DTSIS13 00006 SKIP1 DTSIS13
@ -126,15 +126,15 @@
00126 25 MAP-PHONE-EXT-A PIC X(01). DTSIS13 00126 25 MAP-PHONE-EXT-A PIC X(01). DTSIS13
00127 25 MAP-PHONE-EXT PIC X(05). DTSIS13 00127 25 MAP-PHONE-EXT PIC X(05). DTSIS13
00128 SKIP1 DTSIS13 00128 SKIP1 DTSIS13
00129 15 MAP-EMAIL-AREA. DTSIS13 00129 15 MAP-EMAIL-AREA. CL**3
00130 20 MAP-EMAIL-L PIC S9(04) COMP. DTSIS13 00130 20 MAP-EMAIL-L PIC S9(04) COMP. CL**3
00131 20 MAP-EMAIL-A PIC X(01). DTSIS13 00131 20 MAP-EMAIL-A PIC X(01). CL**3
00132 20 MAP-EMAIL PIC X(40). DTSIS13 00132 20 MAP-EMAIL PIC X(40). CL**3
00133 SKIP1 DTSIS13 00133 SKIP1 DTSIS13
00134 15 MAP-EMAIL-UC30-AREA. DTSIS13 00134 * 15 MAP-EMAIL-UC30-AREA. CL**3
00135 20 MAP-EMAIL-UC30-L PIC S9(04) COMP. DTSIS13 00135 * 20 MAP-EMAIL-UC30-L PIC S9(04) COMP. CL**3
00136 20 MAP-EMAIL-UC30-A PIC X(01). DTSIS13 00136 * 20 MAP-EMAIL-UC30-A PIC X(01). CL**3
00137 20 MAP-EMAIL-UC30 PIC X(01). DTSIS13 00137 * 20 MAP-EMAIL-UC30 PIC X(01). CL**3
00138 SKIP1 DTSIS13 00138 SKIP1 DTSIS13
00139 15 MAP-MEMO-AREA. DTSIS13 00139 15 MAP-MEMO-AREA. DTSIS13
00140 20 MAP-MEMO-L PIC S9(04) COMP. DTSIS13 00140 20 MAP-MEMO-L PIC S9(04) COMP. DTSIS13

643
Maps/DTSM13.bms
View File

@ -1,321 +1,322 @@
* DATA SET DTSM13 AT LEVEL 014 AS OF 09/29/04 * DATA SET DTSM13 AT LEVEL 001 AS OF 05/11/17
* DATA SET DTSM13 AT LEVEL 002 AS OF 07/21/04 00001 * DATA SET DTSM13 AT LEVEL 014 AS OF 09/29/04 00001
* DATA SET DTSM13 AT LEVEL 012 AS OF 07/18/00 00002 * DATA SET DTSM13 AT LEVEL 002 AS OF 07/21/04 00002
* DATA SET DTSM13 AT LEVEL 002 AS OF 06/05/00 00003 * DATA SET DTSM13 AT LEVEL 012 AS OF 07/18/00 00003
* DATA SET DTSM13 AT LEVEL 010 AS OF 09/07/99 00004 * DATA SET DTSM13 AT LEVEL 002 AS OF 06/05/00 00004
* DATA SET MACM13 AT LEVEL 010 AS OF 10/30/95 00005 * DATA SET DTSM13 AT LEVEL 010 AS OF 09/07/99 00005
***** 00006 * DATA SET MACM13 AT LEVEL 010 AS OF 10/30/95 00006
* 00007 ***** 00007
* 13 TAX ADDRESS INQUIRY/UPDATE. 00008 * 00008
* 00009 * 13 TAX ADDRESS INQUIRY/UPDATE. 00009
***** 00010 * 00010
SPACE 00011 ***** 00011
DTSM13 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00012 SPACE 00012
SPACE 00013 DTSM13 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00013
F130101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00014 SPACE 00014
INITIAL='13' 00015 F130101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00015
SPACE 00016 INITIAL='13' 00016
DFHMDF POS=(01,23),LENGTH=26,ATTRB=(ASKIP), *00017 SPACE 00017
INITIAL='TAX ADDRESS INQUIRY/UPDATE' 00018 DFHMDF POS=(01,23),LENGTH=26,ATTRB=(ASKIP), *00018
SPACE 00019 INITIAL='TAX ADDRESS INQUIRY/UPDATE' 00019
F130162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00020 SPACE 00020
SPACE 00021 F130162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00021
F130172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00022 SPACE 00022
SPACE 00023 F130172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00023
F130272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00024 SPACE 00024
SPACE 00025 F130272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00025
DFHMDF POS=(03,08),LENGTH=07,ATTRB=ASKIP, *00026 SPACE 00026
INITIAL='EMP NO:' 00027 DFHMDF POS=(03,08),LENGTH=07,ATTRB=ASKIP, *00027
SPACE 00028 INITIAL='EMP NO:' 00028
F130316 DFHMDF POS=(03,16),LENGTH=03,ATTRB=ASKIP 00029 SPACE 00029
SPACE 00030 F130316 DFHMDF POS=(03,16),LENGTH=03,ATTRB=ASKIP 00030
F130320 DFHMDF POS=(03,20),LENGTH=03,ATTRB=ASKIP 00031 SPACE 00031
SPACE 00032 F130320 DFHMDF POS=(03,20),LENGTH=03,ATTRB=ASKIP 00032
DFHMDF POS=(03,24),LENGTH=01,ATTRB=ASKIP 00033 SPACE 00033
SPACE 00034 DFHMDF POS=(03,24),LENGTH=01,ATTRB=ASKIP 00034
DFHMDF POS=(04,01),LENGTH=14,ATTRB=ASKIP, *00035 SPACE 00035
INITIAL=' PRIMARY NAME:' 00036 DFHMDF POS=(04,01),LENGTH=14,ATTRB=ASKIP, *00036
SPACE 00037 INITIAL=' PRIMARY NAME:' 00037
F130416 DFHMDF POS=(04,16),LENGTH=40,ATTRB=ASKIP 00038 SPACE 00038
SPACE 00039 F130416 DFHMDF POS=(04,16),LENGTH=40,ATTRB=ASKIP 00039
DFHMDF POS=(04,57),LENGTH=01,ATTRB=ASKIP 00040 SPACE 00040
SPACE 00041 DFHMDF POS=(04,57),LENGTH=01,ATTRB=ASKIP 00041
DFHMDF POS=(04,60),LENGTH=12,ATTRB=ASKIP, *00042 SPACE 00042
INITIAL='ENTITY NAME?' 00043 DFHMDF POS=(04,60),LENGTH=12,ATTRB=ASKIP, *00043
SPACE 00044 INITIAL='ENTITY NAME?' 00044
F130465 DFHMDF POS=(04,73),LENGTH=01,ATTRB=ASKIP 00045 SPACE 00045
SPACE 00046 F130465 DFHMDF POS=(04,73),LENGTH=01,ATTRB=ASKIP 00046
DFHMDF POS=(04,75),LENGTH=01,ATTRB=ASKIP 00047 SPACE 00047
SPACE 00048 DFHMDF POS=(04,75),LENGTH=01,ATTRB=ASKIP 00048
DFHMDF POS=(05,01),LENGTH=14,ATTRB=ASKIP, *00049 SPACE 00049
INITIAL=' ENTITY NAME:' 00050 DFHMDF POS=(05,01),LENGTH=14,ATTRB=ASKIP, *00050
SPACE 00051 INITIAL=' ENTITY NAME:' 00051
F130516 DFHMDF POS=(05,16),LENGTH=40,ATTRB=ASKIP 00052 SPACE 00052
SPACE 00053 F130516 DFHMDF POS=(05,16),LENGTH=40,ATTRB=ASKIP 00053
DFHMDF POS=(05,57),LENGTH=01,ATTRB=ASKIP 00054 SPACE 00054
SPACE 00055 DFHMDF POS=(05,57),LENGTH=01,ATTRB=ASKIP 00055
F130609 DFHMDF POS=(06,09),LENGTH=07,ATTRB=(ASKIP) 00056 SPACE 00056
SPACE 00057 F130609 DFHMDF POS=(06,09),LENGTH=07,ATTRB=(ASKIP) 00057
F130617 DFHMDF POS=(06,17),LENGTH=01,ATTRB=(ASKIP) 00058 SPACE 00058
SPACE 00059 F130617 DFHMDF POS=(06,17),LENGTH=01,ATTRB=(ASKIP) 00059
DFHMDF POS=(06,19),LENGTH=01,ATTRB=(ASKIP) 00060 SPACE 00060
SPACE 00061 DFHMDF POS=(06,19),LENGTH=01,ATTRB=(ASKIP) 00061
DFHMDF POS=(07,09),LENGTH=15,ATTRB=ASKIP, *00062 SPACE 00062
INITIAL='MAILING ADDRESS' 00063 DFHMDF POS=(07,09),LENGTH=15,ATTRB=ASKIP, *00063
SPACE 00064 INITIAL='MAILING ADDRESS' 00064
DFHMDF POS=(07,56),LENGTH=13,ATTRB=ASKIP, *00065 SPACE 00065
INITIAL='FISCAL AGENT:' 00066 DFHMDF POS=(07,56),LENGTH=13,ATTRB=ASKIP, *00066
SPACE 00067 INITIAL='FISCAL AGENT:' 00067
F130770 DFHMDF POS=(07,70),LENGTH=03,ATTRB=ASKIP 00068 SPACE 00068
SPACE 00069 F130770 DFHMDF POS=(07,70),LENGTH=03,ATTRB=ASKIP 00069
DFHMDF POS=(07,74),LENGTH=01,ATTRB=ASKIP 00070 SPACE 00070
SPACE 00071 DFHMDF POS=(07,74),LENGTH=01,ATTRB=ASKIP 00071
DFHMDF POS=(08,01),LENGTH=05,ATTRB=ASKIP, *00072 SPACE 00072
INITIAL='ATTN:' 00073 DFHMDF POS=(08,01),LENGTH=05,ATTRB=ASKIP, *00073
SPACE 00074 INITIAL='ATTN:' 00074
F130807 DFHMDF POS=(08,07),LENGTH=40,ATTRB=ASKIP 00075 SPACE 00075
SPACE 00076 F130807 DFHMDF POS=(08,07),LENGTH=40,ATTRB=ASKIP 00076
DFHMDF POS=(08,48),LENGTH=01,ATTRB=ASKIP 00077 SPACE 00077
SPACE 00078 DFHMDF POS=(08,48),LENGTH=01,ATTRB=ASKIP 00078
DFHMDF POS=(08,56),LENGTH=05,ATTRB=ASKIP, *00079 SPACE 00079
INITIAL='CASS?' 00080 DFHMDF POS=(08,56),LENGTH=05,ATTRB=ASKIP, *00080
SPACE 00081 INITIAL='CASS?' 00081
F130862 DFHMDF POS=(08,62),LENGTH=01,ATTRB=ASKIP 00082 SPACE 00082
SPACE 00083 F130862 DFHMDF POS=(08,62),LENGTH=01,ATTRB=ASKIP 00083
DFHMDF POS=(08,64),LENGTH=01,ATTRB=ASKIP 00084 SPACE 00084
SPACE 00085 DFHMDF POS=(08,64),LENGTH=01,ATTRB=ASKIP 00085
DFHMDF POS=(09,01),LENGTH=05,ATTRB=ASKIP, *00086 SPACE 00086
INITIAL='DLV1:' 00087 DFHMDF POS=(09,01),LENGTH=05,ATTRB=ASKIP, *00087
SPACE 00088 INITIAL='DLV1:' 00088
F130907 DFHMDF POS=(09,07),LENGTH=40,ATTRB=ASKIP 00089 SPACE 00089
SPACE 00090 F130907 DFHMDF POS=(09,07),LENGTH=40,ATTRB=ASKIP 00090
DFHMDF POS=(09,48),LENGTH=01,ATTRB=ASKIP 00091 SPACE 00091
SPACE 00092 DFHMDF POS=(09,48),LENGTH=01,ATTRB=ASKIP 00092
DFHMDF POS=(09,56),LENGTH=07,ATTRB=ASKIP, *00093 SPACE 00093
INITIAL='CASS CD' 00094 DFHMDF POS=(09,56),LENGTH=07,ATTRB=ASKIP, *00094
SPACE 00095 INITIAL='CASS CD' 00095
DFHMDF POS=(10,01),LENGTH=05,ATTRB=ASKIP, *00096 SPACE 00096
INITIAL='DLV2:' 00097 DFHMDF POS=(10,01),LENGTH=05,ATTRB=ASKIP, *00097
SPACE 00098 INITIAL='DLV2:' 00098
F131007 DFHMDF POS=(10,07),LENGTH=40,ATTRB=ASKIP 00099 SPACE 00099
SPACE 00100 F131007 DFHMDF POS=(10,07),LENGTH=40,ATTRB=ASKIP 00100
DFHMDF POS=(10,48),LENGTH=01,ATTRB=ASKIP 00101 SPACE 00101
SPACE 00102 DFHMDF POS=(10,48),LENGTH=01,ATTRB=ASKIP 00102
F131054 DFHMDF POS=(10,54),LENGTH=25,ATTRB=ASKIP 00103 SPACE 00103
SPACE 00104 F131054 DFHMDF POS=(10,54),LENGTH=25,ATTRB=ASKIP 00104
DFHMDF POS=(11,01),LENGTH=05,ATTRB=ASKIP, *00105 SPACE 00105
INITIAL='CITY:' 00106 DFHMDF POS=(11,01),LENGTH=05,ATTRB=ASKIP, *00106
SPACE 00107 INITIAL='CITY:' 00107
F131107 DFHMDF POS=(11,07),LENGTH=25,ATTRB=ASKIP 00108 SPACE 00108
SPACE 00109 F131107 DFHMDF POS=(11,07),LENGTH=25,ATTRB=ASKIP 00109
DFHMDF POS=(11,33),LENGTH=01,ATTRB=ASKIP, *00110 SPACE 00110
INITIAL=':' 00111 DFHMDF POS=(11,33),LENGTH=01,ATTRB=ASKIP, *00111
SPACE 00112 INITIAL=':' 00112
F131135 DFHMDF POS=(11,35),LENGTH=02,ATTRB=ASKIP 00113 SPACE 00113
SPACE 00114 F131135 DFHMDF POS=(11,35),LENGTH=02,ATTRB=ASKIP 00114
DFHMDF POS=(11,38),LENGTH=01,ATTRB=ASKIP, *00115 SPACE 00115
INITIAL=':' 00116 DFHMDF POS=(11,38),LENGTH=01,ATTRB=ASKIP, *00116
SPACE 00117 INITIAL=':' 00117
F131140 DFHMDF POS=(11,40),LENGTH=10,ATTRB=ASKIP 00118 SPACE 00118
SPACE 00119 F131140 DFHMDF POS=(11,40),LENGTH=10,ATTRB=ASKIP 00119
DFHMDF POS=(11,51),LENGTH=01,ATTRB=ASKIP 00120 SPACE 00120
SPACE 00121 DFHMDF POS=(11,51),LENGTH=01,ATTRB=ASKIP 00121
DFHMDF POS=(12,01),LENGTH=05,ATTRB=ASKIP, *00122 SPACE 00122
INITIAL='TEL1:' 00123 DFHMDF POS=(12,01),LENGTH=05,ATTRB=ASKIP, *00123
SPACE 00124 INITIAL='TEL1:' 00124
F131207 DFHMDF POS=(12,07),LENGTH=03,ATTRB=ASKIP 00125 SPACE 00125
SPACE 00126 F131207 DFHMDF POS=(12,07),LENGTH=03,ATTRB=ASKIP 00126
F131211 DFHMDF POS=(12,11),LENGTH=03,ATTRB=ASKIP 00127 SPACE 00127
SPACE 00128 F131211 DFHMDF POS=(12,11),LENGTH=03,ATTRB=ASKIP 00128
F131215 DFHMDF POS=(12,15),LENGTH=04,ATTRB=ASKIP 00129 SPACE 00129
SPACE 00130 F131215 DFHMDF POS=(12,15),LENGTH=04,ATTRB=ASKIP 00130
F131320 DFHMDF POS=(12,20),LENGTH=05,ATTRB=ASKIP 00131 SPACE 00131
SPACE 00132 F131320 DFHMDF POS=(12,20),LENGTH=05,ATTRB=ASKIP 00132
DFHMDF POS=(12,26),LENGTH=01,ATTRB=ASKIP 00133 SPACE 00133
SPACE 00134 DFHMDF POS=(12,26),LENGTH=01,ATTRB=ASKIP 00134
DFHMDF POS=(12,29),LENGTH=05,ATTRB=ASKIP, *00135 SPACE 00135
INITIAL='TEL2:' 00136 DFHMDF POS=(12,29),LENGTH=05,ATTRB=ASKIP, *00136
SPACE 00137 INITIAL='TEL2:' 00137
F131235 DFHMDF POS=(12,35),LENGTH=03,ATTRB=ASKIP 00138 SPACE 00138
SPACE 00139 F131235 DFHMDF POS=(12,35),LENGTH=03,ATTRB=ASKIP 00139
F131239 DFHMDF POS=(12,39),LENGTH=03,ATTRB=ASKIP 00140 SPACE 00140
SPACE 00141 F131239 DFHMDF POS=(12,39),LENGTH=03,ATTRB=ASKIP 00141
F131243 DFHMDF POS=(12,43),LENGTH=04,ATTRB=ASKIP 00142 SPACE 00142
SPACE 00143 F131243 DFHMDF POS=(12,43),LENGTH=04,ATTRB=ASKIP 00143
F131248 DFHMDF POS=(12,48),LENGTH=05,ATTRB=ASKIP 00144 SPACE 00144
SPACE 00145 F131248 DFHMDF POS=(12,48),LENGTH=05,ATTRB=ASKIP 00145
DFHMDF POS=(12,54),LENGTH=01,ATTRB=ASKIP 00146 SPACE 00146
SPACE 00147 DFHMDF POS=(12,54),LENGTH=01,ATTRB=ASKIP 00147
DFHMDF POS=(12,57),LENGTH=04,ATTRB=ASKIP, *00148 SPACE 00148
INITIAL='FAX:' 00149 DFHMDF POS=(12,57),LENGTH=04,ATTRB=ASKIP, *00149
SPACE 00150 INITIAL='FAX:' 00150
F131262 DFHMDF POS=(12,62),LENGTH=03,ATTRB=ASKIP 00151 SPACE 00151
SPACE 00152 F131262 DFHMDF POS=(12,62),LENGTH=03,ATTRB=ASKIP 00152
F131266 DFHMDF POS=(12,66),LENGTH=03,ATTRB=ASKIP 00153 SPACE 00153
SPACE 00154 F131266 DFHMDF POS=(12,66),LENGTH=03,ATTRB=ASKIP 00154
F131270 DFHMDF POS=(12,70),LENGTH=04,ATTRB=ASKIP 00155 SPACE 00155
SPACE 00156 F131270 DFHMDF POS=(12,70),LENGTH=04,ATTRB=ASKIP 00156
F131275 DFHMDF POS=(12,75),LENGTH=05,ATTRB=ASKIP 00157 SPACE 00157
SPACE 00158 F131275 DFHMDF POS=(12,75),LENGTH=05,ATTRB=ASKIP 00158
DFHMDF POS=(13,01),LENGTH=01,ATTRB=ASKIP 00159 SPACE 00159
SPACE 00160 DFHMDF POS=(13,01),LENGTH=01,ATTRB=ASKIP 00160
DFHMDF POS=(13,03),LENGTH=06,ATTRB=ASKIP, *00161 SPACE 00161
INITIAL='EMAIL:' 00162 DFHMDF POS=(13,03),LENGTH=06,ATTRB=ASKIP, *00162
SPACE 00163 INITIAL='EMAIL:' 00163
F131310 DFHMDF POS=(13,10),LENGTH=40,ATTRB=ASKIP 00164 SPACE 00164
SPACE 00165 F131310 DFHMDF POS=(13,10),LENGTH=40,ATTRB=ASKIP 00165
DFHMDF POS=(13,51),LENGTH=01,ATTRB=ASKIP 00166 SPACE 00166
SPACE 00167 DFHMDF POS=(13,51),LENGTH=01,ATTRB=ASKIP 00167
DFHMDF POS=(14,01),LENGTH=12,ATTRB=ASKIP, *00168 SPACE 00168
INITIAL=' DEBIT MEMO?' 00169 DFHMDF POS=(14,01),LENGTH=12,ATTRB=ASKIP, *00169
SPACE 00170 INITIAL=' DEBIT MEMO?' 00170
F131414 DFHMDF POS=(14,14),LENGTH=01,ATTRB=ASKIP 00171 SPACE 00171
SPACE 00172 F131414 DFHMDF POS=(14,14),LENGTH=01,ATTRB=ASKIP 00172
DFHMDF POS=(14,16),LENGTH=01,ATTRB=ASKIP 00173 SPACE 00173
SPACE 00174 DFHMDF POS=(14,16),LENGTH=01,ATTRB=ASKIP 00174
DFHMDF POS=(14,20),LENGTH=13,ATTRB=ASKIP, *00175 SPACE 00175
INITIAL='MISS RPT LTR?' 00176 DFHMDF POS=(14,20),LENGTH=13,ATTRB=ASKIP, *00176
SPACE 00177 INITIAL='MISS RPT LTR?' 00177
F131433 DFHMDF POS=(14,34),LENGTH=01,ATTRB=ASKIP 00178 SPACE 00178
SPACE 00179 F131433 DFHMDF POS=(14,34),LENGTH=01,ATTRB=ASKIP 00179
DFHMDF POS=(14,36),LENGTH=01,ATTRB=ASKIP 00180 SPACE 00180
SPACE 00181 DFHMDF POS=(14,36),LENGTH=01,ATTRB=ASKIP 00181
DFHMDF POS=(14,40),LENGTH=14,ATTRB=ASKIP, *00182 SPACE 00182
INITIAL='PHYSICAL ADDR?' 00183 DFHMDF POS=(14,40),LENGTH=14,ATTRB=ASKIP, *00183
SPACE 00184 INITIAL='PHYSICAL ADDR?' 00184
F131455 DFHMDF POS=(14,55),LENGTH=01,ATTRB=ASKIP 00185 SPACE 00185
SPACE 00186 F131455 DFHMDF POS=(14,55),LENGTH=01,ATTRB=ASKIP 00186
DFHMDF POS=(14,57),LENGTH=01,ATTRB=ASKIP 00187 SPACE 00187
SPACE 00188 DFHMDF POS=(14,57),LENGTH=01,ATTRB=ASKIP 00188
DFHMDF POS=(15,09),LENGTH=17,ATTRB=ASKIP, *00189 SPACE 00189
INITIAL='DC STREET ADDRESS' 00190 DFHMDF POS=(15,09),LENGTH=17,ATTRB=ASKIP, *00190
SPACE 00191 INITIAL='DC STREET ADDRESS' 00191
DFHMDF POS=(16,01),LENGTH=05,ATTRB=ASKIP, *00192 SPACE 00192
INITIAL='ATTN:' 00193 DFHMDF POS=(16,01),LENGTH=05,ATTRB=ASKIP, *00193
SPACE 00194 INITIAL='ATTN:' 00194
F131607 DFHMDF POS=(16,07),LENGTH=40,ATTRB=ASKIP 00195 SPACE 00195
SPACE 00196 F131607 DFHMDF POS=(16,07),LENGTH=40,ATTRB=ASKIP 00196
DFHMDF POS=(16,48),LENGTH=01,ATTRB=ASKIP 00197 SPACE 00197
SPACE 00198 DFHMDF POS=(16,48),LENGTH=01,ATTRB=ASKIP 00198
DFHMDF POS=(16,56),LENGTH=05,ATTRB=ASKIP, *00199 SPACE 00199
INITIAL='CASS?' 00200 DFHMDF POS=(16,56),LENGTH=05,ATTRB=ASKIP, *00200
SPACE 00201 INITIAL='CASS?' 00201
F131662 DFHMDF POS=(16,62),LENGTH=01,ATTRB=ASKIP 00202 SPACE 00202
SPACE 00203 F131662 DFHMDF POS=(16,62),LENGTH=01,ATTRB=ASKIP 00203
DFHMDF POS=(16,64),LENGTH=01,ATTRB=ASKIP 00204 SPACE 00204
SPACE 00205 DFHMDF POS=(16,64),LENGTH=01,ATTRB=ASKIP 00205
DFHMDF POS=(17,01),LENGTH=05,ATTRB=ASKIP, *00206 SPACE 00206
INITIAL='DLV1:' 00207 DFHMDF POS=(17,01),LENGTH=05,ATTRB=ASKIP, *00207
SPACE 00208 INITIAL='DLV1:' 00208
F131707 DFHMDF POS=(17,07),LENGTH=40,ATTRB=ASKIP 00209 SPACE 00209
SPACE 00210 F131707 DFHMDF POS=(17,07),LENGTH=40,ATTRB=ASKIP 00210
DFHMDF POS=(17,48),LENGTH=01,ATTRB=ASKIP 00211 SPACE 00211
SPACE 00212 DFHMDF POS=(17,48),LENGTH=01,ATTRB=ASKIP 00212
DFHMDF POS=(17,56),LENGTH=07,ATTRB=ASKIP, *00213 SPACE 00213
INITIAL='CASS CD' 00214 DFHMDF POS=(17,56),LENGTH=07,ATTRB=ASKIP, *00214
SPACE 00215 INITIAL='CASS CD' 00215
DFHMDF POS=(18,01),LENGTH=05,ATTRB=ASKIP, *00216 SPACE 00216
INITIAL='DLV2:' 00217 DFHMDF POS=(18,01),LENGTH=05,ATTRB=ASKIP, *00217
SPACE 00218 INITIAL='DLV2:' 00218
F131807 DFHMDF POS=(18,07),LENGTH=40,ATTRB=ASKIP 00219 SPACE 00219
SPACE 00220 F131807 DFHMDF POS=(18,07),LENGTH=40,ATTRB=ASKIP 00220
DFHMDF POS=(18,48),LENGTH=01,ATTRB=ASKIP 00221 SPACE 00221
SPACE 00222 DFHMDF POS=(18,48),LENGTH=01,ATTRB=ASKIP 00222
F131854 DFHMDF POS=(18,54),LENGTH=25,ATTRB=ASKIP 00223 SPACE 00223
SPACE 00224 F131854 DFHMDF POS=(18,54),LENGTH=25,ATTRB=ASKIP 00224
DFHMDF POS=(19,01),LENGTH=05,ATTRB=ASKIP, *00225 SPACE 00225
INITIAL='CITY:' 00226 DFHMDF POS=(19,01),LENGTH=05,ATTRB=ASKIP, *00226
SPACE 00227 INITIAL='CITY:' 00227
F131907 DFHMDF POS=(19,07),LENGTH=25,ATTRB=ASKIP 00228 SPACE 00228
SPACE 00229 F131907 DFHMDF POS=(19,07),LENGTH=25,ATTRB=ASKIP 00229
DFHMDF POS=(19,33),LENGTH=01,ATTRB=ASKIP, *00230 SPACE 00230
INITIAL=':' 00231 DFHMDF POS=(19,33),LENGTH=01,ATTRB=ASKIP, *00231
SPACE 00232 INITIAL=':' 00232
F131935 DFHMDF POS=(19,35),LENGTH=02,ATTRB=ASKIP 00233 SPACE 00233
SPACE 00234 F131935 DFHMDF POS=(19,35),LENGTH=02,ATTRB=ASKIP 00234
DFHMDF POS=(19,38),LENGTH=01,ATTRB=ASKIP, *00235 SPACE 00235
INITIAL=':' 00236 DFHMDF POS=(19,38),LENGTH=01,ATTRB=ASKIP, *00236
SPACE 00237 INITIAL=':' 00237
F131940 DFHMDF POS=(19,40),LENGTH=10,ATTRB=ASKIP 00238 SPACE 00238
SPACE 00239 F131940 DFHMDF POS=(19,40),LENGTH=10,ATTRB=ASKIP 00239
DFHMDF POS=(19,51),LENGTH=01,ATTRB=ASKIP 00240 SPACE 00240
SPACE 00241 DFHMDF POS=(19,51),LENGTH=01,ATTRB=ASKIP 00241
DFHMDF POS=(20,01),LENGTH=05,ATTRB=ASKIP, *00242 SPACE 00242
INITIAL='TEL1:' 00243 DFHMDF POS=(20,01),LENGTH=05,ATTRB=ASKIP, *00243
SPACE 00244 INITIAL='TEL1:' 00244
F132007 DFHMDF POS=(20,07),LENGTH=03,ATTRB=ASKIP 00245 SPACE 00245
SPACE 00246 F132007 DFHMDF POS=(20,07),LENGTH=03,ATTRB=ASKIP 00246
F132011 DFHMDF POS=(20,11),LENGTH=03,ATTRB=ASKIP 00247 SPACE 00247
SPACE 00248 F132011 DFHMDF POS=(20,11),LENGTH=03,ATTRB=ASKIP 00248
F132015 DFHMDF POS=(20,15),LENGTH=04,ATTRB=ASKIP 00249 SPACE 00249
SPACE 00250 F132015 DFHMDF POS=(20,15),LENGTH=04,ATTRB=ASKIP 00250
F132020 DFHMDF POS=(20,20),LENGTH=05,ATTRB=ASKIP 00251 SPACE 00251
SPACE 00252 F132020 DFHMDF POS=(20,20),LENGTH=05,ATTRB=ASKIP 00252
DFHMDF POS=(20,26),LENGTH=01,ATTRB=ASKIP 00253 SPACE 00253
SPACE 00254 DFHMDF POS=(20,26),LENGTH=01,ATTRB=ASKIP 00254
DFHMDF POS=(20,29),LENGTH=05,ATTRB=ASKIP, *00255 SPACE 00255
INITIAL='TEL2:' 00256 DFHMDF POS=(20,29),LENGTH=05,ATTRB=ASKIP, *00256
SPACE 00257 INITIAL='TEL2:' 00257
F132035 DFHMDF POS=(20,35),LENGTH=03,ATTRB=ASKIP 00258 SPACE 00258
SPACE 00259 F132035 DFHMDF POS=(20,35),LENGTH=03,ATTRB=ASKIP 00259
F132039 DFHMDF POS=(20,39),LENGTH=03,ATTRB=ASKIP 00260 SPACE 00260
SPACE 00261 F132039 DFHMDF POS=(20,39),LENGTH=03,ATTRB=ASKIP 00261
F132043 DFHMDF POS=(20,43),LENGTH=04,ATTRB=ASKIP 00262 SPACE 00262
SPACE 00263 F132043 DFHMDF POS=(20,43),LENGTH=04,ATTRB=ASKIP 00263
F132048 DFHMDF POS=(20,48),LENGTH=05,ATTRB=ASKIP 00264 SPACE 00264
SPACE 00265 F132048 DFHMDF POS=(20,48),LENGTH=05,ATTRB=ASKIP 00265
DFHMDF POS=(20,54),LENGTH=01,ATTRB=ASKIP 00266 SPACE 00266
SPACE 00267 DFHMDF POS=(20,54),LENGTH=01,ATTRB=ASKIP 00267
DFHMDF POS=(20,57),LENGTH=04,ATTRB=ASKIP, *00268 SPACE 00268
INITIAL='FAX:' 00269 DFHMDF POS=(20,57),LENGTH=04,ATTRB=ASKIP, *00269
SPACE 00270 INITIAL='FAX:' 00270
F132062 DFHMDF POS=(20,62),LENGTH=03,ATTRB=ASKIP 00271 SPACE 00271
SPACE 00272 F132062 DFHMDF POS=(20,62),LENGTH=03,ATTRB=ASKIP 00272
F132066 DFHMDF POS=(20,66),LENGTH=03,ATTRB=ASKIP 00273 SPACE 00273
SPACE 00274 F132066 DFHMDF POS=(20,66),LENGTH=03,ATTRB=ASKIP 00274
F132070 DFHMDF POS=(20,70),LENGTH=04,ATTRB=ASKIP 00275 SPACE 00275
SPACE 00276 F132070 DFHMDF POS=(20,70),LENGTH=04,ATTRB=ASKIP 00276
F132075 DFHMDF POS=(20,75),LENGTH=05,ATTRB=ASKIP 00277 SPACE 00277
SPACE 00278 F132075 DFHMDF POS=(20,75),LENGTH=05,ATTRB=ASKIP 00278
DFHMDF POS=(21,01),LENGTH=01,ATTRB=ASKIP 00279 SPACE 00279
SPACE 00280 DFHMDF POS=(21,01),LENGTH=01,ATTRB=ASKIP 00280
DFHMDF POS=(21,03),LENGTH=06,ATTRB=ASKIP, *00281 SPACE 00281
INITIAL='EMAIL:' 00282 DFHMDF POS=(21,03),LENGTH=06,ATTRB=ASKIP, *00282
SPACE 00283 INITIAL='EMAIL:' 00283
F132110 DFHMDF POS=(21,10),LENGTH=40,ATTRB=ASKIP 00284 SPACE 00284
SPACE 00285 F132110 DFHMDF POS=(21,10),LENGTH=40,ATTRB=ASKIP 00285
DFHMDF POS=(21,51),LENGTH=01,ATTRB=ASKIP 00286 SPACE 00286
SPACE 00287 DFHMDF POS=(21,51),LENGTH=01,ATTRB=ASKIP 00287
DFHMDF POS=(22,01),LENGTH=12,ATTRB=ASKIP, *00288 SPACE 00288
INITIAL=' DEBIT MEMO?' 00289 DFHMDF POS=(22,01),LENGTH=12,ATTRB=ASKIP, *00289
SPACE 00290 INITIAL=' DEBIT MEMO?' 00290
F132214 DFHMDF POS=(22,14),LENGTH=01,ATTRB=ASKIP 00291 SPACE 00291
SPACE 00292 F132214 DFHMDF POS=(22,14),LENGTH=01,ATTRB=ASKIP 00292
DFHMDF POS=(22,16),LENGTH=01,ATTRB=ASKIP 00293 SPACE 00293
SPACE 00294 DFHMDF POS=(22,16),LENGTH=01,ATTRB=ASKIP 00294
DFHMDF POS=(22,20),LENGTH=13,ATTRB=ASKIP, *00295 SPACE 00295
INITIAL='MISS RPT LTR?' 00296 DFHMDF POS=(22,20),LENGTH=13,ATTRB=ASKIP, *00296
SPACE 00297 INITIAL='MISS RPT LTR?' 00297
F132233 DFHMDF POS=(22,34),LENGTH=01,ATTRB=ASKIP 00298 SPACE 00298
SPACE 00299 F132233 DFHMDF POS=(22,34),LENGTH=01,ATTRB=ASKIP 00299
DFHMDF POS=(22,36),LENGTH=01,ATTRB=ASKIP 00300 SPACE 00300
SPACE 00301 DFHMDF POS=(22,36),LENGTH=01,ATTRB=ASKIP 00301
DFHMDF POS=(22,40),LENGTH=14,ATTRB=ASKIP, *00302 SPACE 00302
INITIAL='PHYSICAL ADDR?' 00303 DFHMDF POS=(22,40),LENGTH=14,ATTRB=ASKIP, *00303
SPACE 00304 INITIAL='PHYSICAL ADDR?' 00304
F132255 DFHMDF POS=(22,55),LENGTH=01,ATTRB=ASKIP 00305 SPACE 00305
SPACE 00306 F132255 DFHMDF POS=(22,55),LENGTH=01,ATTRB=ASKIP 00306
DFHMDF POS=(22,57),LENGTH=01,ATTRB=ASKIP 00307 SPACE 00307
SPACE 00308 DFHMDF POS=(22,57),LENGTH=01,ATTRB=ASKIP 00308
F132317 DFHMDF POS=(23,17),LENGTH=07,ATTRB=ASKIP 00309 SPACE 00309
SPACE 00310 F132317 DFHMDF POS=(23,17),LENGTH=07,ATTRB=ASKIP 00310
F132401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00311 SPACE 00311
SPACE 00312 F132401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00312
F132410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00313 SPACE 00313
SPACE 00314 F132410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00314
DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00315 SPACE 00315
INITIAL='GO TO:' 00316 DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00316
SPACE 00317 INITIAL='GO TO:' 00317
F132476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00318 SPACE 00318
SPACE 00319 F132476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00319
DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00320 SPACE 00320
DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00321

1019
Maps/DTSM44.bms
View File

File diff suppressed because it is too large Load Diff

14
Maps/DTSMSET.cpy
View File

@ -12298,16 +12298,6 @@
02 FILLER REDEFINES F440319F. 02 FILLER REDEFINES F440319F.
04 F440319A PIC X. 04 F440319A PIC X.
02 F440319I PIC X(10). 02 F440319I PIC X(10).
02 F440352L PIC S9(4) COMP-5.
02 F440352F PIC X(1).
02 FILLER REDEFINES F440352F.
04 F440352A PIC X.
02 F440352I PIC X(2).
02 F440355L PIC S9(4) COMP-5.
02 F440355F PIC X(1).
02 FILLER REDEFINES F440355F.
04 F440355A PIC X.
02 F440355I PIC X(10).
02 F440372L PIC S9(4) COMP-5. 02 F440372L PIC S9(4) COMP-5.
02 F440372F PIC X(1). 02 F440372F PIC X(1).
02 FILLER REDEFINES F440372F. 02 FILLER REDEFINES F440372F.
@ -12964,10 +12954,6 @@
02 FILLER PIC X(3). 02 FILLER PIC X(3).
02 F440319O PIC X(10). 02 F440319O PIC X(10).
02 FILLER PIC X(3). 02 FILLER PIC X(3).
02 F440352O PIC X(2).
02 FILLER PIC X(3).
02 F440355O PIC X(10).
02 FILLER PIC X(3).
02 F440372O PIC X(2). 02 F440372O PIC X(2).
02 FILLER PIC X(3). 02 FILLER PIC X(3).
02 F440378O PIC X(2). 02 F440378O PIC X(2).

35
Maps/DTSMSET.xml
View File

@ -34863,41 +34863,6 @@
Intensity="NORM" Intensity="NORM"
/> />
</BMSField> </BMSField>
<BMSField
Length="13"
Initial="FIELD REP ID:"
Line="3"
Col="38"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="F440352"
Length="2"
Line="3"
Col="52"
ByteLength="5"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField
Name="F440355"
Length="10"
Line="3"
Col="55"
ByteLength="13"
>
<BMSFieldAttributes
Protection="ASKIP"
Intensity="NORM"
/>
</BMSField>
<BMSField <BMSField
Name="F440372" Name="F440372"
Length="2" Length="2"