69 lines
5.4 KiB
COBOL
69 lines
5.4 KiB
COBOL
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
|