DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
320
Maps/DTSM11.bms
Normal file
320
Maps/DTSM11.bms
Normal file
@ -0,0 +1,320 @@
|
||||
* DATA SET DTSM11 AT LEVEL 022 AS OF 12/17/04
|
||||
* DATA SET DTSM11 AT LEVEL 001 AS OF 11/30/04 00001
|
||||
* DATA SET DTSM11 AT LEVEL 020 AS OF 11/30/04 00002
|
||||
* DATA SET DTSM11 AT LEVEL 004 AS OF 10/28/04 00003
|
||||
* DATA SET DTSM11 AT LEVEL 018 AS OF 06/29/02 00004
|
||||
* DATA SET DTSM11 AT LEVEL 001 AS OF 05/10/02 00005
|
||||
* DATA SET DTSM11 AT LEVEL 005 AS OF 04/23/02 00006
|
||||
* DATA SET DTSM11 AT LEVEL 016 AS OF 08/23/99 00007
|
||||
* DATA SET MACM11 AT LEVEL 011 AS OF 10/03/95 00008
|
||||
***** 00009
|
||||
* 00010
|
||||
* 11 REGISTRATION INQUIRY 00011
|
||||
* 00012
|
||||
* 00013
|
||||
* 05/13/1999 ADDED PKUP DUE? FIELD. 00014
|
||||
* REFERENCE: PICKUP DIR PROGRAMMER: EHH 00015
|
||||
* 00016
|
||||
***** 00017
|
||||
SPACE 00018
|
||||
DTSM11 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1,EXTATT=MAPONLY 00019
|
||||
SPACE 00020
|
||||
F110101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00021
|
||||
INITIAL='11' 00022
|
||||
SPACE 00023
|
||||
DFHMDF POS=(01,24),LENGTH=20,ATTRB=(ASKIP), *00024
|
||||
INITIAL='REGISTRATION INQUIRY' 00025
|
||||
SPACE 00026
|
||||
F110162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00027
|
||||
SPACE 00028
|
||||
F110172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00029
|
||||
SPACE 00030
|
||||
DFHMDF POS=(02,02),LENGTH=07,ATTRB=ASKIP, *00031
|
||||
INITIAL='EMP NO:' 00032
|
||||
SPACE 00033
|
||||
F110210 DFHMDF POS=(02,10),LENGTH=03,ATTRB=ASKIP 00034
|
||||
SPACE 00035
|
||||
F110214 DFHMDF POS=(02,14),LENGTH=03,ATTRB=ASKIP 00036
|
||||
SPACE 00037
|
||||
DFHMDF POS=(02,18),LENGTH=01,ATTRB=ASKIP 00038
|
||||
SPACE 00039
|
||||
F110220 DFHMDF POS=(02,20),LENGTH=40,ATTRB=ASKIP 00040
|
||||
SPACE 00041
|
||||
F110272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00042
|
||||
SPACE 00043
|
||||
DFHMDF POS=(03,01),LENGTH=12,ATTRB=ASKIP, *00044
|
||||
INITIAL='ENTITY NAME:' 00045
|
||||
SPACE 00046
|
||||
F110320 DFHMDF POS=(03,20),LENGTH=40,ATTRB=ASKIP 00047
|
||||
SPACE 00048
|
||||
DFHMDF POS=(04,59),LENGTH=06,ATTRB=ASKIP, *00049
|
||||
INITIAL='CLASS:' 00050
|
||||
SPACE 00051
|
||||
F110466 DFHMDF POS=(04,66),LENGTH=10,ATTRB=ASKIP 00052
|
||||
SPACE 00053
|
||||
DFHMDF POS=(05,16),LENGTH=15,ATTRB=ASKIP, *00054
|
||||
INITIAL='MAILING ADDRESS' 00055
|
||||
SPACE 00056
|
||||
DFHMDF POS=(05,58),LENGTH=07,ATTRB=ASKIP, *00057
|
||||
INITIAL='STATUS:' 00058
|
||||
SPACE 00059
|
||||
F110566 DFHMDF POS=(05,66),LENGTH=10,ATTRB=ASKIP 00060
|
||||
SPACE 00061
|
||||
DFHMDF POS=(06,02),LENGTH=05,ATTRB=ASKIP, *00062
|
||||
INITIAL='ATTN:' 00063
|
||||
SPACE 00064
|
||||
F110608 DFHMDF POS=(06,08),LENGTH=40,ATTRB=ASKIP 00065
|
||||
SPACE 00066
|
||||
DFHMDF POS=(06,60),LENGTH=05,ATTRB=ASKIP, *00067
|
||||
INITIAL='LIAB:' 00068
|
||||
SPACE 00069
|
||||
F110666 DFHMDF POS=(06,66),LENGTH=08,ATTRB=ASKIP 00070
|
||||
SPACE 00071
|
||||
F110676 DFHMDF POS=(06,76),LENGTH=04,ATTRB=ASKIP 00072
|
||||
SPACE 00073
|
||||
DFHMDF POS=(07,02),LENGTH=05,ATTRB=ASKIP, *00074
|
||||
INITIAL='DLV1:' 00075
|
||||
SPACE 00076
|
||||
F110708 DFHMDF POS=(07,08),LENGTH=40,ATTRB=ASKIP 00077
|
||||
SPACE 00078
|
||||
DFHMDF POS=(07,55),LENGTH=10,ATTRB=ASKIP, *00079
|
||||
INITIAL='LIAB ESTB:' 00080
|
||||
SPACE 00081
|
||||
F110766 DFHMDF POS=(07,66),LENGTH=08,ATTRB=ASKIP 00082
|
||||
SPACE 00083
|
||||
DFHMDF POS=(08,02),LENGTH=05,ATTRB=ASKIP, *00084
|
||||
INITIAL='DLV2:' 00085
|
||||
SPACE 00086
|
||||
F110808 DFHMDF POS=(08,08),LENGTH=40,ATTRB=ASKIP 00087
|
||||
SPACE 00088
|
||||
DFHMDF POS=(08,55),LENGTH=10,ATTRB=ASKIP, *00089
|
||||
INITIAL='LIAB ENTR:' 00090
|
||||
SPACE 00091
|
||||
F110866 DFHMDF POS=(08,66),LENGTH=08,ATTRB=ASKIP 00092
|
||||
SPACE 00093
|
||||
DFHMDF POS=(09,02),LENGTH=05,ATTRB=ASKIP, *00094
|
||||
INITIAL='CITY:' 00095
|
||||
SPACE 00096
|
||||
F110908 DFHMDF POS=(09,08),LENGTH=25,ATTRB=ASKIP 00097
|
||||
SPACE 00098
|
||||
F110934 DFHMDF POS=(09,34),LENGTH=02,ATTRB=ASKIP 00099
|
||||
SPACE 00100
|
||||
F110938 DFHMDF POS=(09,38),LENGTH=10,ATTRB=ASKIP 00101
|
||||
SPACE 00102
|
||||
DFHMDF POS=(09,55),LENGTH=10,ATTRB=ASKIP, *00103
|
||||
INITIAL='LIAB CODE:' 00104
|
||||
SPACE 00105
|
||||
F110966 DFHMDF POS=(09,66),LENGTH=02,ATTRB=ASKIP 00106
|
||||
SPACE 00107
|
||||
F110970 DFHMDF POS=(09,70),LENGTH=10,ATTRB=ASKIP 00108
|
||||
SPACE 00109
|
||||
F111055 DFHMDF POS=(10,30),LENGTH=15,ATTRB=ASKIP,COLOR=RED 00110
|
||||
SPACE 00111
|
||||
DFHMDF POS=(10,54),LENGTH=11,ATTRB=ASKIP, *00112
|
||||
INITIAL='LAST AUDIT:' 00113
|
||||
SPACE 00114
|
||||
F111066 DFHMDF POS=(10,66),LENGTH=04,ATTRB=ASKIP 00115
|
||||
SPACE 00116
|
||||
DFHMDF POS=(11,16),LENGTH=10,ATTRB=ASKIP, *00117
|
||||
INITIAL='DC ADDRESS' 00118
|
||||
SPACE 00119
|
||||
DFHMDF POS=(12,02),LENGTH=05,ATTRB=ASKIP, *00120
|
||||
INITIAL='ATTN:' 00121
|
||||
SPACE 00122
|
||||
F111208 DFHMDF POS=(12,08),LENGTH=40,ATTRB=ASKIP 00123
|
||||
SPACE 00124
|
||||
DFHMDF POS=(12,60),LENGTH=05,ATTRB=ASKIP, *00125
|
||||
INITIAL='INAC:' 00126
|
||||
SPACE 00127
|
||||
F111266 DFHMDF POS=(12,66),LENGTH=08,ATTRB=ASKIP 00128
|
||||
SPACE 00129
|
||||
F111276 DFHMDF POS=(12,76),LENGTH=04,ATTRB=ASKIP 00130
|
||||
SPACE 00131
|
||||
DFHMDF POS=(13,02),LENGTH=05,ATTRB=ASKIP, *00132
|
||||
INITIAL='DLV1:' 00133
|
||||
SPACE 00134
|
||||
F111308 DFHMDF POS=(13,08),LENGTH=40,ATTRB=ASKIP 00135
|
||||
SPACE 00136
|
||||
DFHMDF POS=(13,55),LENGTH=10,ATTRB=ASKIP, *00137
|
||||
INITIAL='INAC ENTR:' 00138
|
||||
SPACE 00139
|
||||
F111366 DFHMDF POS=(13,66),LENGTH=08,ATTRB=ASKIP 00140
|
||||
SPACE 00141
|
||||
DFHMDF POS=(14,02),LENGTH=05,ATTRB=ASKIP, *00142
|
||||
INITIAL='DLV2:' 00143
|
||||
SPACE 00144
|
||||
F111408 DFHMDF POS=(14,08),LENGTH=40,ATTRB=ASKIP 00145
|
||||
SPACE 00146
|
||||
DFHMDF POS=(14,55),LENGTH=10,ATTRB=ASKIP, *00147
|
||||
INITIAL='INAC CODE:' 00148
|
||||
SPACE 00149
|
||||
F111466 DFHMDF POS=(14,66),LENGTH=02,ATTRB=ASKIP 00150
|
||||
SPACE 00151
|
||||
F111470 DFHMDF POS=(14,70),LENGTH=10,ATTRB=ASKIP 00152
|
||||
SPACE 00153
|
||||
DFHMDF POS=(15,02),LENGTH=05,ATTRB=ASKIP, *00154
|
||||
INITIAL='CITY:' 00155
|
||||
SPACE 00156
|
||||
F111508 DFHMDF POS=(15,08),LENGTH=25,ATTRB=ASKIP 00157
|
||||
SPACE 00158
|
||||
F111534 DFHMDF POS=(15,34),LENGTH=02,ATTRB=ASKIP 00159
|
||||
SPACE 00160
|
||||
F111538 DFHMDF POS=(15,38),LENGTH=10,ATTRB=ASKIP 00161
|
||||
SPACE 00162
|
||||
DFHMDF POS=(15,58),LENGTH=07,ATTRB=ASKIP, *00163
|
||||
INITIAL='#SPANS:' 00164
|
||||
SPACE 00165
|
||||
F111566 DFHMDF POS=(15,66),LENGTH=03,ATTRB=ASKIP 00166
|
||||
SPACE 00167
|
||||
DFHMDF POS=(16,56),LENGTH=09,ATTRB=ASKIP, *00168
|
||||
INITIAL='ORG TYPE:' 00169
|
||||
SPACE 00170
|
||||
F111666 DFHMDF POS=(16,66),LENGTH=03,ATTRB=ASKIP 00171
|
||||
SPACE 00172
|
||||
F111670 DFHMDF POS=(16,70),LENGTH=10,ATTRB=ASKIP 00173
|
||||
SPACE 00174
|
||||
DFHMDF POS=(17,03),LENGTH=08,ATTRB=ASKIP, *00175
|
||||
INITIAL='COLLECT?' 00176
|
||||
SPACE 00177
|
||||
F111712 DFHMDF POS=(17,12),LENGTH=01,ATTRB=ASKIP 00178
|
||||
SPACE 00179
|
||||
DFHMDF POS=(17,18),LENGTH=10,ATTRB=ASKIP, *00180
|
||||
INITIAL='#OPEN APL:' 00181
|
||||
SPACE 00182
|
||||
F111729 DFHMDF POS=(17,29),LENGTH=03,ATTRB=ASKIP 00183
|
||||
SPACE 00184
|
||||
DFHMDF POS=(17,39),LENGTH=10,ATTRB=ASKIP, *00185
|
||||
INITIAL='EFF UIRTE' 00186
|
||||
SPACE 00187
|
||||
DFHMDF POS=(17,57),LENGTH=08,ATTRB=ASKIP, *00188
|
||||
INITIAL='FLD REP:' 00189
|
||||
SPACE 00190
|
||||
F111766 DFHMDF POS=(17,66),LENGTH=02,ATTRB=ASKIP 00191
|
||||
SPACE 00192
|
||||
F111770 DFHMDF POS=(17,70),LENGTH=10,ATTRB=ASKIP 00193
|
||||
SPACE 00194
|
||||
DFHMDF POS=(18,04),LENGTH=07,ATTRB=ASKIP, *00195
|
||||
INITIAL='CREDIT?' 00196
|
||||
SPACE 00197
|
||||
F111812 DFHMDF POS=(18,12),LENGTH=01,ATTRB=ASKIP 00198
|
||||
SPACE 00199
|
||||
DFHMDF POS=(18,18),LENGTH=10,ATTRB=ASKIP, *00200
|
||||
INITIAL='#OPN LIEN:' 00201
|
||||
SPACE 00202
|
||||
F111829 DFHMDF POS=(18,29),LENGTH=03,ATTRB=ASKIP 00203
|
||||
SPACE 00204
|
||||
F111838 DFHMDF POS=(18,38),LENGTH=04,ATTRB=ASKIP 00205
|
||||
SPACE 00206
|
||||
F111844 DFHMDF POS=(18,44),LENGTH=05,ATTRB=ASKIP 00207
|
||||
SPACE 00208
|
||||
DFHMDF POS=(18,60),LENGTH=05,ATTRB=ASKIP, *00209
|
||||
INITIAL='PRED:' 00210
|
||||
SPACE 00211
|
||||
F111866 DFHMDF POS=(18,66),LENGTH=03,ATTRB=ASKIP 00212
|
||||
SPACE 00213
|
||||
F111870 DFHMDF POS=(18,70),LENGTH=03,ATTRB=ASKIP 00214
|
||||
SPACE 00215
|
||||
DFHMDF POS=(18,74),LENGTH=02,ATTRB=ASKIP, *00216
|
||||
INITIAL='#:' 00217
|
||||
SPACE 00218
|
||||
F111877 DFHMDF POS=(18,77),LENGTH=03,ATTRB=ASKIP 00219
|
||||
SPACE 00220
|
||||
DFHMDF POS=(19,01),LENGTH=10,ATTRB=ASKIP, *00221
|
||||
INITIAL='WRITE OFF?' 00222
|
||||
SPACE 00223
|
||||
F111912 DFHMDF POS=(19,12),LENGTH=01,ATTRB=ASKIP 00224
|
||||
SPACE 00225
|
||||
DFHMDF POS=(19,18),LENGTH=10,ATTRB=ASKIP, *00226
|
||||
INITIAL='#OPEN FLD:' 00227
|
||||
SPACE 00228
|
||||
F111929 DFHMDF POS=(19,29),LENGTH=03,ATTRB=ASKIP 00229
|
||||
SPACE 00230
|
||||
F111938 DFHMDF POS=(19,38),LENGTH=04,ATTRB=ASKIP 00231
|
||||
SPACE 00232
|
||||
F111944 DFHMDF POS=(19,44),LENGTH=05,ATTRB=ASKIP 00233
|
||||
SPACE 00234
|
||||
DFHMDF POS=(19,61),LENGTH=04,ATTRB=ASKIP, *00235
|
||||
INITIAL='SUC:' 00236
|
||||
SPACE 00237
|
||||
F111966 DFHMDF POS=(19,66),LENGTH=03,ATTRB=ASKIP 00238
|
||||
SPACE 00239
|
||||
F111970 DFHMDF POS=(19,70),LENGTH=03,ATTRB=ASKIP 00240
|
||||
SPACE 00241
|
||||
DFHMDF POS=(19,74),LENGTH=02,ATTRB=ASKIP, *00242
|
||||
INITIAL='#:' 00243
|
||||
SPACE 00244
|
||||
F111977 DFHMDF POS=(19,77),LENGTH=03,ATTRB=ASKIP 00245
|
||||
SPACE 00246
|
||||
DFHMDF POS=(20,02),LENGTH=09,ATTRB=ASKIP, *00247
|
||||
INITIAL='OPEN BNK?' 00248
|
||||
SPACE 00249
|
||||
F112012 DFHMDF POS=(20,12),LENGTH=01,ATTRB=ASKIP 00250
|
||||
SPACE 00251
|
||||
DFHMDF POS=(20,21),LENGTH=07,ATTRB=ASKIP, *00252
|
||||
INITIAL='#NOTES:' 00253
|
||||
SPACE 00254
|
||||
F112029 DFHMDF POS=(20,29),LENGTH=03,ATTRB=ASKIP 00255
|
||||
SPACE 00256
|
||||
F112038 DFHMDF POS=(20,38),LENGTH=04,ATTRB=ASKIP 00257
|
||||
SPACE 00258
|
||||
F112044 DFHMDF POS=(20,44),LENGTH=05,ATTRB=ASKIP 00259
|
||||
SPACE 00260
|
||||
DFHMDF POS=(20,60),LENGTH=05,ATTRB=ASKIP, *00261
|
||||
INITIAL='FEIN:' 00262
|
||||
SPACE 00263
|
||||
F112066 DFHMDF POS=(20,66),LENGTH=02,ATTRB=ASKIP 00264
|
||||
SPACE 00265
|
||||
F112069 DFHMDF POS=(20,69),LENGTH=07,ATTRB=ASKIP 00266
|
||||
SPACE 00267
|
||||
DFHMDF POS=(21,02),LENGTH=09,ATTRB=ASKIP, *00268
|
||||
INITIAL='OPEN DPC?' 00269
|
||||
SPACE 00270
|
||||
F112112 DFHMDF POS=(21,12),LENGTH=01,ATTRB=ASKIP 00271
|
||||
SPACE 00272
|
||||
DFHMDF POS=(21,18),LENGTH=10,ATTRB=ASKIP, *00273
|
||||
INITIAL='#ALT ADDR:' 00274
|
||||
SPACE 00275
|
||||
F112129 DFHMDF POS=(21,29),LENGTH=03,ATTRB=ASKIP 00276
|
||||
SPACE 00277
|
||||
F112138 DFHMDF POS=(21,38),LENGTH=04,ATTRB=ASKIP 00278
|
||||
SPACE 00279
|
||||
F112144 DFHMDF POS=(21,44),LENGTH=05,ATTRB=ASKIP 00280
|
||||
SPACE 00281
|
||||
DFHMDF POS=(21,61),LENGTH=04,ATTRB=ASKIP, *00282
|
||||
INITIAL='BTN:' 00283
|
||||
SPACE 00284
|
||||
F112166 DFHMDF POS=(21,66),LENGTH=09,ATTRB=ASKIP 00285
|
||||
SPACE 00286
|
||||
DFHMDF POS=(22,02),LENGTH=09,ATTRB=ASKIP, *00287
|
||||
INITIAL='PKUP DUE?' 00288
|
||||
SPACE 00289
|
||||
F112212 DFHMDF POS=(22,12),LENGTH=01,ATTRB=ASKIP 00290
|
||||
SPACE 00291
|
||||
DFHMDF POS=(22,23),LENGTH=05,ATTRB=ASKIP, *00292
|
||||
INITIAL='#OPO:' 00293
|
||||
SPACE 00294
|
||||
F112229 DFHMDF POS=(22,29),LENGTH=03,ATTRB=ASKIP 00295
|
||||
SPACE 00296
|
||||
F112238 DFHMDF POS=(22,38),LENGTH=04,ATTRB=ASKIP 00297
|
||||
SPACE 00298
|
||||
F112244 DFHMDF POS=(22,44),LENGTH=05,ATTRB=ASKIP 00299
|
||||
SPACE 00300
|
||||
DFHMDF POS=(22,55),LENGTH=10,ATTRB=ASKIP, *00301
|
||||
INITIAL='PURGE IND:' 00302
|
||||
SPACE 00303
|
||||
F112266 DFHMDF POS=(22,66),LENGTH=01,ATTRB=ASKIP 00304
|
||||
SPACE 00305
|
||||
F112346 DFHMDF POS=(23,46),LENGTH=08,ATTRB=ASKIP 00306
|
||||
SPACE 00307
|
||||
F112356 DFHMDF POS=(23,56),LENGTH=07,ATTRB=ASKIP 00308
|
||||
SPACE 00309
|
||||
F112401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00310
|
||||
SPACE 00311
|
||||
F112410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00312
|
||||
SPACE 00313
|
||||
DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00314
|
||||
INITIAL='GO TO:' 00315
|
||||
SPACE 00316
|
||||
F112476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00317
|
||||
SPACE 00318
|
||||
DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00319
|
||||
Reference in New Issue
Block a user