Figure 1. Sample JCL for
ACBJBAIA//********************************************************************
//* *
//* SAMPLE JCL TO GENERATE AN ISMF MOUNTABLE TAPE VOLUME LIST, *
//* SAVE IT, AND GENERATE A TAPE VOLUME REPORT FROM IT *
//* *
//* INSTRUCTIONS BEFORE SUBMITTING: *
//* *
//* CHANGE JOBCARD *
//* CHANGE PROFILE PREFIX COMMAND *
//* *
//********************************************************************
//********************************************************************
//* *
//* STEP TO GENERATE TAPE VOLUME LIST AND SAVE IT *
//* *
//* VOL - TAPE VOLUMES TO BE SELECTED *
//* LIBNAME - LIBRARY NAMES TO BE SELECTED *
//* STORGRP - STORAGE GROUPS TO BE SELECTED *
//* PARAMETER FOLLOWING SAVE - NAME FOR THE SAVED LIST (OUTPUT) *
//* *
//********************************************************************
//GENLIST EXEC ACBJBAOB,PLIB1=SYS1.DGTPLIB,TABL2=userid.TEST.ISPTABL
//SYSTSIN DD *
PROFILE PREFIX(IBMUSER)
DELETE TAPEVOL.REPORT
ISPSTART CMD(ACBQBAI6 SAVE TAPELIST +
VOL(*) LIBNAME(L*) STORGRP(*)) +
NEWAPPL(DGT) BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//********************************************************************
//* *
//* STEP TO ALLOCATE ISPFILE, WHERE THE GENERATED REPORT IS SAVED *
//* NOTE: THE DATA SET BEING ALLOCATED SHOULD NOT BE A TEMPORARY *
//* DATA SET. *
//* *
//********************************************************************
//ALCISPFL EXEC PGM=IEFBR14
//ISPFILE DD DSN=IBMUSER.TAPEVOL.REPORT,DISP=(NEW,CATLG),
// BLKSIZE=0,SPACE=(TRK,(3,1)),RECFM=FBA,LRECL=133,UNIT=SYSDA
//********************************************************************
//* *
//* STEP TO GENERATE THE TAPE VOLUME REPORT FROM THE SAVED LIST *
//* *
//* PARAMETER FOR ACBQBAR4 - SAVED LIST NAME (FROM GENLIST STEP) *
//* ISPFILE - TAPE VOLUME REPORT (OUTPUT, FROM ALCISPFL STEP) *
//* SYSIN - KEY WORDS SPECIFYING COLUMNS TO BE INCLUDED IN THE *
//* GENERATED REPORT *
//* *
//********************************************************************
Figure 2. Sample JCL for ACBJBAIA
part 2 of 2//GENREP EXEC ACBJBAOB,PLIB1=SYS1.DGTPLIB,TABL2=userid.TEST.ISPTABL
//SYSTSIN DD *
PROFILE PREFIX(IBMUSER)
ISPSTART CMD(ACBQBAR4 TAPELIST) +
BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//ISPFILE DD DSN=IBMUSER.TAPEVOL.REPORT,DISP=OLD
//SYSIN DD *
VOLSER
USEATTR
VOLERROR
CKPT
LIBNAME
STORGRP
MEDIA
RECTECH
COMPTYPE
LASTWRITE
LASTMOUNT
LASTEJECT
EXPDTVOL
CRTDTVOL
VOLLOC
TITLE=STATUS OF TAPES AS ON 06/01/96
/*
//********************************************************************
//* *
//* COPY THE REPORT *
//* *
//* SYSUT1 - INPUT (FROM PREVIOUS STEP) *
//* SYSUT2 - OUTPUT *
//* *
//********************************************************************
//TAPGEN EXEC PGM=IEBGENER
//SYSUT1 DD DSN=IBMUSER.TAPEVOL.REPORT,DISP=SHR
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//********************************************************************