00001 *****                                                             06/26/00
00002 *                                                                 CHGIM007
00003 *    CHGIM007  FISCAL AGENT OUTPUT CHARGE RECORD                     LV044
00004 *                                                                 CHGIM007
00005 *    CHGBR100 WRITES OUTPUT RECORDS IN                            CHGIM007
00006 *    THIS FORMAT TO A DISK FILE.                                  CHGIM007
00007 *    CHGBD400 READS THIS DISK FILE AT THE END OF THE CHARGE       CHGIM007
00008 *    PROCESS, AND BUILDS TAPE FILES FOR EACH FISCAL AGENT.        CHGIM007
00009 *                                                                 CHGIM007
00010 *****                                                             CHGIM007
00011          10  CHG5-SORT-KEY-AREA.                                  CHGIM007
00012              15  CHG7-EMP-NO             PIC 9(06).               CHGIM007
00013              15  CHG7-SSN                PIC 9(09).               CHGIM007
00014              15  CHG7-TOT-CHG-AMT        PIC S9(10)V99.           CHGIM007
00015              15  CHG7-BYE                PIC 9(06).               CHGIM007
00016              15  CHG7-CLMNT-NAME         PIC X(32).               CHGIM007
00017              15  CHG7-START-DATE         PIC 9(06).               CHGIM007
00018              15  CHG7-END-DATE           PIC 9(06).               CHGIM007
00019              15  FILLER7                 PIC X(56).                  CL*44