00001 ***** 12/15/21 00002 * CHGIM030 00003 * CHGIM030 DAILY TOTAL BENEFIT CHARGE DATA LV013 00004 * THIS RECORD CONTAINS THE TOTAL BENEFIT CHARGE CHGIM030 00005 * AMOUNT FOR EACH SSN/BYE FOR EACH DATE ON WHICH CHGIM030 00006 * THERE WAS A CHANGE IN THE BENEFITS CLAIM. CHGIM030 00007 * CHGIM030 00008 * 03/05/2009 CHANGED CHG1-CHARGE-PROGRAM FROM NUMERIC CHGIM030 00009 * TO CHARACTER. CHGIM030 00010 * ADDED LEVEL-88 FOR FED ADDITIONAL COMP - GD CHGIM030 00011 * CHGIM030 00012 * 08/05/2009 ADDED 88 LEVEL FOR TRAINING, DEPENDENTS CHGIM030 00013 * AND AB ZL1 CHGIM030 00014 * CHGIM030 00015 * 11/17/2009 ADDED 88 LEVEL FOR EUC 2008 TIERS 3 AND 4 - GD CHGIM030 00016 * CHGIM030 00017 * 03/31/2010 ADDED 88 LEVEL FOR SPECIAL PAYMENTS - GD CHGIM030 00018 * 09/26/2014 ADDED 88 LEVEL FOR UCPIA - GD CHGIM030 00019 * 09/18/2020 ADDED 88 LEVEL FOR LWA - ZL1 CL**9 00020 * 12/08/2020 ADDED 88 LEVEL FOR PUA STIMULUS - ZL1 CL*10 00021 * CHGIM030 00022 * CHGIM030 00023 * KEY = 16 REC LEN = 22 CHGIM030 00024 ***** CHGIM030 00025 10 CHG30-KEY-AREA. CHGIM030 00026 15 CHG30-SSN PIC S9(09) COMP-3. CHGIM030 00027 15 CHG30-CHARGE-DATE PIC S9(09) COMP-3. CHGIM030 00028 15 CHG30-BYE PIC S9(09) COMP-3. CHGIM030 00029 15 CHG30-PROGRAM PIC X(01). CHGIM030 00030 88 CHG30-PROG-UI VALUE '1'. CHGIM030 00031 88 CHG30-PROG-EB VALUE '2'. CHGIM030 00032 88 CHG30-PROG-TEUC VALUE '3'. CHGIM030 00033 88 CHG30-PROG-TEUCA VALUE '4'. CHGIM030 00034 88 CHG30-PROG-FAC VALUE '5'. CHGIM030 00035 88 CHG30-PROG-FSB VALUE '6'. CHGIM030 00036 88 CHG30-PROG-FSC VALUE '7'. CHGIM030 00037 88 CHG30-PROG-DUA VALUE '8'. CHGIM030 00038 88 CHG30-PROG-TR2 VALUE '9'. CHGIM030 00039 88 CHG30-PROG-TRA VALUE '0'. CHGIM030 00040 88 CHG30-PROG-STEPLDR VALUE 'A'. CHGIM030 00041 88 CHG30-PROG-AB VALUE 'B'. CHGIM030 00042 88 CHG30-PROG-TRAINING VALUE 'C'. CL**8 00043 88 CHG30-PROG-DEPENDENTS VALUE 'D'. CHGIM030 00044 88 CHG30-PROG-EUC08-2PLUS VALUE 'E'. CHGIM030 00045 88 CHG30-PROG-EUC08-TIER3 VALUE 'F'. CHGIM030 00046 88 CHG30-PROG-EUC08-TIER4 VALUE 'G'. CHGIM030 00047 88 CHG30-PROG-SPECIAL-PAY VALUE 'H'. CHGIM030 00048 88 CHG30-PROG-UCPIA VALUE 'I'. CHGIM030 00049 88 CHG30-PROG-GPA-88 VALUE 'J'. CL**2 00050 88 CHG30-PROG-PUA-88 VALUE 'U'. CL**3 00051 88 CHG30-PROG-PFUC-88 VALUE 'L'. CL**2 00052 88 CHG30-PROG-FRUR-88 VALUE 'M'. CL**2 00053 88 CHG30-PROG-PEUC-88 VALUE 'N'. CL**8 00054 88 CHG30-PROG-REUR-88 VALUE 'Y'. CL**7 00055 88 CHG30-PROG-LWA-88 VALUE 'X'. CL**9 00056 88 CHG30-PROG-PUA-STIM-88 VALUE 'R'. CL*12 00057 88 CHG30-PROG-DUC-88 VALUE 'R'. CL*13 00058 CHGIM030 00059 10 CHG30-DATA-AREA. CHGIM030 00060 15 CHG30-TOT-CHG-AMT PIC S9(08)V99 COMP-3. CHGIM030