*          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