00001 ******************************************************************04/18/13 00002 ** ESPRPT04 - EMPLOYER CHARGING REPORT RECORD **ESPRPT04 00003 *** *** LV016 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 9(1) VALUE ZERO. ESPRPT04 00028 88 CHARGE-SHAREABLE-YES VALUE 1. ESPRPT04 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-AMT PIC S9(8)V99 VALUE ZERO. ESPRPT04 00035 05 CHARGE-CURR-AMT PIC S9(8)V99 VALUE ZERO. ESPRPT04 00036 05 CHARGE-BYE-DATE PIC 9(8) VALUE ZERO. CL**2 00037 05 CHARGE-SUPP-CODE PIC X(1) VALUE SPACE. ESPRPT04 00038 88 CHARGE-SUPP-CODE-EB VALUE 'E'. ESPRPT04 00039 88 CHARGE-SUPP-CODE-TEUC VALUE 'T'. CL*11 00040 88 CHARGE-SUPP-CODE-TEUCA VALUE 'A'. CL*12 00041 05 CHARGE-PAY-TYPE PIC X(1) VALUE SPACE. ESPRPT04 00042 05 CHARGE-NAME PIC X(32) VALUE SPACE. ESPRPT04 00043 05 CHARGE-FILLER CL**9 00044 REDEFINES CL**9 00045 CHARGE-NAME. CL**9 00046 10 CHARGE-LAST-NAME PIC X(18). CL**6 00047 10 CHARGE-NAME-SLASH PIC X. CL**6 00048 10 CHARGE-FIRST-NAME PIC X(12). CL**6 00049 10 CHARGE-MIDDLE-NAME PIC X. CL**6 00050 05 CHARGE-EMPLOYER-TYPE PIC 9(2) VALUE ZERO. ESPRPT04 00051 88 CHARGE-EMPLOYER-CONTRIBUTORY VALUE 00. CL*10 00052 88 CHARGE-EMPLOYER-UCX VALUE 01. CL*10 00053 88 CHARGE-EMPLOYER-UCFE VALUE 02. CL*10 00054 88 CHARGE-EMPLOYER-ETA-PSE VALUE 03. CL*10 00055 88 CHARGE-EMPLOYER-INTERSTATE VALUE 04. CL*10 00056 88 CHARGE-EMPLOYER-VOL-QUIT VALUE 05. CL*10 00057 88 CHARGE-EMPLOYER-MISCONDUCT VALUE 06. CL*10 00058 88 CHARGE-EMPLOYER-EB VALUE 07. CL*10 00059 88 CHARGE-EMPLOYER-SELF-INSURED VALUE 08. CL*10 00060 88 CHARGE-EMPLOYER-TRA VALUE 09. CL*10 00061 88 CHARGE-EMPLOYER-DC-GOVERNMENT VALUE 10. CL*10 00062 88 CHARGE-EMPLOYER-UI-PSE VALUE 11. CL*10 00063 88 CHARGE-EMPLOYER-FSC VALUE 12. CL*10 00064 88 CHARGE-EMPLOYER-DUMMY VALUE 30. CL*10 00065 05 CHARGE-REG-ADJ-CHECK PIC 9(02) VALUE ZEROS. ESPRPT04 00066 05 CHARGE-PROG-X PIC X(02). CL*14 00067 05 CHARGE-PROG REDEFINES CHARGE-PROG-X PIC 9(02). CL*14 00068 05 CHARGE-FILLER-ONE PIC X(14) VALUE SPACE. CL**4