00001 *****                                                             06/19/13
00002 *                                                                 DTSIL031
00003 *    DTSIL031    EMPLOYER REGISTRATION CODES EDIT/DESCRIPTION        LV005
00004 *                MODULE LINKAGE.                                  DTSIL031
00005 *                                                                 DTSIL031
00006 *    04/29/2013  ADDED SUTA DUMPING CODE (MREL RECORD)  GD        DTSIL031
00007 *                                                                 DTSIL031
00008 *****                                                             DTSIL031
00009      SKIP1                                                        DTSIL031
00010          10  L031-LENGTH         PIC S9(04)   COMP  VALUE +64.    DTSIL031
00011      SKIP1                                                        DTSIL031
00012          10  L031-OPTION         PIC S9(04)   COMP.               DTSIL031
00013              88  L031-MPRF-EMP-CLASS         VALUE +01.           DTSIL031
00014              88  L031-MPRF-EMP-STATUS        VALUE +02.           DTSIL031
00015              88  L031-MPRF-ELIGIBLE-CD       VALUE +03.           DTSIL031
00016              88  L031-MPRF-ORG-TYPE          VALUE +04.           DTSIL031
00017              88  L031-MPRF-FISCAL-AGENT-CD   VALUE +05.           DTSIL031
00018              88  L031-MERA-SOURCE-CD         VALUE +10.           DTSIL031
00019              88  L031-MERA-STATUS-CD         VALUE +11.           DTSIL031
00020              88  L031-MERA-LETTER-1-CD       VALUE +12.           DTSIL031
00021              88  L031-MREL-RELATIONSHIP-CD   VALUE +17.           DTSIL031
00022              88  L031-MREL-SUTA-DUMPING-CD   VALUE +18.           DTSIL031
00023              88  L031-MSOL-LIAB-CD           VALUE +22.           DTSIL031
00024              88  L031-MSOL-INACT-CD          VALUE +23.           DTSIL031
00025      SKIP1                                                        DTSIL031
00026          10  L031-RESULT-IND             PIC  X(01).              DTSIL031
00027              88  L031-VALID                  VALUE '1'.           DTSIL031
00028              88  L031-NOT-VALID              VALUE '2'.           DTSIL031
00029      SKIP1                                                        DTSIL031
00030          10  L031-CD                     PIC  X(05).              DTSIL031
00031          10  FILLER REDEFINES L031-CD.                            DTSIL031
00032              15  L031-CD-1               PIC  X(01).              DTSIL031
00033              15  FILLER                  PIC  X(04).              DTSIL031
00034          10  FILLER REDEFINES L031-CD.                            DTSIL031
00035              15  L031-CD-2               PIC  X(02).              DTSIL031
00036              15  FILLER                  PIC  X(03).              DTSIL031
00037          10  FILLER REDEFINES L031-CD.                            DTSIL031
00038              15  L031-CD-3               PIC  X(03).              DTSIL031
00039              15  FILLER                  PIC  X(02).              DTSIL031
00040          10  FILLER REDEFINES L031-CD.                            DTSIL031
00041              15  L031-CD-4               PIC  X(04).              DTSIL031
00042              15  FILLER                  PIC  X(01).              DTSIL031
00043          10  L031-CD-5 REDEFINES L031-CD PIC  X(05).              DTSIL031
00044      SKIP1                                                        DTSIL031
00045          10  L031-SHORT-DSCR             PIC  X(10).              DTSIL031
00046          10  L031-LONG-DSCR              PIC  X(40).              DTSIL031
00047      SKIP1                                                        DTSIL031
00048          10  FILLER                      PIC  X(04).              DTSIL031