//********************************************************************
//*                                                                  *
//* SAMPLE JCL TO GENERATE TAPE VOLUME REPORT FROM A PREVIOUSLY      *
//* SAVED ISMF MOUNTABLE TAPE VOLUME LIST                            *
//*                                                                  *
//*   INSTRUCTIONS BEFORE SUBMITTING:                                *
//*                                                                  *
//*      CHANGE JOBCARD                                              *
//*      CHANGE PREFIX                                               *
//*      CHANGE PARAMETERS                                           *
//*                                                                  *
//********************************************************************
//********************************************************************
//*                                                                  *
//* DELETE STEP, TO DELETE THE REPORT DATA SET IF IT EXISTS ALREADY  *
//*                                                                  *
//********************************************************************
//DELREP  EXEC  PGM=IDCAMS
//SYSPRINT  DD  SYSOUT=*
//SYSIN     DD  *
 DELETE IBMUSER.TAPEVOL.REPORT
/*
//********************************************************************
//*                                                                  *
//* 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
//********************************************************************
//*                                                                  *
//* REPORT GENERATION STEP                                           *
//*                                                                  *
//*     PARAMETER FOLLOWING ACBQBAR4 - ISMF SAVED LIST NAME (INPUT)  *
//*     ISPFILE - TAPE VOLUME REPORT (OUTPUT, FROM ALCISPFL STEP)    *
//*     SYSIN   - KEYWORDS SPECIFYING THE DATA IN THE REPORT         *
//*                                                                  *
//********************************************************************
//GENREP  EXEC  ACBJBAOB,PLIB1=SYS1.DGTPLIB,TABL2=userid.TEST.ISPTABL
//ISPFILE DD  DSN=IBMUSER.TAPEVOL.REPORT,DISP=OLD
//SYSTSIN DD *
PROFILE PREFIX(IBMUSER)
ISPSTART CMD(ACBQBAR4 TAPELIST) +
BATSCRW(132) BATSCRD(27) BREDIMAX(3) BDISPMAX(99999999)
/*
//SYSIN DD  *
VOLSER
LASTMOUNT
LASTEJECT
USEATTR
STORGRP
LIBNAME
TITLE=STATUS OF TAPES AS ON 06/01/96
/*   

//********************************************************************
//*                                                                  *
//* COPY THE TAPE VOLUME REPORT                                      *
//*                                                                  *
//*   SYSUT1 - INPUT (FROM PREVIOUS STEP)                            *
//*   SYSUT2 - OUTPUT                                                *
//*                                                                  *
//********************************************************************
//REPGEN EXEC PGM=IEBGENER
//SYSUT1   DD  DSN=IBMUSER.TAPEVOL.REPORT,DISP=SHR
//SYSUT2   DD  SYSOUT=*
//SYSIN    DD  DUMMY
//SYSPRINT DD  SYSOUT=*
//********************************************************************