00001 *****                                                             08/28/98
00002 *                                                                 DTSIMFAR
00003 *    DTSIMFAR  MASTER FILE 'FIELD ASSIGNMENT REPORT' RECORD          LV002
00004 *              DEFINITION.                                        DTSIMFAR
00005 *                                                                 DTSIMFAR
00006 *    NOTE: L810-COUNT-88 RETURNS THE NUMBER OF RECORDS FOR THE    DTSIMFAR
00007 *          SINGLE MFAR-ASSIGN-NO PROVIDED.                        DTSIMFAR
00008 *                                                                 DTSIMFAR
00009 *                                                                    CL**2
00010 *              08/28/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00011 *                                                                    CL**2
00012 *****                                                             DTSIMFAR
00013                                                                      CL**2
00014          10  MFAR-KEY-AREA.                                       DTSIMFAR
00015              15  MFAR-EMP-NO             PIC S9(07)       COMP-3. DTSIMFAR
00016              15  MFAR-REC-TYPE           PIC S9(04)       COMP.   DTSIMFAR
00017                  88  MFAR-FAR-88             VALUE +29.           DTSIMFAR
00018              15  MFAR-ASSIGN-NO          PIC S9(09)       COMP-3. DTSIMFAR
00019              15  MFAR-REC-CNT            PIC S9(04)       COMP.   DTSIMFAR
00020              15  MFAR-KEY-FILLER         PIC  X(03).              DTSIMFAR
00021                                                                      CL**2
00022                                                                      CL**2
00023          10  MFAR-PURGE-DATE             PIC S9(09)       COMP-3. DTSIMFAR
00024                                                                      CL**2
00025                                                                      CL**2
00026          10  MFAR-DATA-AREA.                                      DTSIMFAR
00027              15  FILLER                  PIC  X(16).              DTSIMFAR
00028                                                                      CL**2
00029                                                                      CL**2
00030              15  MFAR-CONVERTED-IND      PIC  X(01).              DTSIMFAR
00031                  88  MFAR-CONVERTED-88       VALUE 'Y'.           DTSIMFAR
00032                  88  MFAR-NOT-CONVERTED-88   VALUE 'N'.           DTSIMFAR
00033                                                                      CL**2
00034                                                                      CL**2
00035              15  MFAR-ESTB-DATE          PIC S9(09)       COMP-3. DTSIMFAR
00036                                                                      CL**2
00037              15  MFAR-CHNG-DATE          PIC S9(09)       COMP-3. DTSIMFAR
00038                                                                      CL**2
00039                                                                      CL**2
00040              15  MFAR-TEXT-CNT           PIC S9(04)       COMP.   DTSIMFAR
00041                                                                      CL**2
00042              15  MFAR-TEXT-AREA.                                  DTSIMFAR
00043                  20  MFAR-TEXT           PIC  X(72)               DTSIMFAR
00044                              OCCURS 16 TIMES                      DTSIMFAR
00045                              INDEXED   BY MFAR-TEXT-IDX.          DTSIMFAR