00001 ***** 03/19/13 00002 * CHGIM012 00003 * CHGIM012 CHARGE INTERFACE RECORD FOR STC. LV007 00004 * CHGIM012 00005 * USED IN CHGBD102, WHICH READS DATA FROM THE STC CL**3 00006 * SUB-SYSTEM AND FORMATS CHGIM001 RECORDS FOR INPUT CL**3 00007 * TO CHGBD200. CL**3 00008 * CHGIM012 00009 * 03/18/2013 INITIAL DEVELOPMENT GD CL**3 00010 * CHGIM012 00011 ***** CHGIM012 00012 CHGIM012 00013 10 CHG12-SORT-KEY-AREA. CL**3 00014 15 CHG12-SSN PIC 9(09). CL**4 00015 15 CHG12-SSN-X REDEFINES CHG12-SSN CL**7 00016 PIC X(09). CL**7 00017 15 FILLER PIC X(01). CL**4 00018 15 CHG12-EMP-NO PIC 9(06). CL**4 00019 15 CHG12-EMP-X REDEFINES CHG12-EMP-NO CL**7 00020 PIC X(06). CL**7 00021 15 FILLER PIC X(01). CL**4 00022 15 CHG12-BYE PIC X(10). CL**4 00023 15 FILLER PIC X(01). CL**4 00024 CHGIM012 00025 10 CHG12-DATA-AREA. CL**3 00026 15 CHG12-CHARGE-DATE PIC X(10). CL**4 00027 15 FILLER PIC X(01). CL**4 00028 15 CHG12-CHARGE-PROGRAM PIC X(01). CL**3 00029 88 CHG12-CHARGE-PROG-UI VALUE '1'. CL**3 00030 88 CHG12-CHARGE-PROG-EB VALUE '2'. CL**3 00031 88 CHG12-CHARGE-PROG-TEUC VALUE '3'. CL**3 00032 88 CHG12-CHARGE-PROG-TEUCA VALUE '4'. CL**3 00033 88 CHG12-CHARGE-PROG-FAC VALUE '5'. CL**3 00034 88 CHG12-CHARGE-PROG-FSB VALUE '6'. CL**3 00035 88 CHG12-CHARGE-PROG-FSC VALUE '7'. CL**3 00036 88 CHG12-CHARGE-PROG-DUA VALUE '8'. CL**3 00037 88 CHG12-CHARGE-PROG-TR2 VALUE '9'. CL**3 00038 88 CHG12-CHARGE-PROG-TRA VALUE '0'. CL**3 00039 88 CHG12-CHARGE-PROG-STEPLDR VALUE 'A'. CL**3 00040 88 CHG12-CHARGE-PROG-AB VALUE 'B'. CL**3 00041 88 CHG12-CHARGE-PROG-TRAINING VALUE 'C'. CL**3 00042 88 CHG12-CHARGE-PROG-DEPENDENTS VALUE 'D'. CL**3 00043 88 CHG12-CHARGE-PROG-EUC08-2PLUS VALUE 'E'. CL**3 00044 88 CHG12-CHARGE-PROG-EUC08TR3 VALUE 'F'. CL**3 00045 88 CHG12-CHARGE-PROG-EUC08TR4 VALUE 'G'. CL**3 00046 88 CHG12-CHARGE-PROG-SPECIAL-PAY VALUE 'H'. CL**3 00047 88 CHG12-CHARGE-PROG-STC-88 VALUE 'I'. CL**3 00048 15 FILLER PIC X(01). CL**4 00049 15 CHG12-CHARGE-EMP-TYPE PIC 9(02). CL**3 00050 15 FILLER PIC X(01). CL**4 00051 15 CHG12-CHARGE-CODE PIC 9(01). CL**4 00052 88 CHG12-CHARGE-ADJ VALUE 3. CL**4 00053 88 CHG12-CHARGE-BEN VALUE 4. CL**4 00054 88 CHG12-CHARGE-OP-ESTABLISH VALUE 5. CL**4 00055 88 CHG12-CHARGE-OP-RECOUP VALUE 6. CL**4 00056 88 CHG12-CHARGE-IB6 VALUE 7. CL**4 00057 88 CHG12-CHARGE-OP-WAIVER VALUE 8. CL**4 00058 88 CHG12-CHARGE-OTHER VALUE 9. CL**4 00059 88 CHG12-CHARGE-ALL-ADJ VALUE 3, 5, 6, CL**4 00060 7, 8, 9. CL**4 00061 15 FILLER PIC X(01). CL**4 00062 15 CHG12-CHARGE-CURR-AMT PIC 9(11).99. CL**6 00063 15 CHG12-DATA-FILLER PIC X(40). CL**3