00001 ******************************************************************01/25/24 00002 ** ESPRPT04 - EMPLOYER CHARGING REPORT RECORD **ESPRPT04 00003 *** *** LV023 00004 *** ADDED 88 LEVEL FOR TEUCA 08/18/03 BEJ *** CL*12 00005 ****************************************************************** CL*12 00006 *CHANGED REC-TYPE TO PIC X FROM PIC 9 AK 04/15/04* CL*13 00007 *CHANGED CHARGE-PROG TO PIC X BEJ 03/06/09* CL*14 00008 ****************************************************************** CL*13 00009 01 CHARGE-REC. ESPRPT04 00010 05 CHARGE-SORT-KEY. ESPRPT04 00011 * 10 CHARGE-REC-TYPE PIC 9(2) VALUE 04. CL*13 00012 10 CHARGE-REC-TYPE-X PIC X(2) VALUE '04'. CL*13 00013 10 CHARGE-REC-TYPE REDEFINES CHARGE-REC-TYPE-X PIC 9(2). CL*13 00014 10 CHARGE-EMPL-ACCT PIC 9(6) VALUE ZERO. ESPRPT04 00015 10 CHARGE-KEY. ESPRPT04 00016 15 CHARGE-SSN PIC 9(9) VALUE ZERO. ESPRPT04 00017 15 CHARGE-SSN-SEQ PIC 9(1) VALUE ZERO. ESPRPT04 00018 10 CHARGE-CODE PIC 9(1) VALUE ZERO. ESPRPT04 00019 88 CHARGE-ADJ VALUE 3. ESPRPT04 00020 88 CHARGE-BEN VALUE 4. ESPRPT04 00021 88 CHARGE-OP-ESTABLISH VALUE 5. CL**3 00022 88 CHARGE-OP-RECOUP VALUE 6. CL**3 00023 88 CHARGE-IB6 VALUE 7. CL**3 00024 88 CHARGE-OP-WAIVER VALUE 8. CL**7 00025 88 CHARGE-OTHER VALUE 9. CL**7 00026 10 CHARGE-DATE PIC 9(8) VALUE ZERO. CL**2 00027 10 CHARGE-SHAREABLE-IND PIC X(1) VALUE SPACES. CL*22 00028 * 88 CHARGE-SHAREABLE-YES VALUE 1. CL*22 00029 10 CHARGE-PROG-NAME PIC X(6) VALUE SPACE. ESPRPT04 00030 10 CHARGE-PAY-TYPE-BEN PIC X(2) VALUE SPACE. ESPRPT04 00031 05 CHARGE-BWE-DATE PIC 9(8) VALUE ZERO. CL**2 00032 05 CHARGE-TRAN-ID PIC X(2) VALUE SPACE. ESPRPT04 00033 05 CHARGE-OPER-ID PIC X(8) VALUE SPACE. ESPRPT04 00034 * 05 CHARGE-TOT-AMTZ PIC -9(7)V99 VALUE ZERO. CL*19 00035 * 05 CHARGE-TOT-AMT REDEFINES CHARGE-TOT-AMTZ PIC S9(8)V99. CL*19 00036 05 CHARGE-TOT-AMT PIC -9(7)V99. CL*19 00037 * 05 CHARGE-CURR-AMTZ PIC -9(7)V99 VALUE ZERO. CL*19 00038 * 05 CHARGE-CURR-AMT REDEFINES CHARGE-CURR-AMTZ PIC S9(8)V99. CL*19 00039 05 CHARGE-CURR-AMT PIC -9(7)V99. CL*19 00040 05 CHARGE-BYE-DATE PIC 9(8) VALUE ZERO. CL**2 00041 05 CHARGE-SUPP-CODE PIC X(1) VALUE SPACE. ESPRPT04 00042 88 CHARGE-SUPP-CODE-EB VALUE 'E'. ESPRPT04 00043 88 CHARGE-SUPP-CODE-TEUC VALUE 'T'. CL*11 00044 88 CHARGE-SUPP-CODE-TEUCA VALUE 'A'. CL*12 00045 05 CHARGE-PAY-TYPE PIC X(1) VALUE SPACE. ESPRPT04 00046 05 CHARGE-NAME PIC X(32) VALUE SPACE. ESPRPT04 00047 05 CHARGE-FILLER CL**9 00048 REDEFINES CL**9 00049 CHARGE-NAME. CL**9 00050 10 CHARGE-LAST-NAME PIC X(18). CL**6 00051 10 CHARGE-NAME-SLASH PIC X. CL**6 00052 10 CHARGE-FIRST-NAME PIC X(12). CL**6 00053 10 CHARGE-MIDDLE-NAME PIC X. CL**6 00054 05 CHARGE-EMPLOYER-TYPE PIC X(2) VALUE ZERO. CL*23 00055 * 88 CHARGE-EMPLOYER-CONTRIBUTORY VALUE 00. CL*23 00056 * 88 CHARGE-EMPLOYER-UCX VALUE 01. CL*23 00057 * 88 CHARGE-EMPLOYER-UCFE VALUE 02. CL*23 00058 * 88 CHARGE-EMPLOYER-ETA-PSE VALUE 03. CL*23 00059 * 88 CHARGE-EMPLOYER-INTERSTATE VALUE 04. CL*23 00060 * 88 CHARGE-EMPLOYER-VOL-QUIT VALUE 05. CL*23 00061 * 88 CHARGE-EMPLOYER-MISCONDUCT VALUE 06. CL*23 00062 * 88 CHARGE-EMPLOYER-EB VALUE 07. CL*23 00063 * 88 CHARGE-EMPLOYER-SELF-INSURED VALUE 08. CL*23 00064 * 88 CHARGE-EMPLOYER-TRA VALUE 09. CL*23 00065 * 88 CHARGE-EMPLOYER-DC-GOVERNMENT VALUE 10. CL*23 00066 * 88 CHARGE-EMPLOYER-UI-PSE VALUE 11. CL*23 00067 * 88 CHARGE-EMPLOYER-FSC VALUE 12. CL*23 00068 * 88 CHARGE-EMPLOYER-DUMMY VALUE 30. CL*23 00069 05 CHARGE-REG-ADJ-CHECK PIC X(02) VALUE ZEROS. CL*23 00070 05 CHARGE-PROG-X PIC X(02). CL*14 00071 05 CHARGE-PROG REDEFINES CHARGE-PROG-X PIC 9(02). CL*14 00072 05 CHARGE-FILLER-ONE PIC X(14) VALUE SPACE. CL**4