********************************************************************************************************************************************************
FEBRUARY 05, 2016 REPLY FROM SYED KAZMI (PLEASE ALSO SEE THE FEBRUARY 17, 2016 UPDATE BELOW)
********************************************************************************************************************************************************
Hello Judy,
If you simply want a list of the backstore Physical tape Volsers, the following idea from Lawrence Lee might work for you, since it run the Vtape backstore report with commands to generate a unique list of Physical Volsers. Please try it and let us know if this meets your need, or if you need any further assistance in this regard:
*********************************************************************************************************************************************************
From: "Lee, Lawrence A" <Lawrence.Lee@ca.com>
Date: February 4, 2016 at 5:51:55 PM CST
*********************************************************************************************************************************************************
Another idea would be to take the output of the Vtape backstore report and sort the report records on physical volser, eliminating duplicate records by coding SUM FIELDS=NONE. For example:
//JOBCARD…
// SET SVTS=SVT5
//*
//* RUN BACKSTORE REPORT
//STEP10 EXEC PGM=SVTSUTIL,PARM='SVTS=&SVTS'
//SYSPRINT DD DISP=(NEW,PASS),DSN=&&LSTBK,
// UNIT=SYSDA,SPACE=(TRK,(15,15)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=133)
//SYSOUT DD SYSOUT=*
//UTLWK01 DD SPACE=(CYL,(15,8)),UNIT=SYSDA
//UTLWK02 DD SPACE=(CYL,(15,8)),UNIT=SYSDA
//SYSIN DD *
REPORT=BACKSTORE
//*
//* RUN SORT
//STEP20 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=(OLD,DELETE),DSN=&&LSTBK
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=(26,6,A),FORMAT=BI
SUM FIELDS=NONE
*********************************************************************************************************************************************************
Thanks
Syed Kazmi
Product Owner (CA Vtape, CA Tape Encryption)
CA Technologies, Inc.
Syed.Kazmi@ca.com
********************************************************************************************************************************************************
FEBRUARY 17, 2016 UPDATE TO THE ABOVE REPLY OF FEBRUARY 05, 2016
********************************************************************************************************************************************************
Hello,
Upon further review, on February 12, 2016, Larry Lee suggested the following change to his JCL suggestion that I posted in my above reply (on February 05, 2016):
Find this line of code in the JCL:--> SORT FIELDS=(26,6,A),FORMAT=BI
And replace the 27 to 26, so it looks like this:--> SORT FIELDS=(27,6,A),FORMAT=BI
On February 12, 2016, the above correction was suggested by David Lower (CA Support) to Judy Holm, through a post to the CA Service Cloud support case # 00292421.
On February 16, 2016, Judy Holm acknowledged that "...this is an ok solution...", and "You can close this ticket."
Thanks
Syed Kazmi
Product Owner (CA Vtape, CA Tape Encryption)
CA Technologies, Inc.
Syed.Kazmi@ca.com