giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
Copybook/CHGIM030.cpy Normal file
View File

@ -0,0 +1,60 @@
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