00001 *****                                                             06/06/03
00002 *                                                                 DTSIR590
00003 *   DTSIR590   FISCAL AGENT WAGE RATE RECORD.                        LV003
00004 *                                                                 DTSIR590
00005 *                                                                 DTSIR590
00006 *              09/15/00     CREATED FOR DC             ZL1.       DTSIR590
00007 *                                                                 DTSIR590
00008 *                                                                 DTSIR590
00009 *****                                                             DTSIR590
00010      SKIP1                                                        DTSIR590
00011          10  R590-LENGTH         PIC S9(04)  COMP.                DTSIR590
00012      SKIP1                                                        DTSIR590
00013          10  R590-SORT-AREA.                                      DTSIR590
00014              15  R590-REC-TYPE           PIC  X(03)  VALUE '590'. DTSIR590
00015              15  R590-REPORT-TYPE        PIC  X(01).              DTSIR590
00016                  88  R590-UPDATE-88          VALUE '1'.           DTSIR590
00017                  88  R590-ERROR-88           VALUE '2'.           DTSIR590
00018                  88  R590-FEIN-ACCT-88       VALUE '3'.           DTSIR590
00019      SKIP1                                                        DTSIR590
00020              15  R590-SORT-VAR-AREA.                              DTSIR590
00021                 20  R590-FISCAL-AGENT-CD  PIC  X(03).             DTSIR590
00022                 20  R590-EMP-NO           PIC  9(06).             DTSIR590
00023                 20  R590-EMP-FEIN         PIC  9(09).             DTSIR590
00024                                                                   DTSIR590
00025          10  R590-DATA-AREA.                                      DTSIR590
00026      SKIP1                                                        DTSIR590
00027              15  R590-FIL1               PIC X(02).               DTSIR590
00028              15  R590-EMP-CONTR-RATE     PIC 9(03)V9999.          DTSIR590
00029              15  R590-EMP-CONTR-RATE-X REDEFINES                  DTSIR590
00030                    R590-EMP-CONTR-RATE   PIC X(07).               DTSIR590
00031              15  R590-SIC-CODE           PIC 9(04).               DTSIR590
00032              15  R590-SIC-CODE-X REDEFINES                        DTSIR590
00033                    R590-SIC-CODE         PIC X(04).               DTSIR590
00034 *            15  R590-EMP-NAME           PIC X(24).               DTSIR590
00035 *            15  R590-EMP-NAME-A         PIC X(24).               DTSIR590
00036              15  R590-EMP-NAME           PIC X(40).               DTSIR590
00037              15  R590-EMP-NAME-A         PIC X(40).               DTSIR590
00038              15  R590-EMP-STATUS-CODE    PIC X(01).               DTSIR590
00039 *            15  R590-MESSAGE            PIC X(20).               DTSIR590
00040              15  R590-MESSAGE            PIC X(40).               DTSIR590