DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
85
Copybook/CHGIM001.cpy
Normal file
85
Copybook/CHGIM001.cpy
Normal file
@ -0,0 +1,85 @@
|
||||
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
|
||||
Reference in New Issue
Block a user