00001 ***** 07/15/19 00002 * DTSILX42 00003 * DTSILX42 LINKAGE FOR DTSBX420: WEB IMPORT DRIVER LV012 00004 * DTSILX42 00005 * DTSILX42 00006 * 07/23/2007 INITIAL DEVELOPMENT. GD DTSILX42 00007 * 06/16/2010 MODIFIED FOR IN-HOUSE CASHIERING - DTSILX42 00008 * ADDED BATCH-HEADER AREA. GD DTSILX42 00009 * 11/09/2010 ADDED EXT-PSEUDO-BATCH FOR WEB DTSILX42 00010 * REPORTS. GD DTSILX42 00011 * DTSILX42 00012 * 10/13/2014 ADDED EMP-NO FOR ALL REC TYPES DTSILX42 00013 * 11/07/2014 ADDED EMP-QTR FOR X140 RECORDS CL**3 00014 * ZL1 DTSILX42 00015 * DTSILX42 00016 ***** DTSILX42 00017 DTSILX42 00018 10 LX42-COMMAND PIC X(01). DTSILX42 00019 88 LX42-INITIALIZE-88 VALUE '0'. DTSILX42 00020 88 LX42-NEW-EMPLOYER-88 VALUE '1'. DTSILX42 00021 88 LX42-PROCESS-88 VALUE '2'. DTSILX42 00022 88 LX42-TERMINATE-88 VALUE '3'. DTSILX42 00023 88 LX42-NEW-BATCH-88 VALUE '4'. DTSILX42 00024 88 LX42-BATCH-ERROR-88 VALUE '5'. DTSILX42 00025 DTSILX42 00026 10 LX42-COMMON-DATA. DTSILX42 00027 15 LX42-CURR-RUN-DATE PIC S9(09) COMP-3. CL*12 00028 15 LX42-SYS-DATE PIC S9(09) COMP-3. DTSILX42 00029 15 LX42-SYS-TIME PIC S9(07) COMP-3. DTSILX42 00030 15 LX42-LAST-RATE-YEAR PIC 9(04). DTSILX42 00031 15 LX42-LAST-DETERM-EMP PIC S9(07) COMP-3. DTSILX42 00032 15 LX42-EXT-PSEUDO-BATCH PIC 9(05). DTSILX42 00033 15 LX42-EXT-PSEUDO-ITEM PIC 9(03). DTSILX42 00034 15 LX42-ERROR-IND PIC X(01). DTSILX42 00035 88 LX42-ERROR-YES-88 VALUE 'Y'. DTSILX42 00036 88 LX42-ERROR-NO-88 VALUE 'N'. DTSILX42 00037 15 LX42-X102-EMP-NO PIC X(06). DTSILX42 00038 15 LX42-X104-EMP-NO PIC X(06). DTSILX42 00039 15 LX42-X106-EMP-NO PIC X(06). DTSILX42 00040 15 LX42-X108-EMP-NO PIC X(06). DTSILX42 00041 15 LX42-X110-EMP-NO PIC X(06). DTSILX42 00042 15 LX42-X120-EMP-NO PIC X(06). DTSILX42 00043 15 LX42-X140-EMP-NO PIC X(06). DTSILX42 00044 15 LX42-X144-EMP-NO PIC X(06). DTSILX42 00045 15 LX42-X145-EMP-NO PIC X(06). DTSILX42 00046 15 LX42-X104-LIAB-CD PIC X(02). DTSILX42 00047 15 LX42-X102-KEY-AREA PIC 9(06). CL**2 00048 15 LX42-X104-KEY-AREA PIC 9(06). CL**2 00049 15 LX42-X106-KEY-AREA PIC 9(06). CL**2 00050 15 LX42-X108-KEY-AREA PIC 9(06). CL**2 00051 15 LX42-X110-KEY-AREA PIC 9(06). CL**2 00052 15 LX42-X120-KEY-AREA PIC 9(06). CL**2 00053 15 LX42-X140-KEY-AREA PIC 9(06). CL**2 00054 15 LX42-X140-QTR-AREA PIC X(06). CL**4 00055 15 LX42-X144-KEY-AREA PIC 9(06). CL**2 00056 15 LX42-X144-QTR-AREA PIC X(06). CL**7 00057 15 LX42-X145-KEY-AREA PIC 9(06). CL**2 00058 15 LX42-X145-QTR-AREA PIC X(06). CL**5 00059 15 LX42-RPT-ERROR-IND PIC X(01). CL**3 00060 88 LX42-RPT-ERROR-YES-88 VALUE 'Y'. CL**3 00061 88 LX42-RPT-ERROR-NO-88 VALUE 'N'. CL**3 00062 DTSILX42 00063 10 LX42-BATCH-HEADER. DTSILX42 00064 15 LX42-CURR-QTR PIC X(06). CL*10 00065 15 LX42-PSEUDO-BATCH-NO PIC 9(04). CL*10 00066 15 LX42-DEPOSIT-DATE PIC S9(09) COMP-3. DTSILX42 00067 15 LX42-RPT-CNT PIC S9(03) COMP-3. DTSILX42 00068 15 LX42-RPT-REMIT-AMT PIC S9(09)V99 COMP-3. DTSILX42 00069 15 LX42-PAY-CNT PIC S9(03) COMP-3. DTSILX42 00070 15 LX42-PAY-REMIT-AMT PIC S9(09)V99 COMP-3. DTSILX42 00071 15 LX42-BATCH-ERR-IND PIC X(01). DTSILX42 00072 88 LX42-BATCH-ERR-YES-88 VALUE 'Y'. DTSILX42 00073 88 LX42-BATCH-ERR-NO-88 VALUE 'N'. DTSILX42 00074 DTSILX42 00075 10 LX42-DATA-AREA. DTSILX42 00076 15 LX42-REC-TYPE PIC X(03). DTSILX42 00077 88 LX42-REC-TYPE-PRF-88 VALUE '102'. DTSILX42 00078 88 LX42-REC-TYPE-DETERM-88 VALUE '104'. DTSILX42 00079 88 LX42-REC-TYPE-NAME-88 VALUE '106'. DTSILX42 00080 88 LX42-REC-TYPE-RATE-88 VALUE '108'. DTSILX42 00081 88 LX42-REC-TYPE-ADDR-88 VALUE '110'. DTSILX42 00082 88 LX42-REC-TYPE-OPO-88 VALUE '120'. DTSILX42 00083 88 LX42-REC-TYPE-REL-88 VALUE '130'. DTSILX42 00084 88 LX42-REC-TYPE-IND-88 VALUE '132'. DTSILX42 00085 88 LX42-REC-TYPE-RPT-88 VALUE '140'. DTSILX42 00086 88 LX42-REC-TYPE-WAGE-88 VALUE '144'. DTSILX42 00087 88 LX42-REC-TYPE-AWAGE-88 VALUE '147'. CL**8 00088 88 LX42-REC-TYPE-PAY-88 VALUE '145'. DTSILX42 00089 88 LX42-REC-TYPE-BHDR-88 VALUE '149'. DTSILX42 00090 15 FILLER PIC X(01). DTSILX42 00091 15 LX42-EMP-NO PIC X(06). DTSILX42 00092 15 FILLER PIC X(502). DTSILX42