//$DWNLOAD JOB acct,'SMTPSEND R60',MSGCLASS=X,NOTIFY=&SYSUID,
// CLASS=A,REGION=4M
/*JOBPARM L=99
//*
//********************************************************************
//* FUNCTION - DOWNLOAD SMTP-Send 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, SMTPSEND.R60,
//*    if you want to change this, perform a change all edit, such as,
//*       'c all 'SMTPSEND.R60.' 'your.dsn.prefix.'
//*
//* 2) Select the correct SMTP-Send Edition by uncommenting
//*    the correct LOADLIB and/or CICSLOAD
//*    Check the comments below...
//*
//********************************************************************
//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 'SMTPSEND.R60.RECEIVE.JCL' (REPLACE
;
;------ ALL Editions get these files...
 bin
 get R60.INSTLIB.XMI 'SMTPSEND.R60.INSTLIB.XMI' (REPLACE
 get R60.ISPCLIB.XMI 'SMTPSEND.R60.ISPCLIB.XMI' (REPLACE
 get R60.ISPMLIB.XMI 'SMTPSEND.R60.ISPMLIB.XMI' (REPLACE
 get R60.ISPPLIB.XMI 'SMTPSEND.R60.ISPPLIB.XMI' (REPLACE
 locsite  LRECL=80 RECFM=FB PRI=30 SEC=5 CYL
;
;--- Standard Edition
;------ Batch...
;get R60.LOADLIB.XMI 'SMTPSEND.R60.LOADLIB.XMI' (REPLACE
;------ CICS...
;get R60.CICSLOAD.XMI 'SMTPSEND.R60.CICSLOAD.XMI' (REPLACE
;
;--- OfficePath Edition & RAPID Edition
;------ Batch...
;get R60.OFP.LOADLIB.XMI 'SMTPSEND.R60.OFP.LOADLIB.XMI' (REPLACE
;------ CICS...
;get R60.OFP.CICSLOAD.XMI 'SMTPSEND.R60.OFP.CICSLOAD.XMI' (REPLACE
;
;--- OVFax Edition
;------ Batch...
;get R60.OVFAX.LOADLIB.XMI 'SMTPSEND.R60.OVFAX.LOADLIB.XMI' (REPLACE
;------ CICS...
;get R60.OVFAX.CICSLOAD.XMI 'SMTPSEND.R60.OVFAX.CICSLOAD.XMI' (REPLACE
;
;--- SSWDA Edition
;------ Batch...
;get R60.SSWDA.LOADLIB.XMI 'SMTPSEND.R60.SSWDA.LOADLIB.XMI' (REPLACE
;
;--- CLASY Edition
;------ Batch...
;get R60.CLASY.LOADLIB.XMI 'SMTPSEND.R60.CLASY.LOADLIB.XMI' (REPLACE
;
 quit
/*
//