JCL for retrieving Replication Server PTF's from FTP site.

Answer

Here is a JCL example for retrieving Replication Server PTF's from the IBM "testcase" FTP server.

//FTPSTEP EXEC PGM=FTP,REGION=0M,
// PARM='testcase.boulder.ibm.com (EXIT'
//SYSPRINT DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//*
//PTF1 DD DSN=STEWART.PTF.V10.UK76775.NEW,
// DISP=(NEW,CATLG),
// UNIT=(SYSDA),
// SPACE=(CYL,(50,10),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200,DSORG=PS)
//*
//PTF2 DD DSN=STEWART.PTF.V10.UK76776.NEW,
// DISP=(NEW,CATLG),
// UNIT=(SYSDA),
// SPACE=(CYL,(50,10),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200,DSORG=PS)
//*
//PTF3 DD DSN=STEWART.PTF.V10.UK76777.NEW,
// DISP=(NEW,CATLG),
// UNIT=(SYSDA),
// SPACE=(CYL,(50,10),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200,DSORG=PS)
//*
//PTF4 DD DSN=STEWART.PTF.V10.UK76778.NEW,
// DISP=(NEW,CATLG),
// UNIT=(SYSDA),
// SPACE=(CYL,(50,10),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200,DSORG=PS)
//*
//INPUT DD *
anonymous
password
cd /fromibm/im/dataprop
bin
GET PTF.V10.UK76775 'STEWART.PTF.V10.UK76775.NEW' (REP
GET PTF.V10.UK76776 'STEWART.PTF.V10.UK76776.NEW' (REP
GET PTF.V10.UK76777 'STEWART.PTF.V10.UK76777.NEW' (REP
GET PTF.V10.UK76778 'STEWART.PTF.V10.UK76778.NEW' (REP
quit
/*