00001 ***** 04/20/00 00002 * CHGIM008 00003 * CHGIM008 FISCAL AGENT OUTPUT CHARGE RECORD AND LV039 00004 * SELF-INSURANCE OUTPUT CHARGE RECORD. CHGIM008 00005 * CHGIM008 00006 * CHGBR100 AND CHGBR110 PROGRAMS WRITE OUTPUT RECORDS IN CHGIM008 00007 * THIS FORMAT TO A DISK FILES. CHGIM008 00008 * CHGBD400 READS THIS DISK FILE AT THE END OF THE CHARGE CHGIM008 00009 * PROCESS, AND BUILDS TAPE FILES FOR EACH FISCAL AGENT. CHGIM008 00010 * CHGIM008 00011 * THIS COPYBOOK IS SET UP WITH EIGHT BYTES DATE FOR Y2K CHGIM008 00012 * COMPLIANCE PURPOSE. THE RECORD HAS 136 BYTES LONG. CHGIM008 00013 * THE FIRST THREE BYTES AGENT CODE WILL USE THE SORT CHGIM008 00014 * UTILITY TO CHOP OFF BEFORE THE FILE WILL CONTAIN 133 CHGIM008 00015 * BYTES LONG AND SEND BACK TO THE FISCAL AGENT. CHGIM008 00016 * CHGIM008 00017 ***** CHGIM008 00018 10 CHG5-SORT-KEY-AREA. CHGIM008 00019 15 CHG8-FISCAL-AGENT-CD PIC X(03). CHGIM008 00020 15 CHG8-EMP-NO PIC 9(06). CHGIM008 00021 15 CHG8-SSN PIC 9(09). CHGIM008 00022 15 CHG8-TOT-CHG-AMT PIC S9(10)V99. CHGIM008 00023 15 CHG8-BYE PIC 9(08). CHGIM008 00024 15 CHG8-CLMNT-NAME PIC X(32). CHGIM008 00025 15 CHG8-START-DATE PIC 9(08). CHGIM008 00026 15 CHG8-END-DATE PIC 9(08). CHGIM008 00027 15 FILLER1 PIC X(50). CHGIM008