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

Z updated JCL files on PROD Env

Browse Source
This commit is contained in:
Manoj Patel
2025-11-03 12:05:56 -05:00
parent 8fca292a50
commit 6537588163
71 changed files with 3899 additions and 857 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
JCL/DTSGSID0.jcl
View File

@ -46,55 +46,48 @@
//**********************************************************************
//*
//******************************************************************
//STEP0010 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//STEP0010 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//XGSICHRG DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(OLD,DELETE,DELETE)
//*-----------------------------------------------------
//STEP0020 EXEC PGM=IEFBR14,REGION=1024K,COND=(4,LT)
//STEP0020 EXEC PGM=IEFBR14,REGION=1024K,COND=(0,LT)
//XGSICHRG DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(10,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=200,BLKSIZE=20000)
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=20000)
//*-----------------------------------------------------
//STEP0100 EXEC PGM=FTP,
// COND=(0,LT)
//SYSPRINT DD DSN=DOESTAX.CONV.UIBCLOG.TXT,DISP=SHR
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//INPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGTCHG),DISP=SHR
//*NPUT DD DSN=DOESTAX.&LVLNODE..PARMLIB(UIBGUCHG),DISP=SHR
//*******************************************************************
//*
//STEP0100 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
10.57.110.147 21
dutasrc
Today728rc!
cd //Dutasrc/Inbound_uibs
BINary
GET DOES_Bencharges.txt +
DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD (REPLACE
QUIT
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//*
//**********************************************************************
//* COPY DAILY UIBS CHARGE FILES INTO GDG FOR PROCESSING
//**********************************************************************
//*
//STEP0101 EXEC PGM=IDCAMS
//STEP0101 EXEC PGM=IDCAMS,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//INDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY.UPLOAD,DISP=SHR
//*
//OUTDD01 DD DSN=DOESTAX.CONV.UIBSCHRG.DAILY(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(50,15),RLSE),
// DCB=(SYS3.MODEL,RECFM=FB,LRECL=200,BLKSIZE=20000)
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=20000)
//SYSIN DD *
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
/*
//
//*** send email daily charges transmitted to dutas
//**
//********************************************************************
//STEP0200 EXEC PGM=DTSBX706, READ ACH FTP LOG FILE FOR ERROR
// COND=(0,LT),
// REGION=0M
//SYSOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//*
//DTSPACHF DD DSN=DOESTAX.CONV.UIBCLOG.TXT,DISP=SHR
//*
//**
//FAIL01 IF STEP0100.ABEND THEN
//X706FAIL EXEC PGM=IEBGENER,COND=(0,EQ,STEP0100),
// REGION=4M