//DTSFT910 JOB (UI,4300,03410,P),'ENCRYPT AND TRANSFER',REGION=4000K,
//*        USER=#DOADTS,
//         CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65
//*
//********************************************************************
//*                                                                  *
//* THIS JOB ENCRYPTS AND FTPS THE MAIL BAG QUARTERLY UC30 HOUSEHOLD *
//* FILE                                                             *
//*                                                                  *
//* KEYID IS THE KEY IN THE PUBLIC KEY RING YOU ARE ENCRYPTING TO    *
//* PASSPARM CWFEB1ES                                                *
//********************************************************************
//********************************************************************
//PGPEMBAG EXEC PROC=PGP,COND=(0,LT)
//*
//TEXTIN   DD DSN=DOESTAX.PROD.UC30HDAT,DISP=SHR
//ENCOUT   DD DSN=DOESTAX.PROD.UC30H.CRYPTD.DDOC,
//            DISP=(,PASS,DELETE),
//*           DISP=OLD,
//            UNIT=SYSDA,SPACE=(TRK,(800,100),RLSE),
//            DCB=(RECFM=FB,LRECL=490,BLKSIZE=4900)
//IN       DD DSN=DOESTAX.CONV.USER.PARMLIB(PGPEDDOC),DISP=SHR
//*
//********************************************************************
//FTPMBAG  EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120)',COND=(0,LT)
//*
//SYSPRINT  DD SYSOUT=(*)
//SYSMDUMP  DD SYSOUT=(*)
//OUTPUT    DD SYSOUT=(*)
//INPUT     DD DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFT910),DISP=SHR
//*