125 lines
9.8 KiB
COBOL
125 lines
9.8 KiB
COBOL
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
|