30 lines
2.3 KiB
COBOL
30 lines
2.3 KiB
COBOL
00001 ***** 10/01/03
|
|
00002 * EFTIRSKL
|
|
00003 * EFTIFSKL GOVONE FILE SKELETAL RECORD DESCRIPTION LV028
|
|
00004 * (512 BYTE VERSION). EFTIRSKL
|
|
00005 * EFTIRSKL
|
|
00006 * 04/21/2003 REVIEWED AND MODIFIED FOR DC. ZL1 CL**3
|
|
00007 * CL**2
|
|
00008 ***** EFTIRSKL
|
|
00009 CL**2
|
|
00010 10 RSKL-LENGTH PIC S9(04) COMP. CL*28
|
|
00011 10 RSKL-REC-TYPE PIC X(02). CL**7
|
|
00012 88 RSKL-TYPE-GLOBAL-DATA-88 VALUE '01'. CL**7
|
|
00013 88 RSKL-TYPE-EMP-STATUS-88 VALUE '10'. CL**7
|
|
00014 88 RSKL-TYPE-WAGE-EXP-88 VALUE '11'. CL**7
|
|
00015 88 RSKL-TYPE-VALID-EMP-NO-88 VALUE '12'. CL**7
|
|
00016 88 RSKL-TYPE-QTR-TAX-RPT-88 VALUE '30'. CL**7
|
|
00017 88 RSKL-TYPE-ANN-TAX-RPT-88 VALUE '31'. CL**7
|
|
00018 88 RSKL-TYPE-PAYMENT-88 VALUE '32'. CL**7
|
|
00019 88 RSKL-TYPE-WAGE-IMP-88 VALUE '33'. CL**7
|
|
00020 88 RSKL-TYPE-STATUS-CHANGE-88 VALUE '34'. CL*25
|
|
00021 88 RSKL-TYPE-ENROLL-88 VALUE '35'. CL*12
|
|
00022 88 RSKL-TYPE-VALID-TRANS VALUE CL*15
|
|
00023 '30' '32' '33' '34' '35'. CL*25
|
|
00024 10 RSKL-SUB-TYPE PIC X(01). CL*10
|
|
00025 88 RSKL-SUB-TYPE-HEADER-88 VALUE '0'. CL*10
|
|
00026 88 RSKL-SUB-TYPE-DATA-88 VALUE '1'. CL*10
|
|
00027 88 RSKL-SUB-TYPE-TRAILER-88 VALUE '9'. CL*10
|
|
00028 CL**9
|
|
00029 10 FILLER PIC X(2391). CL*28
|