DUTAS re-platformed to Raincode - Initial Source Code

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

176
Maps/DTSM82.bms Normal file
View File

@ -0,0 +1,176 @@
* DATA SET DTSM82 AT LEVEL 014 AS OF 04/01/13
* DATA SET DTSM82 AT LEVEL 002 AS OF 02/21/13 00001
* DATA SET DTSM82 AT LEVEL 012 AS OF 02/19/10 00002
* DATA SET DTSM82 AT LEVEL 006 AS OF 02/18/10 00003
* DATA SET DTSM82 AT LEVEL 010 AS OF 05/07/02 00004
* DATA SET DTSM82 AT LEVEL 003 AS OF 04/24/02 00005
* DATA SET DTSM82 AT LEVEL 008 AS OF 09/22/98 00006
* DATA SET MACM82 AT LEVEL 004 AS OF 01/23/95 00007
***** 00008
* 00009
* 82 QUARTER INQUIRY/UPDATE. 00010
* 00011
***** 00012
SPACE 00013
DTSM82 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00014
SPACE 00015
F820101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00016
INITIAL='82' 00017
SPACE 00018
DFHMDF POS=(01,15),LENGTH=31,ATTRB=(ASKIP), *00019
INITIAL='CALENDAR QUARTER INQUIRY/UPDATE' 00020
SPACE 00021
F820162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00022
SPACE 00023
F820172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00024
SPACE 00025
F820272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00026
SPACE 00027
DFHMDF POS=(03,19),LENGTH=08,ATTRB=ASKIP, *00028
INITIAL='QUARTER:' 00029
SPACE 00030
F820328 DFHMDF POS=(03,28),LENGTH=02,ATTRB=ASKIP 00031
SPACE 00032
F820331 DFHMDF POS=(03,31),LENGTH=01,ATTRB=ASKIP 00033
SPACE 00034
DFHMDF POS=(03,33),LENGTH=01,ATTRB=ASKIP 00035
SPACE 00036
DFHMDF POS=(05,08),LENGTH=19,ATTRB=ASKIP, *00037
INITIAL='UC-30 MASS MAILING:' 00038
SPACE 00039
F820528 DFHMDF POS=(05,28),LENGTH=02,ATTRB=ASKIP 00040
SPACE 00041
F820531 DFHMDF POS=(05,31),LENGTH=02,ATTRB=ASKIP 00042
SPACE 00043
F820534 DFHMDF POS=(05,34),LENGTH=02,ATTRB=ASKIP 00044
SPACE 00045
DFHMDF POS=(05,37),LENGTH=01,ATTRB=ASKIP 00046
SPACE 00047
DFHMDF POS=(05,40),LENGTH=26,ATTRB=ASKIP, *00048
INITIAL=' SELF INSURED CHARGES RUN:' 00049
SPACE 00050
F820567 DFHMDF POS=(05,67),LENGTH=02,ATTRB=ASKIP 00051
SPACE 00052
F820570 DFHMDF POS=(05,70),LENGTH=02,ATTRB=ASKIP 00053
SPACE 00054
F820571 DFHMDF POS=(05,73),LENGTH=02,ATTRB=ASKIP 00055
SPACE 00056
DFHMDF POS=(05,76),LENGTH=01,ATTRB=ASKIP 00057
SPACE 00058
DFHMDF POS=(07,05),LENGTH=22,ATTRB=ASKIP, *00059
INITIAL='LATE PENALTY ASSESSED:' 00060
SPACE 00061
F820728 DFHMDF POS=(07,28),LENGTH=02,ATTRB=ASKIP 00062
SPACE 00063
F820731 DFHMDF POS=(07,31),LENGTH=02,ATTRB=ASKIP 00064
SPACE 00065
F820734 DFHMDF POS=(07,34),LENGTH=02,ATTRB=ASKIP 00066
SPACE 00067
DFHMDF POS=(07,37),LENGTH=01,ATTRB=ASKIP 00068
SPACE 00069
DFHMDF POS=(07,44),LENGTH=22,ATTRB=ASKIP, *00070
INITIAL=' SELF INSURED TAX DUE:' 00071
SPACE 00072
F820767 DFHMDF POS=(07,67),LENGTH=02,ATTRB=ASKIP 00073
SPACE 00074
F820770 DFHMDF POS=(07,70),LENGTH=02,ATTRB=ASKIP 00075
SPACE 00076
F820773 DFHMDF POS=(07,73),LENGTH=02,ATTRB=ASKIP 00077
SPACE 00078
DFHMDF POS=(07,76),LENGTH=01,ATTRB=ASKIP 00079
SPACE 00080
DFHMDF POS=(09,04),LENGTH=23,ATTRB=ASKIP, *00081
INITIAL='UC-30 FIRST DELINQUENT:' 00082
SPACE 00083
F820928 DFHMDF POS=(09,28),LENGTH=02,ATTRB=ASKIP 00084
SPACE 00085
F820931 DFHMDF POS=(09,31),LENGTH=02,ATTRB=ASKIP 00086
SPACE 00087
F820934 DFHMDF POS=(09,34),LENGTH=02,ATTRB=ASKIP 00088
SPACE 00089
DFHMDF POS=(09,37),LENGTH=01,ATTRB=ASKIP 00090
SPACE 00091
DFHMDF POS=(09,40),LENGTH=26,ATTRB=ASKIP, *00092
INITIAL=' SELF INSURED 2ND LETTER:' 00093
SPACE 00094
F820967 DFHMDF POS=(09,67),LENGTH=02,ATTRB=ASKIP 00095
SPACE 00096
F820970 DFHMDF POS=(09,70),LENGTH=02,ATTRB=ASKIP 00097
SPACE 00098
F820973 DFHMDF POS=(09,73),LENGTH=02,ATTRB=ASKIP 00099
SPACE 00100
DFHMDF POS=(09,76),LENGTH=01,ATTRB=ASKIP 00101
SPACE 00102
DFHMDF POS=(11,04),LENGTH=23,ATTRB=ASKIP, *00103
INITIAL=' UC-30 2ND DELINQUENT:' 00104
SPACE 00105
F821128 DFHMDF POS=(11,28),LENGTH=02,ATTRB=ASKIP 00106
SPACE 00107
F821131 DFHMDF POS=(11,31),LENGTH=02,ATTRB=ASKIP 00108
SPACE 00109
F821134 DFHMDF POS=(11,34),LENGTH=02,ATTRB=ASKIP 00110
SPACE 00111
DFHMDF POS=(11,37),LENGTH=01,ATTRB=ASKIP 00112
SPACE 00113
DFHMDF POS=(11,40),LENGTH=26,ATTRB=ASKIP, *00114
INITIAL='SELF INS LATE PENALTY RUN:' 00115
SPACE 00116
F821167 DFHMDF POS=(11,67),LENGTH=02,ATTRB=ASKIP 00117
SPACE 00118
F821170 DFHMDF POS=(11,70),LENGTH=02,ATTRB=ASKIP 00119
SPACE 00120
F821171 DFHMDF POS=(11,73),LENGTH=02,ATTRB=ASKIP 00121
SPACE 00122
DFHMDF POS=(11,76),LENGTH=01,ATTRB=ASKIP 00123
SPACE 00124
DFHMDF POS=(13,04),LENGTH=23,ATTRB=ASKIP, *00125
INITIAL='UC30 FINAL ACTION DATE:' 00126
SPACE 00127
F821328 DFHMDF POS=(13,28),LENGTH=02,ATTRB=ASKIP 00128
SPACE 00129
F821331 DFHMDF POS=(13,31),LENGTH=02,ATTRB=ASKIP 00130
SPACE 00131
F821334 DFHMDF POS=(13,34),LENGTH=02,ATTRB=ASKIP 00132
SPACE 00133
DFHMDF POS=(13,37),LENGTH=01,ATTRB=ASKIP 00134
SPACE 00135
DFHMDF POS=(15,03),LENGTH=24,ATTRB=ASKIP, *00136
INITIAL=' ESTIMATED NOTICE DATE:' 00137
SPACE 00138
F821728 DFHMDF POS=(15,28),LENGTH=02,ATTRB=ASKIP 00139
SPACE 00140
F821731 DFHMDF POS=(15,31),LENGTH=02,ATTRB=ASKIP 00141
SPACE 00142
F821734 DFHMDF POS=(15,34),LENGTH=02,ATTRB=ASKIP 00143
SPACE 00144
DFHMDF POS=(15,37),LENGTH=01,ATTRB=ASKIP 00145
SPACE 00146
DFHMDF POS=(20,10),LENGTH=10,ATTRB=ASKIP, *00147
INITIAL='ESTB DATE:' 00148
SPACE 00149
F822021 DFHMDF POS=(20,21),LENGTH=08,ATTRB=ASKIP 00150
DFHMDF POS=(20,40),LENGTH=10,ATTRB=ASKIP, *00151
INITIAL='CHNG DATE:' 00152
SPACE 00153
F822051 DFHMDF POS=(20,51),LENGTH=08,ATTRB=ASKIP 00154
SPACE 00155
F822318 DFHMDF POS=(23,18),LENGTH=07,ATTRB=ASKIP 00156
SPACE 00157
F822327 DFHMDF POS=(23,27),LENGTH=07,ATTRB=ASKIP 00158
SPACE 00159
F822338 DFHMDF POS=(23,38),LENGTH=07,ATTRB=ASKIP 00160
SPACE 00161
F822346 DFHMDF POS=(23,46),LENGTH=07,ATTRB=ASKIP 00162
SPACE 00163
F822355 DFHMDF POS=(23,55),LENGTH=07,ATTRB=ASKIP 00164
SPACE 00165
F822401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00166
SPACE 00167
F822410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00168
SPACE 00169
DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00170
INITIAL='GO TO:' 00171
SPACE 00172
F822476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00173
SPACE 00174
DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00175