00001 *****                                                             08/28/98
00002 *                                                                 DTSIMNTE
00003 *    DTSIMNTE  MASTER FILE 'NOTE' RECORD DEFINITION.                 LV002
00004 *                                                                 DTSIMNTE
00005 *                                                                    CL**2
00006 *              08/28/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIMNTE
00009                                                                      CL**2
00010          10  MNTE-KEY-AREA.                                       DTSIMNTE
00011              15  MNTE-EMP-NO             PIC S9(07)       COMP-3. DTSIMNTE
00012              15  MNTE-REC-TYPE           PIC S9(04)       COMP.   DTSIMNTE
00013                  88  MNTE-NTE-88             VALUE +22.           DTSIMNTE
00014              15  MNTE-KEY-ESTB-ABSTIME   PIC S9(15)       COMP-3. DTSIMNTE
00015              15  MNTE-KEY-FILLER         PIC  X(02).              DTSIMNTE
00016                                                                      CL**2
00017                                                                      CL**2
00018          10  MNTE-PURGE-DATE             PIC S9(09)       COMP-3. DTSIMNTE
00019                                                                      CL**2
00020                                                                      CL**2
00021          10  MNTE-DATA-AREA.                                      DTSIMNTE
00022              15  MNTE-DATA-ESTB-ABSTIME  PIC S9(15)       COMP-3. DTSIMNTE
00023                                                                      CL**2
00024              15  MNTE-ESTB-OP-ID         PIC  X(08).              DTSIMNTE
00025                                                                      CL**2
00026              15  MNTE-CHNG-ABSTIME       PIC S9(15)       COMP-3. DTSIMNTE
00027                                                                      CL**2
00028              15  MNTE-CHNG-OP-ID         PIC  X(08).              DTSIMNTE
00029                                                                      CL**2
00030              15  MNTE-SUBJECT            PIC  X(40).              DTSIMNTE
00031                                                                      CL**2
00032              15  FILLER                  PIC  X(16).              DTSIMNTE
00033                                                                      CL**2
00034                                                                      CL**2
00035              15  MNTE-CONVERTED-IND      PIC  X(01).              DTSIMNTE
00036                  88  MNTE-CONVERTED-88       VALUE 'Y'.           DTSIMNTE
00037                  88  MNTE-NOT-CONVERTED-88   VALUE 'N'.           DTSIMNTE
00038                                                                      CL**2
00039                                                                      CL**2
00040              15  MNTE-ESTB-DATE          PIC S9(09)       COMP-3. DTSIMNTE
00041                                                                      CL**2
00042              15  MNTE-CHNG-DATE          PIC S9(09)       COMP-3. DTSIMNTE
00043                                                                      CL**2
00044                                                                      CL**2
00045              15  MNTE-TEXT-CNT           PIC S9(04)       COMP.   DTSIMNTE
00046                                                                      CL**2
00047              15  MNTE-TEXT-AREA.                                  DTSIMNTE
00048                  20  MNTE-TEXT OCCURS 16 TIMES                    DTSIMNTE
00049                                INDEXED BY MNTE-TEXT-IDX           DTSIMNTE
00050                                          PIC  X(72).              DTSIMNTE