//FTPJOB JOB (ACCT#),'CBLINST', // USER=, /* RACF */ // GROUP=, /* RACF */ // PASSWORD=, /* RACF */ // NOTIFY=, // CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1) //* //* ** FTPJOB *** ----------------------------------------------------* //* //* &PREFIX..FTPJOB L=004 --- 2013/10/10 18:52:01 (NBJ) //* //* Licensed Materials - Property of Compute (Bridgend) Ltd //* //* Copyright (C) 2004-2011 - Compute (Bridgend) Ltd. //* All rights reserved. //* //* ------------------------------------------------------------------* //* //* !!! Ensure CAPS OFF is in effect. !!! //* This job contains case sensitive control statements. //* Also ensure this member is saved unnumbered. //* //* Note: the ftp.cbl.com static IP address is: 81.149.237.14 //* //* Batch FTP Job to download SELCOPY Product Suite software //* maintenance to your z/OS host. //* //* You must customise this job before running it: //* //* - Update the JOB card. //* //* - Change "/u/smpe/smpnts" to an HFS directory on your z/OS host. //* (e.g. /u/smpe/smpnts ) //* //* - You may need to update the INPUT to the FTP program based //* on your firewall configuration and requirements. //* //* Note that the following warning messages may be returned by the //* "mget * (REPLACE" command for directory entries. They are expected //* and do not indicate a problem: //* //* EZA2554W Get fails: /u/smpe/smpnts/X2022010/SMPHOLD is a directory. //* EZA2554W Get fails: /u/smpe/smpnts/X2022010/SMPPTFIN is a directory //* EZA2554W Get fails: /u/smpe/smpnts/X2022010/SMPRELF is a directory. //* //* ------------------------------------------------------------------* //* History: //* //* L=002 2013/07/09 -nbj- EZA2554W messages are expected. //* L=002 2013/06/24 -nbj- /Mainframe dir removed from ftp cd. //* L=001 2011/03/18 -nbj- written. //* ------------------------------------------------------------------* //* //* //FTPJOB EXEC PGM=FTP //OUTPUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //INPUT DD * ftp.cbl.com ftp dummypass cd mvs/smpe/smpnts/X2022010 lcd /u/smpe/smpnts binary lmkdir X2022010 lmkdir X2022010/SMPPTFIN lmkdir X2022010/SMPHOLD lmkdir X2022010/SMPRELF lcd X2022010 mget * (REPLACE lcd SMPPTFIN mget SMPPTFIN/* (REPLACE lcd ../SMPHOLD mget SMPHOLD/* (REPLACE lcd ../SMPRELF mget SMPRELF/* (REPLACE quit /*