//jobname JOB
//*
// SET DUMP=?dump?,                Name of the dump dataset to upload
//     TRSLOAD=?trsload?,          Load library where TRSMAIN resides
//     TCPIP=?tcpip?               High level qualifiers of the TCP/IP
//*                                system datasets
//*
//* SET  DASDATTR='VOL=SER=?volume?,UNIT=?unit?,'   Non-SMS environment
//* SET  DASDATTR='STORCLAS=?storclas?,'            Use SMS explicitly
//* SET  DASDATTR=''                                Use SMS by default
//*
//  SET  TCPIP@='ftp.relationalarchitects.com'      TCP/IP address
//*--------------------------------------------------------------------
//*
//*    This job performs the following functions:
//*
//*    1 - Compresses the z/OS dump dataset (to be uploaded to
//*        Relational Architects) using the IBM TRSMAIN utility.
//*        Contact the IBM Support Center if you need to obtain
//*        the TRSMAIN program.
//*
//*    2 - Runs the File Transfer Program (FTP) to upload the
//*        compressed dump to the Relational Architects FTP site.
//*
//*    (c) Copyright Relational Architects Intl - 2010
//*    Licensed Material - Program property Relational Architects Intl
//*
//*
//*    Edit this jobstream as follows:
//*    ===============================
//*
//*    1.  Add a valid job card
//*
//*    2.  GLOBALLY change all occurences of the following
//*        parameter strings as described below:
//*
//*        a.  Change '?dump?' to the name of the dump dataset
//*            you wish to upload to the Relational Architects
//*            FTP site
//*
//*        b.  Change '?trsload?' to the name of the IBM system load
//*            library which contains the TRSMAIN tersing program.
//*
//*            Note:  You can comment out the STEPLIB DD name within
//*                   the first jobstep when TRSMAIN resides in one
//*                   of the libraries included in your LINKLIST
//*                   concatenation.
//*
//*        c.  Change '?tcpip?' to the high level qualifiers of the
//*            TCP/IP FTP.DATA and TCPIP.DATA datasets installed
//*            at your site
//*
//*        d.  Change '?pmr?' to the Problem Management Record
//*            Identification Number supplied by the Relational
//*            Architects
//*
//*        e.  Change '?password?' to your E-mail address
//*
//*
//*    3.  Uncomment ONE of the 'SET DASDATTR' JCL statements above:
//*                  ===
//*
//*        a.  For non-SMS environments, uncomment the statement:
//*
//*            SET DASDATTR='VOL=SER=?volume?,UNIT=?unit?,'
//*
//*            Change '?volume?' to the name of the DASD volume on
//*            which the distribution libraries of the Smart Jobstream
//*            Series should be allocated.  The default is blank to
//*            receive the distribution libraries to a work pack.  If
//*            you specify a volume parameter, make sure the volume is
//*            eligible, i.e. defined in VATLSTxx as private.  Note:
//*            the VOLUME and UNIT parameters are mutually exclusive
//*            with the STORCLAS parameter.
//*
//*            Then change '?unit?' to the UNIT name for the target
//*            DASD volume on which the Smart Jobstream Series
//*            distribution libraries will be allocated.  For example
//*            specify 3380,3390 or SYSDA.
//*
//*        b.  When you wish to use SMS explicitly, (that is
//*            SMS is active but does not manage all DASD allocations
//*            by default) uncomment the statement:
//*
//*            SET  DASDATTR='STORCLAS=?storclas?,'
//*
//*            and change '?storclas?' to the name of a valid
//*            SMS storage management class defined at your site.
//*            Note:  the STORCLAS(storclas) operand is mutually
//*            exclusive with the UNIT and VOLUME parameters.
//*
//*        c.  When SMS, by default, manages ALL dataset allocations
//*            at your site, uncomment the statement:
//*
//*            SET  DASDATTR=''
//*
//*
//*    4.  Submit this job.  All steps should execute with completion
//*        code 0
//*
//*
//*    Once this job completes successfully, the dump will
//*    reside on the Relational Architects FTP Site.
//*
//*--------------------------------------------------------------------
//*
//*        Compress the dump dataset using the IBM TRSMAIN utility
//*
//*--------------------------------------------------------------------
//TERSE    EXEC PGM=TRSMAIN,PARM=PACK
//STEPLIB  DD   DISP=SHR,DSN=&TRSLOAD
//INFILE   DD   DISP=SHR,DSN=&DUMP
//OUTFILE  DD   DISP=(NEW,CATLG,DELETE),&DASDATTR
//         DSN=&DUMP..T,SPACE=(TRK,(1000,10),RLSE)
//SYSPRINT DD   SYSOUT=H
//*--------------------------------------------------------------------
//*
//*        Upload the compressed dump to the RAI FTP Site
//*
//*--------------------------------------------------------------------
//FTP      EXEC PGM=FTP,REGION=4096K,PARM='&TCPIP@'
//SYSFTPD  DD  DISP=SHR,DSN=&TCPIP..FTP.DATA
//SYSTCPD  DD  DISP=SHR,DSN=&TCPIP..TCPIP.DATA
//OUTPUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
anonymous ?password?
binary
cd ToRAI
put '?dump?.T' ?pmr?.?dump?.T
quit
/*
//