Help Universe

JCL:

Extracts.

JCL extract for Disk   JCL extract for Tape   JCL extract 56FA data from IMS log

JCL extract for Disk

//*******************************************************************************************/
//* Extract DCOLLECT data */
//*******************************************************************************************/
//DCOLL EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//DCOLLECT DD DSN= DCOLLECT dataset,DISP=(,CATLG,DELETE),
// SPACE=(TRK,(nnn,nnn),RLSE),
// LRECL=32756,RECFM=VB,DSORG=PS REQUIRED LRECL
//MCDS DD DSN= Backup Control dataset,DISP=SHR
//BCDS DD DSN= Migration Control dataset,DISP=SHR
//SYSIN DD *
DCOLLECT OUTFILE(DCOLLECT) VOLUMES(*) MIGRATEDATA BACKUPDATA –
CAPPLANDATA
//*

JCL extract for Tape

//********************************************************************************************/
//* Extract DFRMM XREPTEXT data */
//********************************************************************************************/
//XGDT0001 EXEC PGM=EDGHSKP,
// PARM=’RPTEXT,DATEFORM(E)’
//SYSPRINT DD SYSOUT=A
//MESSAGE DD DSN= RMM Message dataset,DISP=SHR
//XREPTEXT DD DSN= RMM Report dataset,DISP=SHR
//SYSIN DD *
RPTEXT RECORDS(X,V,D)
//*
//XGDT0002 EXEC PIEBGEN
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN= RMM Report dataset,DISP=SHR
//*
//SYSUT2 DD DSN= RMM REPTEXT dataset,
// DISP=(,CATLG,DELETE), SPACE=(CYL,(nnn,nnn),RLSE)
//*

JCL extract 56FA data from IMS log

//********************************************************************
//* Extract 56FA data from IMS log
//********************************************************************
//IMS56FA EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=IMS log,DISP=OLD
//SORTOUT DD DSN=IMS 56FA log,DISP=(,CATLG,DELETE), SPACE=(TRK,(nnn,nnn),RLSE)
//SYSIN DD *
OPTION VLSCMP,COPY
INCLUDE COND=(5,2,CH,EQ,X’56FA’)
/*

Next step

Please contact support@smtdata.com if you have any issues or questions.