DUTAS re-platformed to Raincode - 29Jul2025-update-from-Srujani

JCL/DTSFT910.jcl

@@ -0,0 +1,32 @@
+//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
+//*