//RUVGTJCL JOB (acct),'GET RUV JCL PDS',MSGCLASS=X,NOTIFY=&SYSUID //********************************************************************/ //* Run this job to download and unterse the RUV SP4104 JCL library. */ //* */ //* NOTE: The data in this job is case-sensitive and must not */ //* contain line numbers. */ //* */ //* Before submitting, perform the following steps: */ //* */ //* 1) Modify the job card to meet your site standards. */ //* 2) Change your_email@company.com to your email address in the */ //* FTPGET step below. */ //* 3) Change all occurrences of YOURHLQ */ //* to a suitable high-level qualifier for the JCL PDS. */ //* */ //********************************************************************/ //FTPGET EXEC PGM=FTP //SYSPRINT DD SYSOUT=* //OUTPUT DD SYSOUT=* //INPUT DD * ftp.bmc.com anonymous your_email@company.com binary locsite lr=1024 rec=fb blk=10240 pri=2 sec=1 cyl unit=sysda cd pub/RUV get SP4104.SPJCL.CNTL.TRS 'YOURHLQ.SP4104.SPJCL.CNTL.TRS' quit /* //UNPACK EXEC PGM=AMATERSE,PARM=UNPACK //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=YOURHLQ.SP4104.SPJCL.CNTL.TRS //SYSUT2 DD DSN=YOURHLQ.SP4104.SPJCL.CNTL, // DISP=(NEW,CATLG),UNIT=SYSDA,SPACE=(CYL,(1,1,2)) //DELETE EXEC PGM=IDCAMS,COND=(0,NE) //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE YOURHLQ.SP4104.SPJCL.CNTL.TRS /*