*          DATA SET DTSM91     AT LEVEL 003 AS OF 12/22/98
*****                                                                   00001
*                                                                       00002
*        91     PURGE INDICATOR INQUIRY/UPDATE.                         00003
*                                                                       00004
*****                                                                   00005
         SPACE                                                          00006
DTSM91   DFHMDI SIZE=(24,80),LINE=1,COLUMN=1                            00007**2
         SPACE                                                          00008
F910101  DFHMDF POS=(1,1),LENGTH=02,ATTRB=(FSET,ASKIP),                *00009
               INITIAL='91'                                             00010
         SPACE                                                          00011
         DFHMDF POS=(1,21),LENGTH=30,ATTRB=(ASKIP),                    *00012
               INITIAL='PURGE INDICATOR INQUIRY/UPDATE'                 00013
         SPACE                                                          00014
F910162  DFHMDF POS=(1,62),LENGTH=08,ATTRB=(ASKIP)                      00015
         SPACE                                                          00016
F910172  DFHMDF POS=(1,72),LENGTH=08,ATTRB=(ASKIP)                      00017
         SPACE                                                          00018
F910272  DFHMDF POS=(2,72),LENGTH=08,ATTRB=(ASKIP)                      00019
         SPACE                                                          00020
         DFHMDF POS=(03,02),LENGTH=07,ATTRB=(ASKIP),                   *00021
               INITIAL='EMP NO:'                                        00022
         SPACE                                                          00023
F910310  DFHMDF POS=(03,10),LENGTH=03,ATTRB=(ASKIP)                     00024
         SPACE                                                          00025
F910314  DFHMDF POS=(03,14),LENGTH=03,ATTRB=(ASKIP)                     00026
         SPACE                                                          00027
         DFHMDF POS=(03,18),LENGTH=01,ATTRB=(ASKIP)                     00028
         SPACE                                                          00029
F910336  DFHMDF POS=(03,21),LENGTH=40,ATTRB=(ASKIP)                     00030
         SPACE                                                          00031
         DFHMDF POS=(05,03),LENGTH=06,ATTRB=(ASKIP),                   *00032
               INITIAL='PURGE?'                                         00033
         SPACE                                                          00034
F910510  DFHMDF POS=(05,10),LENGTH=01,ATTRB=(ASKIP)                     00035
         SPACE                                                          00036
         DFHMDF POS=(05,12),LENGTH=01,ATTRB=(ASKIP)                     00037
         SPACE                                                          00038
         DFHMDF POS=(21,01),LENGTH=16,ATTRB=(ASKIP),                   *00039
               INITIAL='DISREGARD EDITS?'                               00040
         SPACE                                                          00041
F912118  DFHMDF POS=(21,18),LENGTH=01,ATTRB=(ASKIP)                     00042
         SPACE                                                          00043
         DFHMDF POS=(21,20),LENGTH=01,ATTRB=(ASKIP)                     00044
         SPACE                                                          00045
F912324  DFHMDF POS=(23,24),LENGTH=07,ATTRB=(ASKIP)                     00046
         SPACE                                                          00047
F912401  DFHMDF POS=(24,01),LENGTH=08,ATTRB=(ASKIP)                     00048
         SPACE                                                          00049
F912410  DFHMDF POS=(24,10),LENGTH=58,ATTRB=(ASKIP)                     00050
         SPACE                                                          00051
         DFHMDF POS=(24,69),LENGTH=06,ATTRB=(ASKIP),                   *00052
               INITIAL='GO TO:'                                         00053
         SPACE                                                          00054
F912476  DFHMDF POS=(24,76),LENGTH=02,ATTRB=(ASKIP)                     00055
         SPACE                                                          00056
         DFHMDF POS=(24,79),LENGTH=01,ATTRB=(ASKIP)                     00057