00001 *****                                                             07/05/02
00002 *                                                                 CHGIL100
00003 *    CHGIL100  EMPLOYER MASTER FILE EDIT LINKAGE                     LV005
00004 *                                                                 CHGIL100
00005 *                                                                 CHGIL100
00006 *                                                                 CHGIL100
00007 *****                                                             CHGIL100
00008          10  L100-REQUEST-AREA.                                   CHGIL100
00009              15  L100-EMP-NO                 PIC S9(07) COMP-3.   CHGIL100
00010              15  L100-EXP-TRN-EFF-DATE       PIC S9(09) COMP-3.   CHGIL100
00011                                                                   CHGIL100
00012          10  L100-RETURN-AREA.                                    CHGIL100
00013              15  L100-RETURN-CODE            PIC  X(02).          CHGIL100
00014                  88  L100-OK-88                VALUE '00'.        CHGIL100
00015                  88  L100-NO-REC-FOUND-88      VALUE '01'.        CHGIL100
00016                  88  L100-POOL-ACCT-88         VALUE '02'.        CHGIL100
00017              15  L100-EMP-TYPE               PIC  9(02).          CHGIL100
00018                  88  L100-EMP-TYPE-NULL-88     VALUE 99.          CHGIL100
00019                  88  L100-NOT-LIABLE-88        VALUE 13.          CHGIL100
00020              15  L100-FISCAL-AGENT-CD        PIC  X(03).          CHGIL100
00021              15  L100-PRIMARY-NAME           PIC  X(40).          CHGIL100
00022              15  L100-SUCCESSOR              PIC S9(07) COMP-3.   CHGIL100
00023                                                                   CHGIL100
00024          10  L100-FILLER                     PIC  X(60).          CHGIL100