00001 *****                                                             10/05/00
00002 *                                                                 DTSIR591
00003 *   DTSIR591   FISCAL AGENT BENEFIT CHARGE ERROR RECORDS             LV001
00004 *                                                                 DTSIR591
00005 *                                                                 DTSIR591
00006 *              09/19/00     CREATED FOR DC             ZL1.       DTSIR591
00007 *                                                                 DTSIR591
00008 *                                                                 DTSIR591
00009 *****                                                             DTSIR591
00010      SKIP1                                                        DTSIR591
00011          10  R591-LENGTH         PIC S9(04)  COMP.                DTSIR591
00012      SKIP1                                                        DTSIR591
00013          10  R591-SORT-AREA.                                      DTSIR591
00014              15  R591-REC-TYPE           PIC  X(03)  VALUE '591'. DTSIR591
00015              15  R591-REPORT-TYPE        PIC  X(01).              DTSIR591
00016                  88  R591-UPDATE-88          VALUE '1'.           DTSIR591
00017                  88  R591-ERROR-88           VALUE '2'.           DTSIR591
00018      SKIP1                                                        DTSIR591
00019              15  R591-SORT-VAR-AREA.                              DTSIR591
00020                 20  R591-FISCAL-AGENT-CD  PIC  X(03).             DTSIR591
00021                 20  R591-EMP-NO           PIC  9(06).             DTSIR591
00022                                                                   DTSIR591
00023          10  R591-DATA-AREA.                                      DTSIR591
00024              15  R591-EMP-STATUS-CODE    PIC X(01).               DTSIR591
00025              15  R591-EMPLOYER-NAME      PIC X(40).               DTSIR591
00026              15  R591-MESSAGE            PIC X(40).               DTSIR591
00027      SKIP1                                                        DTSIR591