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

From UAT Z's file modified

Browse Source
This commit is contained in:
Manoj Patel
2025-09-19 12:33:15 -04:00
parent 10597a27ba
commit 8dc0204972
40 changed files with 5728 additions and 2063 deletions
Download Patch File Download Diff File Expand all files Collapse all files

156
JCL/DTSZWAGE.jcl Normal file
View File

@ -0,0 +1,156 @@
//DTSGWAGE JOB (UI,4300,03410,P),'DECRYPT/WAGES--TDEC',REGION=4000K,
// USER=#DOADTS,
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTZL1
/*ROUTE PRINT U@PRT65
//********************************************************************
//**** TDEC WAGE DATA FILES ARE ENCRYPTED USING PKZIP
//**** WITH OCTO DATA CENTER PUBLIC KEY.
//******************* SET QTR PARM TO CURRENT QTR
//*******************************************************************
//****
// SET CURRQTR='Q2021Q2'
//****
//*** FILES COMING FROM TDEC SHOULD USE OUR (OCTO) PUBLIC KEY.
//****
//*** FILES GOING TO TDEC SHOULD USE TDEC PUBLIC KEY.
//****
//*** ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
//**** MODIFIED JCL TO USE DIFFERENT PARMS TO RETRIEVE AND DELETE TDEC
//**** WAGE FILE
//**DFLT DTSFTEON - GET TDEC WAGE FILE WITH NO DATES
//****** DTSFTDON - GET TDEC WAGE FILE WITH DATES IN FILE NAME
//**DFLT DTSDEWAG - DELETE TDEC WAGE FILE WITH NO DATES
//****** DTSDDEAG - DELETE TDEC WAGE FILE WIT DATES IN FILE NAME
//************************************************* 12/24/14 ZL1
//****
//**** GET TDEC ENCRYPTED WAGE FILE (ONTIME AND DELINQUENT) 4 ESSP
//********************************************************************
//*TDECFTP EXEC PGM=FTP,COND=(0,LT)
//*SYSPRINT DD SYSOUT=*
//*OUTOUT DD SYSOUT=*
//*SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET DD *,DCB=BLKSIZE=80
//**PUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDREON),DISP=SHR
//*INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGWAGE),DISP=SHR
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDON),DISP=SHR
//*
//********************************************************************
//**** DECRYPT TDEC DELINQ FILE INTO TEXTOUT
//********************************************************************
//*
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//COPYCRYT EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//*
//********************************************************************
//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
//**
//********************************************************************
//**
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.SDWAGE.WAGES(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//*
//********************************************************************
//*** COPY TDEC WAGE DECRYPTED FILE TO ESSP FTP FILE.
//**
//********************************************************************
//**
//COPYESSP EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.TXT,DISP=SHR
//* DISP=(NEW,CATLG,DELETE),
//* DISP=SHR,
//* UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//*
//********************************************************************
//*** COPY TDEC WAGE DECRYPTED FILE TO QUARTER FILE.
//**
//********************************************************************
//**
//COPYFQTR EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.&CURRQTR.,
//** DISP=(NEW,CATLG,DELETE),
// DISP=MOD,
// UNIT=SYSDA,SPACE=(CYL,(25,15),RLSE),
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//
//****************** stop here for now zl1 S**************************************************
//**** DELETE TDEC ENCRYPTED WAGE FILE FROM TDEC SERVER
//********************************************************************
//TDECDEL EXEC PGM=FTP,COND=(0,LT)
//SYSPRINT DD SYSOUT=*
//OUTOUT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSGET DD *,DCB=BLKSIZE=80
//**INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDRWAG),DISP=SHR
//*NPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDEWAG),DISP=SHR
//INPUT DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDWAGE),DISP=SHR
//***INPUT DD DSN=DOESTAX.CONV.PARMLIB(DTSDDWAG),DISP=SHR
//*
//ESSPMAIL EXEC PGM=IEBGENER,COND=(8,NE,TDECDEL),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
//* USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
// USERDATA=('TO:ZARATH.LALPUTAN@DC.GOV',
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
//* 'TO:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ##### NO TDEC REPORT WAGES TODAY !!!!...ZL1',
//* 'FILEDESC: DAILY ESSP-DUTAS UPLOAD ',
// 'FILENAME:NOTDEC_WAGES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.NOWAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*
//ESSPMAIL EXEC PGM=IEBGENER,COND=(0,LT),
// REGION=4M
//SYSPRINT DD SYSOUT=*
//OUT1 OUTPUT DEST=U1003,
// USERDATA=('TO:PANKAJ.SHARMA@SAGITEC.COM',
//* 'TO:SIVA.SAMBASIVAM@SAGITEC.COM',
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
// 'TO:RAJINI.JUJJAVARAPU@DC.GOV',
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
// 'TO:ZARATH.LALPUTAN@DC.GOV',
// 'SUBJECT: ESSP TDEC WAGES READY 4 PICKUP',
//* 'FILEDESC: DAILY ESSP-DUTAS UPLOAD ',
// 'FILENAME:TDEC_WAGES.TXT'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.TDEC.ESSP.WAGES.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//