//DTSGCHKS JOB (UI,4300,03410,P),'DECRYPT/PAYMTS-TDEC',REGION=4000K,
//         USER=#DOADTS,
//         CLASS=A,MSGCLASS=X,NOTIFY=ECNTNH1
/*ROUTE    PRINT U@PRT65
//********************************************************************
//****   TDEC DEPOSIT CHECK FILE  ENCRYPTED USING PKZIP
//****   WITH OCTO DATA CENTER PUBLIC KEY.
//****
//***    REMOVED PAYMENT CHECK FILE FROM THIS JOB 040119   ZL1
//***    PAYMENTS ARE NOW MADE IN JOB BX530................ZL1
//****
//***    FILES GOING  TO TDEC SHOULD USE TDEC ZTESTING CHKPAY.
//****
//***    ALL PUBLIC KEYS ARE INSTALLED ON ALL LPARS AT ODC1.
//********************************************************************
//**`****          CHANGE PARM QTR TO CURRENT QUARTER         ********
//   SET CURRQTR='Q20252Q2'
//   SET LVLNODE='CONV'
//   SET MSTNODE='PROD'
//   SET PRGNODE='CONV'
//   SET IMPNODE='CONV'
//   SET LVDHOLD='YES'
//   SET LHOLD='YES'
//   SET EXTNODE='CONV'
//   SET RPTNODE='ESSP.BX420.RPT'
//*
//PROCLIB  JCLLIB ORDER=DDOESTAX.PROD.PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIELIB
//**
//*   ZPROCESS ESSP PENDING DATA FILES (REPORTS PAYMENTS AND WAGES)
//*
//********************************************************************
//****   GET TDEC ENCRYPTED DOES DAILY PROCESSED CHECKS(NON REPORTS)
//*********************************************************************
//STEP0111 EXEC PGM=IDCAMS,          INITIALIZE EMPTY PAYMENT FILE
//             COND=(4,LT)           GENERATION
//SYSPRINT DD  SYSOUT=*
//INDD01   DD  DUMMY
//OUTDD01  DD DSN=DOESTAX.CONV.TDECDOES.CHKPAY(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
//*              CODEPAGE=1252,AUTOENCODE=YES,
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSIN    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRONE),DISP=SHR
//*********************************************************************
//********************************************************************
//*
//*TDECFTP  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(DTSDRECK),DISP=SHR
//*NPUT     DD DSN=DOESTAX.CONV.PARMLIB(DTSFTECK),DISP=SHR
//*INPUT     DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSGCHKS),DISP=SHR
//***INPUT     DD DSN=DOESTAX.CONV.PARMLIB(DTSFTDCK),DISP=SHR
//*
//********************************************************************
//****   DECRYPT TDEC CHECKS FILE  INTO TEXTOUT
//********************************************************************
//*
//*DECRYPT EXEC SECPDEC,COND=(0,LT)
//*ECRYPT EXEC SECODEC,COND=(0,LT)
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE     DD DSN=DOESTAX.CONV.TDEC.DOES.CRYPT.CHKS,DISP=SHR
//OFILE     DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=SYSDA,SPACE=(CYL,(9,1),RLSE),
//*             CODEPAGE=1252,AUTOENCODE=YES,
//             DCB=(RECFM=FB,LRECL=512,BLKSIZE=5120)
//SYSPRINT DD SYSOUT=(*)
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSBREPO),DISP=SHR
//**
//*
//********************************************************************
//***  COPY TDEC DAILY CHECKS FILE TO BBACKUP  FILE.
//**
//********************************************************************
//**
//COPYDELQ EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.SDAILY.CHKS(+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 DAILY CHECKS FILE TO  BACKUP  QTR FILE
//**
//********************************************************************
//COPYCHKS EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS.&CURRQTR.,
//*     DISP=(NEW,CATLG,DELETE),
//       DISP=MOD,
//      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
//**
//********************************************************************
//COPYFTPS EXEC PGM=IDCAMS,COND=(0,LT)
//IFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS(+1),DISP=SHR
//**
//OFILE DD DSN=DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS,
//*      DISP=(NEW,CATLG,DELETE),
//*     DISP=MOD,
//      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
//*
//********************************************************************
//****   DELETE TDEC ENCRYPTED CHECK  FILE
//********************************************************************
//*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(DTSDRCHK),DISP=SHR
//*NPUT     DD DSN=DOESTAX.CONV.PARMLIB(DTSDECHK),DISP=SHR
//*INPUT     DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSDCHKS),DISP=SHR
//***INPUT     DD DSN=DOESTAX.CONV.PARMLIB(DTSDDCHK),DISP=SHR
//*
//STEP0999 EXEC PGM=SORT,        SORT TRANSACTIONS
//            COND=(0,LT)
//SYSOUT DD SYSOUT=*
//*
//SORTIN   DD  DSN=DOESTAX.CONV.TDEC.DOES.DAILY.CHKS,DISP=SHR
//         DD  DSN=DOESTAX.CONV.TDEC.PENDING.X429.CHKS(+0),DISP=SHR
//*
//*SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//*SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//*SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//*SORTWK04 DD  UNIT=SYSDA,SPACE=(CYL,(25,10),RLSE)
//SORTOUT  DD  DSN=DOESTAX.&IMPNODE..TDECDOES.CHKPAY(+1),
//*            DISP=(NEW,CATLG,DELETE),
//             DISP=SHR
//*             UNIT=SYSDA,
//*             SPACE=(30720,(1000,1000),RLSE), 
//*             CODEPAGE=1252,AUTOENCODE=YES,
//*             DCB=(RECFM=LSEQ,LRECL=512,BLKSIZE=5120)                    00009000
//SYSIN    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSSX420),DISP=SHR
//* 
//*
//STEP0200 EXEC DTSBXCHK
//*
//*STEP0300 EXEC DTSRSESP
//***
//*                                         REPORT GENERATION
//*STEP0400 EXEC DTSRERPT
//STEP0100.RPT140R1 DD  HOLD=YES
//STEP0100.RPT140R2 DD  HOLD=YES
//STEP0100.RPT907R1 DD  HOLD=YES
//STEP0100.RPT907R2 DD  HOLD=YES
//STEP0100.RPT980R1 DD  HOLD=YES
//**
//*********************************************************************
//* //            CODEPAGE=1252,AUTOENCODE=YES, 
//*
//**
//STEP0200 EXEC PGM=FTP,PARM='(EXIT'                                  
//INPUT    DD *                                                       
10.57.110.147 21                                                         
dutasrc                                                               
Today728rc! 
ASCII                                                          
cd //Dutasrc/intranet/Outbound_intranet                                      
PUT 'DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS' +
DOESTAX.CONV.TDEC.DOES.DAILY.FTPWEB.CHKS 
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//                                             
//*********************************************************
**************************** BOTTOM OF DATA ****************************