//jobname  JOB ....
//*                                                                     
//*   JCL to TERSE and FTP transmit data to IBM
//*   1. Change USERID to your TSO id.
//*   2. Supply correct dsn for INFILE dd.
//*   3. Change user.name@loc.com to your email address
//*   4. Change custname to denote customer name.
//*
//CLEANUP  EXEC  PGM=IEFBR14
//DEL1     DD DSN=USERID.USERDATA.TERSED,
//         DISP=(MOD,DELETE),
//         UNIT=SYSDA,SPACE=(TRK,(10,10),RLSE)
//*
//TERSE    EXEC PGM=TRSMAIN,PARM='SPACK'
//SYSPRINT DD SYSOUT=*,DCB=(LRECL=133,BLKSIZE=12901,RECFM=FBA)
//INFILE   DD DISP=SHR,DSN=USERID.USERDATA.TOSEND
//OUTFILE  DD DSN=USERID.USERDATA.TERSED,
//         DISP=(,CATLG,DELETE),
//         UNIT=SYSDA,SPACE=(CYL,(300,50),RLSE)
//*
//FTP      EXEC PGM=FTP,REGION=5M
//SYSPRINT  DD  SYSOUT=*
//OUTPUT    DD  SYSOUT=*
//INPUT     DD  *          use lower case below
testcase.boulder.ibm.com
anonymous
user.name@loc.com
cd storage/toibm/tapetool
bin
put 'userid.userdata.tersed' custname.userdata.tersed
quit