93 lines
7.3 KiB
COBOL
93 lines
7.3 KiB
COBOL
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
|