73 lines
5.7 KiB
COBOL
73 lines
5.7 KiB
COBOL
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
|