//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)
//