33 lines
1.4 KiB
Plaintext
33 lines
1.4 KiB
Plaintext
//DTSFT902 JOB (UI,4300,03410,P),'ENCRYPT AND TRANSFER',REGION=4000K,
|
|
//* USER=#DOADTS,
|
|
// CLASS=A,MSGCLASS=X,NOTIFY=ECNTSUP
|
|
/*ROUTE PRINT U@PRT65
|
|
//*SET QTR='084'
|
|
//********************************************************************
|
|
//* *
|
|
//* THIS JOB ENCRYPTS AND FTPS THE MAIL BAG QUARTERLY UC30 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.UC30DATA,DISP=SHR
|
|
//ENCOUT DD DSN=DOESTAX.PROD.UC30.CRYPTD.DDOC,
|
|
// DISP=(,PASS,DELETE),
|
|
//* DISP=OLD,
|
|
// UNIT=SYSDA,SPACE=(TRK,(800,100),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=385,BLKSIZE=5775)
|
|
//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.CONV.USER.PARMLIB(DTSFT902),DISP=SHR
|
|
//*
|