FTP TM control file

//TMCFFTP JOB (RSI),’MVS - FTP’,MSGCLASS=X,NOTIFY=&SYSUID

/*JOBPARM  S=*,E=N,L=999,,ROOM=MVSS
//*------------------------------------------------------------------*
//*  JCL TO ENCODE TM CONTROL FILE IN A FORMAT THAT CAN BE FTP’d        *
//*        TO MVS SOLUTIONS.  NORMALLY USED ONLY FOR PROBLEM RESOLUTION.*
//*------------------------------------------------------------------*
//*execute job while TM stc is down; or execute job on a system that *
//*           doesn’t use dsn=your.cf.name (or change disp=old to shr)  *
//*replace ‘hlq’ with your high level qualifier                         *
//*replace ‘your.cf.name’ with your TM Control File DSName              *
//*replace ‘dasd-volser’ with a dasd volume name                        *
//*------------------------------------------------------------------*
//CLEANUP EXEC PGM=IDCAMS
//SYSPRINT  DD SYSOUT=*
//SYSIN        DD *
  DELETE hlq.CF.DSS PURGE
  DELETE hlq.CF.DSS.XMIT PURGE   
 SET       MAXCC=0
//*------------------------------------------------------------------*
//DSSDUMP EXEC PGM=ADRDSSU,REGION=4096K,TIME=1440
//SYSPRINT  DD SYSOUT=*
//****CF       DD DSN=SYS2.TMV61.CFILE64.PROD12,DISP=OLD
//CF           DD DSN=your.cf.name,DISP=SHR
//DUMPFILE  DD DSN=hlq.CF.DSS,DISP=(,CATLG),
//                UNIT=SYSDA,SPACE=(CYL,(64,1)),VOL=SER=dasd-volser
//SYSIN        DD *
   DUMP PIDD(CF) OUTDDNAME(DUMPFILE) ALLDATA(*) ALLEXCP -
       DATASET(INCLUDE(your.cf.name)) TOL(ENQF)
//*------------------------------------------------------------------*
//XMIT       EXEC PGM=IKJEFT1A,REGION=4096K,TIME=1440
//SYSTSPRT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN      DD *
XMIT N1.hlq DA(‘hlq.CF.DSS’) OUTDA(‘hlq.CF.DSS.XMIT’)
//*------------------------------------------------------------------*
//*  ftp.mvssol.com is an Alias.                                        *
//*  March 2010 - if you need an actual IP try 66.212.187.234           *
//*  (Be aware IP’s are subject to change when carriers change.)        *
//*------------------------------------------------------------------*
//FTP       EXEC PGM=FTP,REGION=4M,TIME=NOLIMIT
//SYSPRINT DD SYSOUT=*
//SYSIN       DD *
  ftp.mvssol.com
  tmftp thruput
 LOCSITE NOWRAP
  LOCSITE RECFM=FB LRECL=80 BLKSIZE=3120
  LOCSITE PRIMARY=50 SECONDARY=50 CYLINDERS
  LOCSITE VOLUME=dasd-volser UNIT=SYSALLDA
 BINARY
 PUT ‘hlq.CF.DSS.XMIT’ COMPANY.CF.XMIT.BIN
    CLOSE
 QUIT
//*------------------------------------------------------------------*