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

//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=*
//********************************************************************