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