Help Universe

JCL:

Extracts.

 

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

JCL extract for CICS Dictionary Record

 

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')
/*

JCL extract for CICS Dictionary Record

 
//MNDUP EXEC PGM=DFHMNDUP
//******************************************************************/
//* Step 1 - Create new dictionary record and output to SYSUT4     */
//* Documentation on the MDNDUP Parameters can be                  */
//* found here: http://tinyurl.com/DFHMNDUP                        */
//******************************************************************/
//STEPLIB DD DSN=CICS.SDFHLOAD,DISP=SHR       # Your CICS Loadlibrary
// DD DSN=mct.table.loadlib,DISP=SHR          # Your library with the MCT Table
//SYSUT4 DD DSN=CICS.applid.MNDUPREC,DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(TRK,(1,1))
//SYSPRINT DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//SYSIN DD *
MCT=NO # DFHMNDUP parameter to control what's generated
SYSID=MVSA
GAPPLID=DBDCCICS
SAPPLID=DBDCCIC1
DATE=2003205
TIME=000100
/*
//*
//STEP2 EXEC PGM=IEBGENER
//******************************************************************/
//* Step 2 - Change RecordFormat and Blocksize                     */
//******************************************************************/
//SYSUT1 DD DSN=CICS.applid.MNDUPREC,DISP=SHR,
// DCB=(RECFM=U,BLKSIZE=????)                 # Blocksize of the file created above standard 4096
//SYSUT2 DD DSN=CICS.applid.MNDUPREC.RECFMU,
// UNIT=SYSDA,SPACE=(TRK,(1,1)),
// DCB=(RECFM=U,BLKSIZE=32760)                # Set RECFM=U and bloksize
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
/*
//*

Next step

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