//$DWNLOAD JOB acct,'OfficePath161',MSGCLASS=X,NOTIFY=&SYSUID,
// CLASS=A,REGION=4M
/*JOBPARM L=99
//*
//********************************************************************
//* FUNCTION - DOWNLOAD OfficePath Distribution files via FTP
//*
//* 1) Customize this JCL to suit your environment...
//*   -set your JOB account, above
//*   -enter the FTP userid & password from TBS Software, below
//*   -this JCL creates datasets using the name prefix, PIPS161,
//*    if you want to change this, perform a change all edit, such as,
//*       'c all 'PIPS161.' 'your.dsn.prefix.'
//*
//********************************************************************
//GET      EXEC PGM=FTP,PARM='(EXIT'
//SYSPRINT DD   SYSOUT=*
//SYSIN  DD   *
; this is a comment
 ftp.tbssoft.com
;------ obtain userid & password from TBS Software
 userid
 password
;------ obtain userid & password from TBS Software
;
;------ get the JCL to perform TSO RECEIVE
 ascii
 locsite  LRECL=80 RECFM=FB PRI=1 SEC=1 CYL
 get  RECEIVE.JCL 'PIPS161.RECEIVE.JCL' (REPLACE
; get  README.TXT  'PIPS161.README.TXT'  (REPLACE
;
 locsite  LRECL=80 RECFM=FB PRI=10 SEC=1 CYL
 bin
;
 get F1.PIPS161.INSTALL.TRANS   'PIPS161.INSTALL.TRANS'  (REPLACE
 get F2.PIPS161.JCL.TRANS       'PIPS161.JCL.TRANS'      (REPLACE
 get F3.PIPS161.LOAD.TRANS      'PIPS161.LOAD.TRANS'     (REPLACE
 get F4.PIPS161.SAMPLIB.TRANS   'PIPS161.SAMPLIB.TRANS'  (REPLACE
 get F5.PIPS161.TEXT.TRANS      'PIPS161.TEXT.TRANS'     (REPLACE
 get F6.PIPS161.CLIST.TRANS     'PIPS161.CLIST.TRANS'    (REPLACE
 get F7.PIPS161.PANELS.TRANS    'PIPS161.PANELS.TRANS'   (REPLACE
;
 quit
/*
//