Post-processing of a stand-alone dump needs to occur in two steps:
- Run IPCS COPYDUMP to merge the data and produce a single data
set to send to IBM®. Examine
the output from the run step to ensure that the COPYDUMP ran correctly.
This JCL is identified as === IPCS COPYDUMP ====.
- Run the following JCL, which will terse the resulting (striped)
dump data set, encrypt the tersed version, and send it through FTP
to IBM using PUTDOC. This JCL
is identified as === TERSE, ENCRYPT and FTP ====.
You can tailor the following JCL to process the data sets to be
transmitted to the FTP server. Turn off the LINE NUMBERING in following
job.
=== IPCS COPYDUMP ====
//IPCSCPYD JOB MSGLEVEL=(2,1),....
// CLASS=V,NOTIFY=&SYSUID.,MSGCLASS=H
//*********************************************************************
//* IN DD IS USED TO POINT TO THE SOURCE OF INPUT WHICH WOULD BE
//* THE SYS1.SADMP... DATASET
//* OUT DD IS USED TO POINT TO THE OUTPUT OF THE COPYDUMP
//* WHERE PPPPP SHOULD BE THE NUMBER OF CYLINDERS FOR PRIMARY
//* SSSS SHOULD BE THE NUMBER OF CYLINDERS FOR SECONDARY
//* &DATACLAS SHOULD BE THE DATACLAS
//* &MGMTCLAS SHOULD BE THE MGMTCLAS
//* &STORCLAS SHOULD BE THE STORCLAS
//* IPCSDDIR DD DEFINING &SYUID..COPYDUMP.DDIR WITH NON-COMPRESS
//* DATACLAS
//* COPYDUMP SUBCOMMAND TO REQUEST FIRST 20 ADDRESS SPACES
//* IF JES OR CATALOG WERE NOT AMONG THE FIRST 20 ADDRESS SPACES
//* XXX AND YYY SHOULD BE USED FOR THESE TWO SUBSYSTEM ASIDS
//*********************************************************************
//RUN EXEC PGM=IKJEFT01,REGION=200096K,DYNAMNBR=50
//IPCSPRNT DD SYSOUT=H
//IPCSTOC DD SYSOUT=H
//IPCSPARM DD DISP=SHR,DSN=SYS1.PARMLIB
//SYSTSPRT DD SYSOUT=H
//IN DD DISP=SHR,DSN=SYS1.SADMP.....
//OUT DD DISP=(NEW,CATLOG),DSN=OUTPUT.DATASET.NAME
// SPACE=(CYL,(PPPPP,SSSS),RLSE),DATACLAS=&DATACLAS,
// MGMTCLAS=&MGMTCLAS,STORCLAS=&STORCLAS
//SYSTSIN DD *
EX 'SYS1.SBLSCLI0(BLSCDDIR)' 'DSN(&SYSUID..COPYDUMP.DDIR) +
RECORDS(90000) DATACLAS(NOCOMP) MGMTCLAS(DMGDEBUG)'
IPCS NOPARM
COPYDUMP IFILE(IN) OFILE(OUT) ASIDLIST(1:20,XXX,YYY) NOCONFIRM
END
/*
==== TERSE, ENCRYPT and FTP ====
//TRENCFTP JOB CLASS=I,......
// NOTIFY=&SYSUID.
//JOBLIB DD DISP=SHR,DSN=PDS_WITH_TERSE_ENCRYP_PGM
//TERSE EXEC PGM=TRSMAIN,PARM=PACK
//SYSPRINT DD SYSOUT=H
//INFILE DD DISP=SHR,DSN=SOURCE_OF_DUMP
//OUTFILE DD DISP=(NEW,CATLG),
// DSN=&SYSUID..PMR....TRSD,
// UNIT=SYSDAL,
// DATACLAS=COMPRESS,
// SPACE=(CYL,(PPPPP,SSSS),RLSE)
//DECRYPT EXEC PGM=FTPENCRD,PARM='PASSCODE',COND=(0,NE)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//FIN DD DISP=SHR,DSN=*.TERSE.OUTFILE
//FOUT DD DSN=&SYSUID..PMR.....TRSENCRP,
// DCB=(DSORG=PS,RECFM=FB,LRECL=1024),
// DISP=(NEW,CATLG),UNIT=SYSDAL,
// DATACLAS=COMPRESS,
// SPACE=(CYL,(PPPPP,SSSS),RLSE)
//FTPSTEP EXEC PGM=FTP,REGION=5000K,
// PARM='TESTCASE.BOULDER.IBM.COM (EXIT',COND=(00,NE)
//STEPLIB DD DISP=SHR,DSN=SYS1.TCPIP.SEZALINK
//*SYSMDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=H
//OUTPUT DD SYSOUT=H
//INPUT DD *
ANONYMOUS
YOUR_EMAIL@
cd mvs/toibm
bin
PUT PMR......TRSENCRP PMR.......TRS.ENCRP64
quit
/*