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

8
Procs/CHGXX100
View File

@ -9,7 +9,7 @@
//**** 00003602
//************ NO CHARGE DATE CHECKING *********************** ZL1 00003702
//**** 00003802
//STEP0050 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00003902
//STEP0050 EXEC PGM=SORT, SORT REPORT RECORDS 00003902
// COND=(0,LT) 00004002
//SYSOUT DD SYSOUT=* 00004102
//SORTIN DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD, 00004202
@ -47,7 +47,7 @@
//* DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192) 00008800
//** 00008900
// IF (STEP0100.RC EQ 0) THEN 00009000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00009100
//STEP0200 EXEC PGM=SORT, SORT REPORT RECORDS 00009100
// COND=(0,LT) 00009200
//SYSOUT DD SYSOUT=* 00009300
//SORTIN DD DSN=&&BD100CHG, 00009400
@ -119,7 +119,7 @@
//***** BYPASS REMAINING JOB STEPS IF RETURN-CODE = +1 00150200
// IF (STEP0500.RC EQ 0) THEN 00151000
//** 00152000
//STEP0600 EXEC PGM=SORT,PARM='VLTEST=0', SORT CHARGE RECORDS 00160000
//STEP0600 EXEC PGM=SORT, SORT CHARGE RECORDS 00160000
// COND=(0,LT) 00170000
//SYSOUT DD SYSOUT=* 00180000
//SORTIN DD DSN=&&CHGBD207, 00190000
@ -153,7 +153,7 @@
// SPACE=(22000,(500,100),RLSE), 00380000
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=22000) 00390000
//* 00400000
//STEP0800 EXEC PGM=SORT,PARM='VLTEST=0', SORT CHARGE RECORDS 00410000
//STEP0800 EXEC PGM=SORT, SORT CHARGE RECORDS 00410000
// COND=(0,LT) 00420000
//SYSOUT DD SYSOUT=* 00430000
//SORTIN DD DSN=&&BD230CHG, 00440000