giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MP Batchs, copybooks, jcls, Procs

Browse Source
This commit is contained in:
Manoj Patel
2025-09-13 10:11:09 -04:00
parent c59b4762c2
commit ece2ee4599
261 changed files with 91380 additions and 11991 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Copybook/DTSHX145.cpy Normal file
View File

@ -0,0 +1,41 @@
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