DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
124
Copybook/CHGIM002.cpy
Normal file
124
Copybook/CHGIM002.cpy
Normal file
@ -0,0 +1,124 @@
|
||||
00001 ***** 05/25/22
|
||||
00002 * CHGIM002
|
||||
00003 * CHGIM002 DAILY BENEFIT CHARGE DATA LV021
|
||||
00004 * THIS RECORD CONTAINS BENEFIT CHARGE DATA CHGIM002
|
||||
00005 * ACCUMULATED BY DATE/EMPLOYER/SS/BYE/BENEFIT PROGRAMCHGIM002
|
||||
00006 * CHGIM002
|
||||
00007 * 03/05/2009 CHANGED CHG1-CHARGE-PROGRAM FROM NUMERIC CHGIM002
|
||||
00008 * TO CHARACTER. CHGIM002
|
||||
00009 * ADDED LEVEL-88 FOR FED ADDITIONAL COMP - GD CHGIM002
|
||||
00010 * CHGIM002
|
||||
00011 * 08/05/2009 ADDED LEVEL-88 FOR TRAINING, DEPENDENTS CHGIM002
|
||||
00012 * AND AB ZL1 CHGIM002
|
||||
00013 * CHGIM002
|
||||
00014 * 11/17/2009 ADDED LEVEL-88 FOR EUC 2008 TIERS 3 AND 4 - GD CHGIM002
|
||||
00015 * CHGIM002
|
||||
00016 * 03/31/2010 ADDED LEVEL-88 FOR SPECIAL PAYMENTS - GD CHGIM002
|
||||
00017 * 03/31/2010 ADDED LEVEL-88 FOR SPECIAL PAYMENTS - GD CL**2
|
||||
00018 * CHGIM002
|
||||
00019 * 04/05/2020 ADDED LEVEL-88 FOR PUA, FPUC, FRUR CL**2
|
||||
00020 * ZL1 CL**2
|
||||
00021 * 09/18/2020 ADDED LEVEL-88 FOR LWA CL*16
|
||||
00022 * 12/08/2020 ADDED LEVEL-88 FOR PUA STIMULUS CL*18
|
||||
00023 * ZL1 CL*16
|
||||
00024 ***** CHGIM002
|
||||
00025 10 CHG2-KEY-AREA. CHGIM002
|
||||
00026 15 CHG2-CHARGE-DATE PIC S9(09) COMP-3. CHGIM002
|
||||
00027 15 CHG2-EMP-NO PIC S9(07) COMP-3. CHGIM002
|
||||
00028 15 CHG2-SSN PIC S9(10) COMP-3. CHGIM002
|
||||
00029 15 CHG2-BYE PIC S9(09) COMP-3. CHGIM002
|
||||
00030 15 CHG2-PROGRAM PIC X(01). CHGIM002
|
||||
00031 88 CHG2-PROG-UI VALUE '1'. CHGIM002
|
||||
00032 88 CHG2-PROG-EB VALUE '2'. CHGIM002
|
||||
00033 88 CHG2-PROG-TEUC VALUE '3'. CHGIM002
|
||||
00034 88 CHG2-PROG-TEUCA VALUE '4'. CHGIM002
|
||||
00035 88 CHG2-PROG-FAC VALUE '5'. CHGIM002
|
||||
00036 88 CHG2-PROG-FSB VALUE '6'. CHGIM002
|
||||
00037 88 CHG2-PROG-FSC VALUE '7'. CHGIM002
|
||||
00038 88 CHG2-PROG-DUA VALUE '8'. CHGIM002
|
||||
00039 88 CHG2-PROG-TR2 VALUE '9'. CHGIM002
|
||||
00040 88 CHG2-PROG-TRA VALUE '0'. CHGIM002
|
||||
00041 88 CHG2-PROG-STEPLDR VALUE 'A'. CHGIM002
|
||||
00042 88 CHG2-PROG-AB VALUE 'B'. CHGIM002
|
||||
00043 88 CHG2-PROG-TRAINING VALUE 'C'. CL*14
|
||||
00044 88 CHG2-PROG-DEPENDENTS VALUE 'D'. CHGIM002
|
||||
00045 88 CHG2-PROG-EUC08-2PLUS VALUE 'E'. CHGIM002
|
||||
00046 88 CHG2-PROG-EUC08TR3 VALUE 'F'. CHGIM002
|
||||
00047 88 CHG2-PROG-EUC08TR4 VALUE 'G'. CHGIM002
|
||||
00048 88 CHG2-PROG-SPECIAL-PAY VALUE 'H'. CHGIM002
|
||||
00049 88 CHG2-PROG-UCPIA VALUE 'I'. CL**3
|
||||
00050 88 CHG2-PROG-GPA VALUE 'J'. CL**3
|
||||
00051 88 CHG2-PROG-PUA VALUE 'U'. CL**6
|
||||
00052 88 CHG2-PROG-PFUC VALUE 'L'. CL**3
|
||||
00053 88 CHG2-PROG-FRUR VALUE 'M'. CL**3
|
||||
00054 88 CHG2-PROG-PEUC VALUE 'N'. CL*15
|
||||
00055 88 CHG2-PROG-REUR VALUE 'Y'. CL*12
|
||||
00056 88 CHG2-PROG-LWA VALUE 'X'. CL*16
|
||||
00057 88 CHG2-PROG-PUA-STIM VALUE 'R'. CL*19
|
||||
00058 88 CHG2-PROG-DUC VALUE 'R'. CL*20
|
||||
00059 CHGIM002
|
||||
00060 10 CHG2-DATA-AREA. CHGIM002
|
||||
00061 15 CHG2-EMP-TYPE PIC 9(02). CHGIM002
|
||||
00062 88 CHG2-EMP-TYPE-CONTRIB-88 VALUE 00. CHGIM002
|
||||
00063 88 CHG2-EMP-TYPE-UCX-88 VALUE 01. CHGIM002
|
||||
00064 88 CHG2-EMP-TYPE-UCFE-88 VALUE 02. CHGIM002
|
||||
00065 88 CHG2-EMP-TYPE-FED-88 VALUE 01, 02. CHGIM002
|
||||
00066 88 CHG2-EMP-TYPE-CWC-88 VALUE 04. CHGIM002
|
||||
00067 88 CHG2-EMP-TYPE-VOL-QUIT-88 VALUE 05. CL*21
|
||||
00068 88 CHG2-EMP-TYPE-MISCONDUCT-88 VALUE 06. CL*21
|
||||
00069 88 CHG2-EMP-TYPE-EB-88 VALUE 07. CL*21
|
||||
00070 88 CHG2-EMP-TYPE-SELF-INS-88 VALUE 08. CHGIM002
|
||||
00071 88 CHG2-EMP-TYPE-TRA-88 VALUE 09. CL*21
|
||||
00072 88 CHG2-EMP-TYPE-DC-GOV-88 VALUE 10. CHGIM002
|
||||
00073 88 CHG2-EMP-TYPE-NOT-LIAB-88 VALUE 13. CHGIM002
|
||||
00074 88 CHG2-EMP-TYPE-CONT-88 VALUE 15. CHGIM002
|
||||
00075 88 CHG2-EMP-TYPE-TEUC-88 VALUE 16. CHGIM002
|
||||
00076 88 CHG2-EMP-TYPE-DOM-V-88 VALUE 17. CHGIM002
|
||||
00077 88 CHG2-EMP-TYPE-STEP-88 VALUE 18. CHGIM002
|
||||
00078 88 CHG2-EMP-TYPE-EUC08-88 VALUE 19. CHGIM002
|
||||
00079 88 CHG2-EMP-TYPE-FAC-88 VALUE 20. CHGIM002
|
||||
00080 88 CHG2-EMP-TYPE-AB-88 VALUE 21. CHGIM002
|
||||
00081 88 CHG2-EMP-TYPE-DEPND-88 VALUE 22. CHGIM002
|
||||
00082 88 CHG2-EMP-TYPE-TRAIN-88 VALUE 23. CHGIM002
|
||||
00083 88 CHG2-EMP-TYPE-EUC08-2PL-88 VALUE 24. CHGIM002
|
||||
00084 88 CHG2-EMP-TYPE-EUC08TR3-88 VALUE 25. CHGIM002
|
||||
00085 88 CHG2-EMP-TYPE-EUC08TR4-88 VALUE 26. CHGIM002
|
||||
00086 88 CHG2-EMP-TYPE-SPEC-PAY-88 VALUE 27. CHGIM002
|
||||
00087 88 CHG2-EMP-TYPE-UCPIA-88 VALUE 28. CL**2
|
||||
00088 88 CHG2-EMP-TYP2-PUA-88 VALUE 29. CL**2
|
||||
00089 88 CHG2-EMP-TYPE-GPA-88 VALUE 31. CL**2
|
||||
00090 88 CHG2-EMP-TYPE-FPUC-88 VALUE 32. CL**2
|
||||
00091 88 CHG2-EMP-TYPE-FRUR-88 VALUE 33. CL**2
|
||||
00092 88 CHG2-EMP-TYPE-PEUC-88 VALUE 34. CL**4
|
||||
00093 88 CHG2-EMP-TYPE-REUR-88 VALUE 35. CL*11
|
||||
00094 88 CHG2-EMP-TYPE-LWA-88 VALUE 36. CL*16
|
||||
00095 88 CHG2-EMP-TYPE-PUAS-88 VALUE 37. CL*17
|
||||
00096 88 CHG2-EMP-TYPE-MEUC-88 VALUE 38. CL*20
|
||||
00097 88 CHG2-EMP-TYPE-DUC-88 VALUE 39. CL*20
|
||||
00098 88 CHG2-EMP-TYPE-POOL-88 VALUE 03, 05, 06, CHGIM002
|
||||
00099 04, 15, 16, CHGIM002
|
||||
00100 17, 18, 19, CL*14
|
||||
00101 20, 21, 22, CL*14
|
||||
00102 23, 24, 25, CL*14
|
||||
00103 26, 27, 28, CL*14
|
||||
00104 29, 31, 32, CL*14
|
||||
00105 33, 34, 35. CL*14
|
||||
00106 88 CHG2-EMP-TYPE-VALID-88 VALUE 00, 01, 02, CHGIM002
|
||||
00107 05, 06, 07, CHGIM002
|
||||
00108 08, 10, 13, CHGIM002
|
||||
00109 15, 16, 17, CHGIM002
|
||||
00110 18, 19, 20, CHGIM002
|
||||
00111 21, 22, 23, CHGIM002
|
||||
00112 24, 25, 26, CL**2
|
||||
00113 27, 28, 29, CL**2
|
||||
00114 31, 32, 33, CL**5
|
||||
00115 34, 35, 36, CL*17
|
||||
00116 37 38, 39. CL*20
|
||||
00117 CHGIM002
|
||||
00118 15 CHG2-CURR-BEN-AMT PIC S9(08)V99 COMP-3. CHGIM002
|
||||
00119 15 CHG2-CURR-ADJ-AMT PIC S9(08)V99 COMP-3. CHGIM002
|
||||
00120 15 CHG2-TOT-BEN-AMT PIC S9(08)V99 COMP-3. CHGIM002
|
||||
00121 15 CHG2-TOT-ADJ-AMT PIC S9(08)V99 COMP-3. CHGIM002
|
||||
00122 15 CHG2-OP-RECOVER-AMT PIC S9(08)V99 COMP-3. CHGIM002
|
||||
00123 CHGIM002
|
||||
00124 10 CHG2-DATA-FILLER PIC X(11). CHGIM002
|
||||
Reference in New Issue
Block a user