42 lines
3.2 KiB
COBOL
42 lines
3.2 KiB
COBOL
00001 ***** 04/04/18
|
|
00002 * DTSEX145
|
|
00003 * DTSIX145 EMPLOYER PAYMENT EXTRACT RECORD LV007
|
|
00004 * DTSEX145
|
|
00005 * EXCHANGES EMPLOYER PAYMENT DATA BETWEEN MAINFRAME AND DTSEX145
|
|
00006 * SQL SERVER DATABASE. DTSEX145
|
|
00007 * DTSEX145
|
|
00008 * 05/04/2010 ADDED CHECK SCAN DATE, CHECK SEQUENCE NBR, DTSEX145
|
|
00009 * LEVEL-88 FOR PAYMENTS FROM IN-HOUSE CASHIERING, DTSEX145
|
|
00010 * INTEREST AND PENALTY WAIVER INDICATORS, DTSEX145
|
|
00011 * RESPONSIBLE OPID AND ACTIVITY. GD DTSEX145
|
|
00012 * DTSEX145
|
|
00013 * 11/17/2010 CHANGED LENGTH OF SOURCE TO ONE BYTE. ADDED DTSEX145
|
|
00014 * X145-TO-WEB-88 FOR DATA SENT TO THE WEB DTSEX145
|
|
00015 * DATABASE FROM THE MAINFRAME. GD DTSEX145
|
|
00016 ***** DTSEX145
|
|
00017 DTSEX145
|
|
00018 15 E145-REC-TYPE PIC X(03) VALUE '145'. CL**3
|
|
00019 15 FILLER PIC X(01) VALUE ','. DTSEX145
|
|
00020 15 E145-EMP-NO PIC 9(06). CL**3
|
|
00021 15 FILLER PIC X(01) VALUE ','. DTSEX145
|
|
00022 15 E145-QTR PIC X(06). CL**3
|
|
00023 15 FILLER PIC X(01) VALUE ','. DTSEX145
|
|
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 E145-REMITTANCE PIC 9(11).99. CL**7
|
|
00035 15 FILLER PIC X(01) VALUE ','. DTSEX145
|
|
00036 15 E145-RECV-DATE PIC X(10). CL**3
|
|
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 E145-TRACE-NO PIC X(08). CL**3
|
|
00041 15 FILLER PIC X(429). CL**5
|