00001 *****                                                             10/12/98
00002 *                                                                 DTSIL590
00003 *    DTSIL590  EMPLOYER UPDATE CLEANUP PROCESSING.                   LV002
00004 *                                                                 DTSIL590
00005 *              CALL 'MACUB590' USING L590-LINK-AREA               DTSIL590
00006 *                                    LBCM-LINK-AREA               DTSIL590
00007 *                                    MPRF-REC.                    DTSIL590
00008 *                                                                 DTSIL590
00009 *                                                                    CL**2
00010 *              10/10/1998  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00011 *                                                                    CL**2
00012 *****                                                             DTSIL590
00013                                                                      CL**2
00014          10  L590-OPTION                     PIC X(02).           DTSIL590
00015              88  L590-INITIATE-88                VALUE '01'.      DTSIL590
00016              88  L590-QTR-TOL-88                 VALUE '02'.      DTSIL590
00017              88  L590-ORIG-RPT-88                VALUE '04'.      DTSIL590
00018              88  L590-QTR-PURSUED-88             VALUE '05'.      DTSIL590
00019              88  L590-TERMINATE-88               VALUE '99'.      DTSIL590
00020                                                                      CL**2
00021          10  L590-YRQ                        PIC S9(05)  COMP-3.  DTSIL590
00022                                                                      CL**2
00023          10  L590-PAY-DOC-NO                 PIC  X(05).          DTSIL590
00024                                                                      CL**2
00025          10  L590-TOL-DOC-NO                 PIC  X(05).          DTSIL590
00026                                                                      CL**2
00027          10  FILLER                          PIC  X(17).          DTSIL590