vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
|
|
|
|
Hi,
I have a requirement to get the list of volumes that start with say KTM***.(Only the volume names will do, similar to the below thread)
www.ibmmainframes.com/about10296.html
Could you please share your thoughts pls.
I tried the quick reference and it has the exact data which I require.
Is there anyway to get this data into a PS automatically through a BATCH REXX?.
Code: |
Volume Mount Device Free Free
Serial Attr Type Exts Tracks
(01) (02) (03) (04) (05)
------------------------------------
KTMP50 PRIVATE 3390 6 141735
KTMP51 PRIVATE 3390 5 149489
KTMP52 PRIVATE 3390 7 148108
KTMP53 PRIVATE 3390 10 133695
KTMP54 PRIVATE 3390 13 149309
KTMP55 PRIVATE 3390 6 149504
KTMP56 PRIVATE 3390 8 149355
KTMP57 PRIVATE 3390 8 141240
|
Went into the QW PROC,
the QW proc was using datasets like,
Code: |
OEML.QUICKREF.DATABASE
OEML.QUICKREF.KEYFILE
OEML.QUICKREF.QWILINK
OEML.QUICKREF.QWIMSG
OEML.QUICKREF.QWIPNL
OEML.QUICKREF.QWITBL |
But cannot make out what they are doing with it.
Also I don't have access to IDCAMS DCOLLECT as it is restricted to Storage Management Collegues.
Any thoughts will be helpful.
Thanks, |
|
vasanthz
Global Moderator
Joined: 28 Aug 2007 Posts: 1742 Location: Tirupur, India
|
|
|
|
Hi,
I did some more digging with my "expert colleague Sai" and we were able to spot the JCL from QuickREF.
Code: |
//XK89DASD JOB 1,'CW PROD',MSGCLASS=Y,CLASS=4,
// RESTART=*
//JS10 EXEC PGM=QWIKREF1,
// REGION=0K,
// PARM='S=KTM*'
//STEPLIB DD DSN=OEML.QUICKREF.R700.QWILINK,DISP=SHR
//QWPRINT DD DSN=XK89.DATASET,DISP=OLD |
Thanks, |
|