00001 ***** 02/26/24 00002 * CHGIM001 00003 * CHGIM001 CHARGE RECORD PRODUCED IN CHGBD100. LV023 00004 * CHGIM001 00005 * THE DATA IN THIS RECORD IS BASED ON DATA IN ESPRPT04. CHGIM001 00006 * CHG1-CHARGE-PROGRAM IS DERIVED FROM CHARGE-SUPP-CODE CHGIM001 00007 * IN THE DUCAS VERSION OF THE RECORD. IF A NEW BENEFIT CHGIM001 00008 * PROGRAM IS ESTABLISHED, ADD A NEW LEVEL-88 AND MODIFY CHGIM001 00009 * THE CODE IN CHGBD100 P1500. CHGIM001 00010 * CHGIM001 00011 * 03/05/2009 CHANGED CHG1-CHARGE-PROGRAM FROM NUMERIC CHGIM001 00012 * TO CHARACTER. CHGIM001 00013 * ADDED LEVEL-88 FOR FED ADDITIONAL COMP - GD CHGIM001 00014 * CHGIM001 00015 * 08/05/2009 ADDED LEVEL-88 FOR TRAINING EXTENSION CHGIM001 00016 * ADDITIONAL BENEFITS, DEPENDENT ALLOWANCE - GD CHGIM001 00017 * CHGIM001 00018 * 11/17/2009 ADDED LEVEL-88 FOR EUC 2008 TIERS 3 AND 4 - GD CHGIM001 00019 * CHGIM001 00020 * 03/31/2010 ADDED LEVEL-88 FOR SPECIAL PAYMENTS - GD CHGIM001 00021 * 03/18/2013 ADDED LEVEL-88 FOR STC - GD CHGIM001 00022 * 09/25/2014 CHANGED STC TO UCPIA - ZL1 CHGIM001 00023 * 03/25/2015 ADDED DUA - ZL1 CL**4 00024 * 03/25/2016 ADDED GPA - ZL1 CL**4 00025 * 04/03/2020 ADDED PUA FPUC FRUR PEUC - ZL1 CL**4 00026 * 09/18/2020 ADDED LWA LOST WAGES ASSISTANCE 5033 - ZL1 CL*14 00027 * 12/08/2020 ADDED PUA STIMULUS 5034 CODE 37 - ZL1 CL*16 00028 * 12/15/2021 ADDED DUC 5036 CODE 39 - ZL1 CL*20 00029 * CHGIM001 00030 ***** CHGIM001 00031 CHGIM001 00032 10 CHG1-SORT-KEY-AREA. CHGIM001 00033 15 CHG1-SSN PIC S9(10) COMP-3. CHGIM001 00034 15 CHG1-BYE PIC S9(09) COMP-3. CHGIM001 00035 15 CHG1-EMP-NO PIC S9(07) COMP-3. CHGIM001 00036 15 CHG1-KEY-FILLER PIC X(01). CHGIM001 00037 CHGIM001 00038 10 CHG1-DATA-AREA. CHGIM001 00039 15 CHG1-CHARGE-DATE PIC S9(09) COMP-3. CHGIM001 00040 15 CHG1-CHARGE-CODE PIC 9(01). CHGIM001 00041 88 CHG1-CHARGE-ADJ VALUE 3. CHGIM001 00042 88 CHG1-CHARGE-BEN VALUE 4. CHGIM001 00043 88 CHG1-CHARGE-OP-ESTABLISH VALUE 5. CHGIM001 00044 88 CHG1-CHARGE-OP-RECOUP VALUE 6. CHGIM001 00045 88 CHG1-CHARGE-IB6 VALUE 7. CHGIM001 00046 88 CHG1-CHARGE-OP-WAIVER VALUE 8. CHGIM001 00047 88 CHG1-CHARGE-OTHER VALUE 9. CHGIM001 00048 88 CHG1-CHARGE-ALL-ADJ VALUE 3, 6, CL*23 00049 7, 8, 9. CHGIM001 00050 15 CHG1-CHARGE-PROGRAM PIC X(01). CL*19 00051 88 CHG1-CHARGE-PROG-UI VALUE '1'. CHGIM001 00052 88 CHG1-CHARGE-PROG-EB VALUE '2'. CHGIM001 00053 88 CHG1-CHARGE-PROG-TEUC VALUE '3'. CHGIM001 00054 88 CHG1-CHARGE-PROG-TEUCA VALUE '4'. CHGIM001 00055 88 CHG1-CHARGE-PROG-FAC VALUE '5'. CHGIM001 00056 88 CHG1-CHARGE-PROG-FSB VALUE '6'. CHGIM001 00057 88 CHG1-CHARGE-PROG-FSC VALUE '7'. CHGIM001 00058 88 CHG1-CHARGE-PROG-DUA VALUE '8'. CHGIM001 00059 88 CHG1-CHARGE-PROG-TR2 VALUE '9'. CHGIM001 00060 88 CHG1-CHARGE-PROG-TRA VALUE '0'. CHGIM001 00061 88 CHG1-CHARGE-PROG-STEPLDR VALUE 'A'. CHGIM001 00062 88 CHG1-CHARGE-PROG-AB VALUE 'B'. CHGIM001 00063 88 CHG1-CHARGE-PROG-TRAINING VALUE 'C'. CL*12 00064 88 CHG1-CHARGE-PROG-DEPENDENTS VALUE 'D'. CHGIM001 00065 88 CHG1-CHARGE-PROG-EUC08-2PLUS VALUE 'E'. CHGIM001 00066 88 CHG1-CHARGE-PROG-EUC08TR3 VALUE 'F'. CHGIM001 00067 88 CHG1-CHARGE-PROG-EUC08TR4 VALUE 'G'. CHGIM001 00068 88 CHG1-CHARGE-PROG-SPECIAL-PAY VALUE 'H'. CHGIM001 00069 88 CHG1-CHARGE-PROG-UCPIA-88 VALUE 'I'. CHGIM001 00070 88 CHG1-CHARGE-PROG-GPA-88 VALUE 'J'. CL**4 00071 88 CHG1-CHARGE-PROG-PUA-88 VALUE 'U'. CL**6 00072 88 CHG1-CHARGE-PROG-FPUC-88 VALUE 'L'. CL**5 00073 88 CHG1-CHARGE-PROG-FRUR-88 VALUE 'M'. CL**4 00074 88 CHG1-CHARGE-PROG-PEUC-88 VALUE 'N'. CL*13 00075 88 CHG1-CHARGE-PROG-REUR-88 VALUE 'Y'. CL*11 00076 88 CHG1-CHARGE-PROG-LWA-88 VALUE 'X'. CL*15 00077 88 CHG1-CHARGE-PROG-MEUC-88 VALUE 'V'. CL*21 00078 88 CHG1-CHARGE-PROG-PUA-STIM-88 VALUE 'R'. CL*18 00079 88 CHG1-CHARGE-PROG-DUC-88 VALUE 'U'. CL*22 00080 15 CHG1-CHARGE-PAY-TYPE PIC X(01). CHGIM001 00081 88 CHG1-CHARGE-PAY-OP-RECOUP VALUE '8'. CHGIM001 00082 15 CHG1-CHARGE-NAME PIC X(32). CHGIM001 00083 15 CHG1-CHARGE-EMP-TYPE PIC 9(02). CHGIM001 00084 15 CHG1-CHARGE-CURR-AMT PIC S9(08)V99 COMP-3. CHGIM001 00085 15 CHG1-DATA-FILLER PIC X(40). CHGIM001