61 lines
4.7 KiB
COBOL
61 lines
4.7 KiB
COBOL
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
|