155 lines
6.2 KiB
Plaintext
155 lines
6.2 KiB
Plaintext
//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='Q2025Q2'
|
|
//****
|
|
//*** 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)
|
|
//*DATAIN DD DSN=DOESTAX.CONV.TDEC.ESSP.CRYPT.WAGES,DISP=SHR
|
|
//*DATAOUT DD DSN=DOESTAX.CONV.TDEC.ESSP.DWAGE.WAGES(+1),
|
|
//* DISP=(,CATLG,DELETE),
|
|
//* UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
|
|
//* DCB=(SYS3.MODEL,RECFM=FB,LRECL=512,BLKSIZE=5120)
|
|
//*
|
|
//********************************************************************
|
|
//*** COPY TDEC WAGE DECRYPTED FILE TO BBACKUP FILE.
|
|
//**
|
|
//********************************************************************
|
|
//**
|
|
//COPYDELQ 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=(NEW,CATLG,DELETE),
|
|
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,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.CRYPT.WAGES,DISP=SHR
|
|
//**
|
|
//OFILE DD DSN=DOESTAX.CONV.TDEC.ESSP.FTP.OWAGES.TXT,
|
|
//* DISP=(NEW,CATLG,DELETE),
|
|
// DISP=SHR,
|
|
// UNIT=SYSDA,SPACE=(CYL,(05,5),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,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),
|
|
// CODEPAGE=1252,AUTOENCODE=YES,
|
|
// DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
|
|
//*
|
|
//********************************************************************
|
|
//**** 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
|
|
//*
|
|
//EMAILWGE1 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 CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//*
|
|
//EMAILWGE2 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 CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//
|