Sample JCL to FTP a SVCDUMP to CA using CA-TCPaccess.

Document ID : KB000053535
Last Modified Date : 14/02/2018
Show Technical Document Details

Description

The facility I work at uses CA-TCPaccess instead of IBM to transfer files, using FTP. Do you have sample JCL to FTP a SVCDUMP to CA?

Solution

//xxxxxxxx JOB (10100000),'yyyyyyy',
// NOTIFY=zzzzzzz,REGION=4096K,TIME=1439,
// CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//* your jobcard above
/*JOBPARM SYSAFF=CA71
//STEP1 EXEC PGM=FTP2,PARM='/ FIOS APP=A03ACC1U NOFIRE '
//* Set your FTP2 parameters for your specific site here
//STEPLIB DD DSN=your.tcpaccess.LOAD,DISP=SHR
// DD DSN=your.tcpaccess.LINK,DISP=SHR
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSPUT DD SYSOUT=*,BLKSIZE=133
//SYSVLT DD SYSOUT=*,BLKSIZE=133
//* the open is the CA support server
//* the logon anonymous logs on to the anonymous user
//* and your@email.com is your email address as the password
//* cd /incoming/ccccccc/bbbbbbb-gg/ is the directory supplied
//* by CA
//* the put will be the MVS dataset where the data resides
//* followed by the name you would like to store it as.
//SYSGET DD *,BLKSIZE=80
open ftpu.ca.com
logon anonymous your@email.com
cd /incoming/ccccccc/bbbbbbbb-gg/
type i
put 'mvs.dataset.name' whateveryou want
bye
quit
//