*          DATA SET DTSM40     AT LEVEL 005 AS OF 12/09/04
*          DATA SET DTSM40     AT LEVEL 002 AS OF 11/30/04              00001
*          DATA SET DTSM40     AT LEVEL 003 AS OF 08/11/98              00002
*          DATA SET MACM40     AT LEVEL 008 AS OF 01/23/95              00003
*****                                                                   00004
*                                                                       00005
*        40     COLLECTIONS MENU                                        00006
*                                                                       00007
*****                                                                   00008
         SPACE                                                          00009
DTSM40   DFHMDI SIZE=(24,80),                                          *00010
               LINE=1,                                                 *00011
               COLUMN=1                                                 00012
         SPACE                                                          00013
F400101  DFHMDF POS=(1,1),                                             *00014
               ATTRB=(ASKIP,FSET),                                     *00015
               LENGTH=2,                                               *00016
               INITIAL='40'                                             00017
         SPACE                                                          00018
         DFHMDF POS=(1,25),                                            *00019
               ATTRB=(ASKIP),                                          *00020
               LENGTH=16,                                              *00021
               INITIAL='COLLECTIONS MENU'                               00022
         SPACE                                                          00023
F400162  DFHMDF POS=(1,62),                                            *00024
               ATTRB=(ASKIP),                                          *00025
               LENGTH=8                                                 00026
         SPACE                                                          00027
F400172  DFHMDF POS=(1,72),                                            *00028
               ATTRB=(ASKIP),                                          *00029
               LENGTH=8                                                 00030
         SPACE                                                          00031
F400272  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=19,                                              *00053
               INITIAL='COLLECTIONS 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=40,                                              *00063
               INITIAL='MISCELLANEOUS COLLECTIONS INQUIRY/UPDATE'       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=21,                                              *00073
               INITIAL='APPEAL INQUIRY/UPDATE'                          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=19,                                              *00083
               INITIAL='LIEN INQUIRY/UPDATE'                            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=40,                                              *00093
               INITIAL='DEFERRED PAYMENT CONTRACT INQUIRY/UPDATE'       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=16,                                              *00103
               INITIAL='DUE/CREDIT PRINT'                               00104
         DFHMDF POS=(11,16),                                           *00105
               ATTRB=(ASKIP,BRT),                                      *00106
               LENGTH=1,                                               *00107
               INITIAL='7'                                              00108
         SPACE                                                          00109
         DFHMDF POS=(11,21),                                           *00110
               ATTRB=(ASKIP),                                          *00111
               LENGTH=19,                                              *00112
               INITIAL='LEVY INQUIRY/UPDATE'                            00113
         DFHMDF POS=(12,16),                                           *00114
               ATTRB=(ASKIP,BRT),                                      *00115
               LENGTH=1,                                               *00116
               INITIAL='8'                                              00117
         SPACE                                                          00118
         DFHMDF POS=(12,21),                                           *00119
               ATTRB=(ASKIP),                                          *00120
               LENGTH=36,                                              *00121
               INITIAL='COMPROMISE SETTLEMENT INQUIRE/UPDATE'           00122
         SPACE                                                          00123
         DFHMDF POS=(22,13),                                           *00124
               ATTRB=(ASKIP),                                          *00125
               LENGTH=7,                                               *00126
               INITIAL='OPTION:'                                        00127
         SPACE                                                          00128
F402221  DFHMDF POS=(22,21),                                           *00129
               ATTRB=(UNPROT,IC,FSET,BRT),                             *00130
               LENGTH=2                                                 00131
         SPACE                                                          00132
         DFHMDF POS=(22,24),                                           *00133
               ATTRB=(ASKIP),                                          *00134
               LENGTH=1                                                 00135
         SPACE                                                          00136
F402401  DFHMDF POS=(24,01),                                           *00137
               ATTRB=(ASKIP),                                          *00138
               LENGTH=8                                                 00139
         SPACE                                                          00140
F402410  DFHMDF POS=(24,10),                                           *00141
               ATTRB=(ASKIP),                                          *00142
               LENGTH=58                                                00143