00001 *****                                                             03/01/12
00002 *                                                                 DTSIL036
00003 *    DTSIL036    FIELD SUPPORT CODES EDIT/DESCRIPTION                LV004
00004 *                MODULE LINKAGE.                                  DTSIL036
00005 *                                                                 DTSIL036
00006 *    10/09/2009  ADDED OPTION 7 FOR MFSL STATUS    GD             DTSIL036
00007 *                                                                 DTSIL036
00008 *****                                                             DTSIL036
00009      SKIP1                                                        DTSIL036
00010          10  L036-OPTION         PIC S9(04)   COMP.               DTSIL036
00011              88  L036-MFAS-EMP-SIZE-IND      VALUE +01.           DTSIL036
00012              88  L036-MFAS-STATUS-IND        VALUE +02.           DTSIL036
00013              88  L036-MFAS-AUDIT-SEL-REASON  VALUE +03.           DTSIL036
00014              88  L036-MAUR-EMP-SIZE-IND      VALUE +04.           DTSIL036
00015              88  L036-MAUR-ERROR-TYPE        VALUE +05.           DTSIL036
00016              88  L036-MAUR-MONEY-REASON-CD   VALUE +06.           DTSIL036
00017              88  L036-MFSL-STATUS-CD         VALUE +07.           DTSIL036
00018      SKIP1                                                        DTSIL036
00019          10  L036-RESULT-IND             PIC  X(01).              DTSIL036
00020              88  L036-VALID                  VALUE '1'.           DTSIL036
00021              88  L036-NOT-VALID              VALUE '2'.           DTSIL036
00022      SKIP1                                                        DTSIL036
00023          10  L036-CD                     PIC  X(05).              DTSIL036
00024          10  FILLER REDEFINES L036-CD.                            DTSIL036
00025              15  L036-CD-1               PIC  X(01).              DTSIL036
00026              15  FILLER                  PIC  X(04).              DTSIL036
00027          10  FILLER REDEFINES L036-CD.                            DTSIL036
00028              15  L036-CD-2               PIC  X(02).              DTSIL036
00029              15  FILLER                  PIC  X(03).              DTSIL036
00030          10  FILLER REDEFINES L036-CD.                            DTSIL036
00031              15  L036-CD-3               PIC  X(03).              DTSIL036
00032              15  FILLER                  PIC  X(02).              DTSIL036
00033          10  FILLER REDEFINES L036-CD.                            DTSIL036
00034              15  L036-CD-4               PIC  X(04).              DTSIL036
00035              15  FILLER                  PIC  X(01).              DTSIL036
00036          10  L036-CD-5 REDEFINES L036-CD PIC  X(05).              DTSIL036
00037      SKIP1                                                        DTSIL036
00038          10  L036-SHORT-DSCR             PIC  X(10).              DTSIL036
00039          10  L036-LONG-DSCR              PIC  X(40).              DTSIL036
00040      SKIP1                                                        DTSIL036
00041          10  FILLER                      PIC  X(04).              DTSIL036