00001 ***** 04/04/18 00002 * DTSHX145 00003 * DTSIX145 EMPLOYER PAYMENT EXTRACT RECORD LV008 00004 * DTSHX145 00005 * EXCHANGES EMPLOYER PAYMENT DATA BETWEEN MAINFRAME AND DTSHX145 00006 * SQL SERVER DATABASE. DTSHX145 00007 * DTSHX145 00008 * 05/04/2010 ADDED CHECK SCAN DATE, CHECK SEQUENCE NBR, DTSHX145 00009 * LEVEL-88 FOR PAYMENTS FROM IN-HOUSE CASHIERING, DTSHX145 00010 * INTEREST AND PENALTY WAIVER INDICATORS, DTSHX145 00011 * RESPONSIBLE OPID AND ACTIVITY. GD DTSHX145 00012 * DTSHX145 00013 * 11/17/2010 CHANGED LENGTH OF SOURCE TO ONE BYTE. ADDED DTSHX145 00014 * X145-TO-WEB-88 FOR DATA SENT TO THE WEB DTSHX145 00015 * DATABASE FROM THE MAINFRAME. GD DTSHX145 00016 ***** DTSHX145 00017 DTSHX145 00018 15 H145-REC-TYPE PIC X(03) VALUE '145'. CL**7 00019 15 FILLER PIC X(01) VALUE ','. DTSHX145 00020 15 H145-EMP-NO PIC 9(06). CL**7 00021 15 FILLER PIC X(01) VALUE ','. DTSHX145 00022 15 H145-QTR PIC X(06). CL**7 00023 15 FILLER PIC X(01) VALUE ','. DTSHX145 00024 15 FILLER PIC X(06). CL**3 00025 15 FILLER PIC X(01) VALUE ','. CL**3 00026 15 FILLER PIC X(03). CL**5 00027 15 FILLER PIC X(01) VALUE ','. CL**3 00028 15 FILLER PIC X(02). CL**3 00029 15 FILLER PIC X(01) VALUE ','. CL**3 00030 15 FILLER PIC X(02). CL**3 00031 15 FILLER PIC X(01) VALUE ','. CL**3 00032 15 FILLER PIC X(02). CL**3 00033 15 FILLER PIC X(01) VALUE ','. CL**3 00034 15 H145-REMITTANCE PIC 9(11).99. CL**8 00035 15 FILLER PIC X(01) VALUE ','. DTSHX145 00036 15 H145-RECV-DATE PIC X(10). CL**7 00037 15 FILLER PIC X(01) VALUE ','. CL**3 00038 15 FILLER PIC X(10). CL**3 00039 15 FILLER PIC X(01) VALUE ','. CL**3 00040 15 H145-TRACE-NO PIC X(08). CL**7 00041 15 FILLER PIC X(429). CL**5