*          DATA SET DTSM90     AT LEVEL 004 AS OF 09/13/12
*          DATA SET DTSM90     AT LEVEL 001 AS OF 08/12/11              00001
*          DATA SET DTSM90     AT LEVEL 002 AS OF 08/10/98              00002
*          DATA SET MACM90     AT LEVEL 008 AS OF 01/23/95              00003
*****                                                                   00004
*                                                                       00005
*        90     SYSTEM ADMINISTRATION MENU                              00006
*                                                                       00007
*****                                                                   00008
         SPACE                                                          00009
DTSM90   DFHMDI SIZE=(24,80),                                          *00010
               LINE=1,                                                 *00011
               COLUMN=1                                                 00012
         SPACE                                                          00013
F900101  DFHMDF POS=(1,1),                                             *00014
               ATTRB=(ASKIP,FSET),                                     *00015
               LENGTH=2,                                               *00016
               INITIAL='90'                                             00017
         SPACE                                                          00018
         DFHMDF POS=(1,25),                                            *00019
               ATTRB=(ASKIP),                                          *00020
               LENGTH=26,                                              *00021
               INITIAL='SYSTEM ADMINISTRATION MENU'                     00022
         SPACE                                                          00023
F900162  DFHMDF POS=(1,62),                                            *00024
               ATTRB=(ASKIP),                                          *00025
               LENGTH=8                                                 00026
         SPACE                                                          00027
F900172  DFHMDF POS=(1,72),                                            *00028
               ATTRB=(ASKIP),                                          *00029
               LENGTH=8                                                 00030
         SPACE                                                          00031
F900272  DFHMDF POS=(2,72),                                            *00032
               ATTRB=(ASKIP),                                          *00033
               LENGTH=8                                                 00034
         SPACE                                                          00035
         DFHMDF POS=(03,13),                                           *00036
               ATTRB=(ASKIP),                                          *00037
               LENGTH=6,                                               *00038
               INITIAL='OPTION'                                         00039
         SPACE                                                          00040
         DFHMDF POS=(03,26),                                           *00041
               ATTRB=(ASKIP),                                          *00042
               LENGTH=11,                                              *00043
               INITIAL='DESCRIPTION'                                    00044
         SPACE                                                          00045
         DFHMDF POS=(05,16),                                           *00046
               ATTRB=(ASKIP,BRT),                                      *00047
               LENGTH=1,                                               *00048
               INITIAL='1'                                              00049
         SPACE                                                          00050
         DFHMDF POS=(05,21),                                           *00051
               ATTRB=(ASKIP),                                          *00052
               LENGTH=30,                                              *00053
               INITIAL='PURGE INDICATOR INQUIRY/UPDATE'                 00054
         SPACE                                                          00055
         DFHMDF POS=(06,16),                                           *00056
               ATTRB=(ASKIP,BRT),                                      *00057
               LENGTH=1,                                               *00058
               INITIAL='2'                                              00059
         SPACE                                                          00060
         DFHMDF POS=(06,21),                                           *00061
               ATTRB=(ASKIP),                                          *00062
               LENGTH=26,                                              *00063
               INITIAL='OPERATOR ID INQUIRY/UPDATE'                     00064
         SPACE                                                          00065
         DFHMDF POS=(07,16),                                           *00066
               ATTRB=(ASKIP,BRT),                                      *00067
               LENGTH=1,                                               *00068
               INITIAL=' '                                              00069
         SPACE                                                          00070
         DFHMDF POS=(07,21),                                           *00071
               ATTRB=(ASKIP),                                          *00072
               LENGTH=01,                                              *00073
               INITIAL=' '                                              00074
         SPACE                                                          00075
         DFHMDF POS=(08,16),                                           *00076
               ATTRB=(ASKIP,BRT),                                      *00077
               LENGTH=1,                                               *00078
               INITIAL='8'                                              00079
         SPACE                                                          00080
         DFHMDF POS=(08,21),                                           *00081
               ATTRB=(ASKIP),                                          *00082
               LENGTH=40,                                              *00083
               INITIAL='MASTER FILE HEADER RECORD INQUIRY/UPDATE'       00084
         SPACE                                                          00085
         DFHMDF POS=(09,16),                                           *00086
               ATTRB=(ASKIP,BRT),                                      *00087
               LENGTH=1,                                               *00088
               INITIAL='9'                                              00089
         SPACE                                                          00090
         DFHMDF POS=(09,21),                                           *00091
               ATTRB=(ASKIP),                                          *00092
               LENGTH=26,                                              *00093
               INITIAL='UPDATE LOCK INQUIRY/UPDATE'                     00094
         SPACE                                                          00095
         DFHMDF POS=(22,13),                                           *00096
               ATTRB=(ASKIP),                                          *00097
               LENGTH=7,                                               *00098
               INITIAL='OPTION:'                                        00099
         SPACE                                                          00100
F902221  DFHMDF POS=(22,21),                                           *00101
               ATTRB=(UNPROT,IC,FSET,BRT),                             *00102
               LENGTH=2                                                 00103
         SPACE                                                          00104
         DFHMDF POS=(22,24),                                           *00105
               ATTRB=(ASKIP),                                          *00106
               LENGTH=1                                                 00107
         SPACE                                                          00108
F902401  DFHMDF POS=(24,01),                                           *00109
               ATTRB=(ASKIP),                                          *00110
               LENGTH=8                                                 00111
         SPACE                                                          00112
F902410  DFHMDF POS=(24,10),                                           *00113
               ATTRB=(ASKIP),                                          *00114
               LENGTH=58                                                00115