DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
75
Maps/DTSM81.bms
Normal file
75
Maps/DTSM81.bms
Normal file
@ -0,0 +1,75 @@
|
||||
* DATA SET DTSM81 AT LEVEL 004 AS OF 08/13/98
|
||||
* DATA SET MACM81 AT LEVEL 006 AS OF 01/23/95 00001
|
||||
***** 00002
|
||||
* 00003
|
||||
* 81 CALENDAR YEAR INQUIRY/UPDATE. 00004
|
||||
* 00005
|
||||
* 08/13/1998 REVIEWED AND MODIFIED FOR DC. EHH 00006**3
|
||||
* 00007**3
|
||||
***** 00008
|
||||
SPACE 00009
|
||||
DTSM81 DFHMDI SIZE=(24,80),LINE=1,COLUMN=1 00010**2
|
||||
SPACE 00011
|
||||
F810101 DFHMDF POS=(01,01),LENGTH=02,ATTRB=(FSET,ASKIP), *00012
|
||||
INITIAL='81' 00013
|
||||
SPACE 00014
|
||||
DFHMDF POS=(01,21),LENGTH=28,ATTRB=(ASKIP), *00015
|
||||
INITIAL='CALENDAR YEAR INQUIRY/UPDATE' 00016
|
||||
SPACE 00017
|
||||
F810162 DFHMDF POS=(01,62),LENGTH=08,ATTRB=ASKIP 00018
|
||||
SPACE 00019
|
||||
F810172 DFHMDF POS=(01,72),LENGTH=08,ATTRB=ASKIP 00020
|
||||
SPACE 00021
|
||||
F810272 DFHMDF POS=(02,72),LENGTH=08,ATTRB=ASKIP 00022
|
||||
SPACE 00023
|
||||
DFHMDF POS=(03,24),LENGTH=14,ATTRB=ASKIP, *00024
|
||||
INITIAL='CALENDAR YEAR:' 00025
|
||||
SPACE 00026
|
||||
F810339 DFHMDF POS=(03,39),LENGTH=02,ATTRB=ASKIP 00027
|
||||
SPACE 00028
|
||||
DFHMDF POS=(03,42),LENGTH=01,ATTRB=ASKIP 00029
|
||||
SPACE 00030
|
||||
DFHMDF POS=(05,20),LENGTH=18,ATTRB=ASKIP, *00031
|
||||
INITIAL='TAXABLE WAGE BASE:' 00032
|
||||
SPACE 00033
|
||||
F810539 DFHMDF POS=(05,39),LENGTH=12,ATTRB=ASKIP 00034
|
||||
SPACE 00035
|
||||
DFHMDF POS=(05,52),LENGTH=01,ATTRB=ASKIP 00036
|
||||
SPACE 00037
|
||||
DFHMDF POS=(07,21),LENGTH=17,ATTRB=ASKIP, *00038**3
|
||||
INITIAL='FUTA CREDIT RATE:' 00039
|
||||
SPACE 00040
|
||||
F810739 DFHMDF POS=(07,39),LENGTH=05,ATTRB=ASKIP 00041**4
|
||||
SPACE 00042
|
||||
DFHMDF POS=(07,45),LENGTH=01,ATTRB=ASKIP 00043**4
|
||||
SPACE 00044
|
||||
DFHMDF POS=(20,59),LENGTH=10,ATTRB=ASKIP, *00045
|
||||
INITIAL='ESTB DATE:' 00046
|
||||
SPACE 00047
|
||||
F812070 DFHMDF POS=(20,70),LENGTH=08,ATTRB=ASKIP 00048
|
||||
SPACE 00049
|
||||
DFHMDF POS=(21,59),LENGTH=10,ATTRB=ASKIP, *00050
|
||||
INITIAL='CHNG DATE:' 00051
|
||||
SPACE 00052
|
||||
F812170 DFHMDF POS=(21,70),LENGTH=08,ATTRB=ASKIP 00053
|
||||
SPACE 00054
|
||||
F812318 DFHMDF POS=(23,18),LENGTH=07,ATTRB=ASKIP 00055
|
||||
SPACE 00056
|
||||
F812327 DFHMDF POS=(23,27),LENGTH=07,ATTRB=ASKIP 00057
|
||||
SPACE 00058
|
||||
F812338 DFHMDF POS=(23,38),LENGTH=07,ATTRB=ASKIP 00059
|
||||
SPACE 00060
|
||||
F812346 DFHMDF POS=(23,46),LENGTH=07,ATTRB=ASKIP 00061
|
||||
SPACE 00062
|
||||
F812355 DFHMDF POS=(23,55),LENGTH=07,ATTRB=ASKIP 00063
|
||||
SPACE 00064
|
||||
F812401 DFHMDF POS=(24,01),LENGTH=08,ATTRB=ASKIP 00065
|
||||
SPACE 00066
|
||||
F812410 DFHMDF POS=(24,10),LENGTH=58,ATTRB=ASKIP 00067
|
||||
SPACE 00068
|
||||
DFHMDF POS=(24,69),LENGTH=06,ATTRB=ASKIP, *00069
|
||||
INITIAL='GO TO:' 00070
|
||||
SPACE 00071
|
||||
F812476 DFHMDF POS=(24,76),LENGTH=02,ATTRB=ASKIP 00072
|
||||
SPACE 00073
|
||||
DFHMDF POS=(24,79),LENGTH=01,ATTRB=ASKIP 00074
|
||||
Reference in New Issue
Block a user