*          DATA SET DTSM30     AT LEVEL 004 AS OF 04/05/04
*          DATA SET DTSM30     AT LEVEL 002 AS OF 09/11/03              00001
*          DATA SET DTSM30     AT LEVEL 002 AS OF 08/10/98              00002
*          DATA SET MACM30     AT LEVEL 008 AS OF 01/23/95              00003
*****                                                                   00004
*                                                                       00005
*        30     ACCOUNTING INQUIRY MENU                                 00006
*                                                                       00007
*****                                                                   00008
         SPACE                                                          00009
DTSM30   DFHMDI SIZE=(24,80),                                          *00010
               LINE=1,                                                 *00011
               COLUMN=1                                                 00012
         SPACE                                                          00013
F300101  DFHMDF POS=(1,1),                                             *00014
               ATTRB=(ASKIP,FSET),                                     *00015
               LENGTH=2,                                               *00016
               INITIAL='30'                                             00017
         SPACE                                                          00018
         DFHMDF POS=(1,25),                                            *00019
               ATTRB=(ASKIP),                                          *00020
               LENGTH=23,                                              *00021
               INITIAL='ACCOUNTING INQUIRY MENU'                        00022
         SPACE                                                          00023
F300162  DFHMDF POS=(1,62),                                            *00024
               ATTRB=(ASKIP),                                          *00025
               LENGTH=8                                                 00026
         SPACE                                                          00027
F300172  DFHMDF POS=(1,72),                                            *00028
               ATTRB=(ASKIP),                                          *00029
               LENGTH=8                                                 00030
         SPACE                                                          00031
F300272  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=15,                                              *00053
               INITIAL='QUARTER INQUIRY'                                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=25,                                              *00063
               INITIAL='ALTERNATE QUARTER INQUIRY'                      00064
         SPACE                                                          00065
         DFHMDF POS=(07,16),                                           *00066
               ATTRB=(ASKIP,BRT),                                      *00067
               LENGTH=1,                                               *00068
               INITIAL='3'                                              00069
         SPACE                                                          00070
         DFHMDF POS=(07,21),                                           *00071
               ATTRB=(ASKIP),                                          *00072
               LENGTH=14,                                              *00073
               INITIAL='REPORT INQUIRY'                                 00074
         SPACE                                                          00075
         DFHMDF POS=(08,16),                                           *00076
               ATTRB=(ASKIP,BRT),                                      *00077
               LENGTH=1,                                               *00078
               INITIAL='4'                                              00079
         SPACE                                                          00080
         DFHMDF POS=(08,21),                                           *00081
               ATTRB=(ASKIP),                                          *00082
               LENGTH=15,                                              *00083
               INITIAL='PAYMENT INQUIRY'                                00084
         SPACE                                                          00085
         DFHMDF POS=(09,16),                                           *00086
               ATTRB=(ASKIP,BRT),                                      *00087
               LENGTH=1,                                               *00088
               INITIAL='5'                                              00089
         SPACE                                                          00090
         DFHMDF POS=(09,21),                                           *00091
               ATTRB=(ASKIP),                                          *00092
               LENGTH=18,                                              *00093
               INITIAL='ADJUSTMENT INQUIRY'                             00094
         SPACE                                                          00095
         DFHMDF POS=(10,16),                                           *00096
               ATTRB=(ASKIP,BRT),                                      *00097
               LENGTH=1,                                               *00098
               INITIAL='6'                                              00099
         SPACE                                                          00100
         DFHMDF POS=(10,21),                                           *00101
               ATTRB=(ASKIP),                                          *00102
               LENGTH=15,                                              *00103
               INITIAL='JOURNAL INQUIRY'                                00104
         SPACE                                                          00105
         DFHMDF POS=(11,16),                                           *00106
               ATTRB=(ASKIP,BRT),                                      *00107
               LENGTH=1,                                               *00108
               INITIAL='7'                                              00109
         SPACE                                                          00110
         DFHMDF POS=(11,21),                                           *00111
               ATTRB=(ASKIP),                                          *00112
               LENGTH=26,                                              *00113
               INITIAL='ELECTRONIC PAYMENT INQUIRY'                     00114
         SPACE                                                          00115
         DFHMDF POS=(22,13),                                           *00116
               ATTRB=(ASKIP),                                          *00117
               LENGTH=7,                                               *00118
               INITIAL='OPTION:'                                        00119
         SPACE                                                          00120
F302221  DFHMDF POS=(22,21),                                           *00121
               ATTRB=(UNPROT,IC,FSET,BRT),                             *00122
               LENGTH=2                                                 00123
         SPACE                                                          00124
         DFHMDF POS=(22,24),                                           *00125
               ATTRB=(ASKIP),                                          *00126
               LENGTH=1                                                 00127
         SPACE                                                          00128
F302401  DFHMDF POS=(24,01),                                           *00129
               ATTRB=(ASKIP),                                          *00130
               LENGTH=8                                                 00131
         SPACE                                                          00132
F302410  DFHMDF POS=(24,10),                                           *00133
               ATTRB=(ASKIP),                                          *00134
               LENGTH=58                                                00135