00001 ***** 02/26/03 00002 * CHGIL030 00003 * CHGIL030 TOTAL BENEFITS PAID LINKAGE LV003 00004 * CHGIL030 00005 * CHGIL030 00006 * CHGIL030 00007 ***** CHGIL030 00008 10 CG-L030-COMMAND PIC X(01). CHGIL030 00009 88 CG-L030-CMND-INIT-88 VALUE '0'. CHGIL030 00010 88 CG-L030-CMND-PROCESS-88 VALUE '1'. CHGIL030 00011 88 CG-L030-CMND-TERM-88 VALUE '2'. CHGIL030 00012 CHGIL030 00013 10 CG-L030-INPUT. CHGIL030 00014 15 CG-L030-SSN PIC 9(09). CHGIL030 00015 15 CG-L030-START-DATE PIC S9(09) COMP-3. CHGIL030 00016 15 CG-L030-END-DATE PIC S9(09) COMP-3. CHGIL030 00017 15 CG-L030-BYE PIC S9(09) COMP-3. CHGIL030 00018 15 CG-L030-PROGRAM PIC X(01). CHGIL030 00019 CHGIL030 00020 10 CG-L030-RETURN. CHGIL030 00021 15 CG-L030-TOT-CHG PIC S9(11)V99 COMP-3. CHGIL030 00022 CHGIL030 00023 10 FILLER PIC X(66). CHGIL030