Re: Determine who's PPRC'd
I have an assembler program that is passed a device number and uses the UCBSCAN macro to get device information. It then uses the ANTRQST macro to get PPRC information. If you are intersted you can contact me offline. Brad Wissink Information Technology Services Iowa State University 515-294-3088 -Original Message- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of O'Brien, David W. (NIH/CIT) [C] Sent: Friday, June 19, 2009 9:51 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Determine who's PPRC'd Jack, Go ISMF 2;1 Wildcard your volume with an * Page to page 3, duplex status eq PPrimary That will list your PPRC'd volumes. Thanks for reminding me. I hadn't checked mine yet today. Dave O'Brien NIH Contractor From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of John Kelly [john_j_ke...@ao.uscourts.gov] Sent: Friday, June 19, 2009 10:46 AM To: IBM-MAIN@bama.ua.edu Subject: Determine who's PPRC'd Is there any way to find out which DASD is a PPRIMARY, and it's PSECONDRY would be nice too? I know that the various derivatives of CQUERY will provide the data but that's a lot of SYSPRINT to go thru. What I'd like to do is make sure that all of the DASD is PPRC'd and if I can get an association, ie PPRIMARY to PSECONDRY, I could make sure that my CESTPAIR did what I thought that I told it. I was hoping that I could scan the UCBs and make this determination but I haven't found it yet. What I've found is that the DS P,xxxtell if a device is PPRIMARY or PSECONDRY or SIMPLEX but the relationship FCQUERY DEVN(4XXX) gives about the same info as the "DS P" command Since we have a Hitachi USP V SAN, our chances of getting any support from VION is minimal, at best. Jack Kelly 202-502-2390 (Office) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determine who's PPRC'd
I want to thank Jeffrey, Clifford and David for their replies. That's exactly what I need. Thanks again...Jack Jack Kelly 202-502-2390 (Office) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determine who's PPRC'd
> You could write an ASM program
The ISMF thing doesn't work for us as we snapshot our production volumes to
an offline set of volumes which are in the PPRC relationship. We wrote a
little script that issues and then parses the CQUERY UNFORMAT information
for those volumes to get us the info when we need it. Uses a DCOLLECT
report to drive the addresses needed for the CQUERYs as those snapshot
target addresses are all the production addresses + x'80'.
The DCOLLECT report generated in a job that runs once a day to get a list
of production volumes
//LISTCEXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//OUTDSDD DISP=OLD,DSN=SE.PADMIN.BATCH.PRDRGENR.DCOLL
//SYSINDD *
DCOLLECT -
OFILE(OUTDS) -
NODATAINFO -
VOLUME(**)
//*
The script we run to get the info we want on the snapshot targets in the
PPRC relationship. You could expand it to parse the primary/secondary info
you're looking for
/* REXX
SSID.1 = 9080
SSID.2 = 9180
SSID.3 = 9280
SSID.4 = 9380
SSID.5 = 9480
SSID.6 = 9580
SSID.7 = 9680
SSID.8 = 9780
SSID.9 = 9880
SSID.10 = 9980
SSID.11 = 9A80
SSID.12 = 9B80
SSID.13 = 9C80
SSID.14 = 9D80
SSID.15 = 9E80
SSID.16 = 9F80
SSID.0 = 16
"ALLOC DA('SE.PADMIN.BATCH.PRDRGENR.DCOLL') F(INFILE) SHR"
"EXECIO * DISKR INFILE(STEM VOLS. FINIS"
"FREE F(INFILE)"
VOLSER. = "UNDEFD"
DO I = 1 TO VOLS.0
PARSE VAR VOLS.I 25 31 . 77 U1 78 U2 79 .
UU=RIGHT(D2X(C2D(U1)),2,'0')||RIGHT(D2X(C2D(U2)),2,'0')
T2 = RIGHT(D2X(X2D(UU)+128),4,'0') /* ADD HEX80 */
VOLSER.T2 =
END
X = OUTTRAP( REP.)
PENDING = 0
DUPLEXD = 0
DO J = 1 TO SSID.0
PRIM = SSID.J
DO I=0 TO 57
DEVN=D2X(X2D(PRIM)+I)
" CQUERY DEVN(X'"DEVN"') UNFORMAT"
END
END
X = OUTTRAP(OFF)
"ALLOC DA(VCU) F(OUTFILE) NEW CATALOG DELETE DATACLAS(STD80PS)"
DO I = 1 TO REP.0 BY 7
P3 = I + 2
P6 = I + 5
PARSE VAR REP.P3 UNIT","PORS","DUPORPEND",".
PARSE VAR REP.P6 .",".","PERCENT",".
IF DUPORPEND = "PENDING" THEN
PENDING = PENDING + 1
IF DUPORPEND = "DUPLEX" THEN
DUPLEXD = DUPLEXD + 1
IF PERCENT ="" THEN
QUEUE VOLSER.UNIT UNIT DUPORPEND
ELSE
QUEUE VOLSER.UNIT UNIT DUPORPEND PERCENT" %"
"EXECIO 1 DISKW OUTFILE"
END
SAY "NUMBER OF PENDING VOLUMES IS "PENDING
PDUPLEX = DUPLEXD / 924
SAY "NUMBER OF DUPLEXD VOLUMES IS "DUPLEXD
SAY "PERCNT OF DUPLEXD VOLUMES IS "PDUPLEX
"EXECIO 1 DISKW OUTFILE(FINIS"
"ISPEXEC EDIT DATASET(VCU)"
"FREE F(OUTFILE)"
The result, for us, is a report that looks like this
NUMBER OF PENDING VOLUMES IS 0
***
01 MAGIC1 9080 DUPLEX
02 M99001 9081 DUPLEX
03 M99002 9082 DUPLEX
04 LRK108 9083 DUPLEX
05 LRK124 9084 DUPLEX
06 LRK140 9085 DUPLEX
07 LRK156 9086 DUPLEX
etc.
if the volume is not DUPLEX then it says what percentage is pending.
The UNFORMAT format layout is for message ANTP0091I and can be found in the
MVS System Messages Volume 1 manual...
Jeffrey Deaver, Engineer
Systems Engineering
jeffrey.dea...@securian.com
651-665-4231(v)
IS - "Creating competitive advantage with technology. Providing service
that excels."
OSS - " Where Innovation Happens"
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determine who's PPRC'd
Jack, You could write an ASM program to loop through UCBSCAN and issue the ANTRQST to retrive pprc information. The information is returned similiar to CQUERY with UNFORMAT parameter. Cliff McNeill > Date: Fri, 19 Jun 2009 10:50:49 -0400 > From: obrie...@mail.nih.gov > Subject: Re: Determine who's PPRC'd > To: IBM-MAIN@bama.ua.edu > > Jack, > > Go ISMF 2;1 > Wildcard your volume with an * > Page to page 3, duplex status eq PPrimary > > That will list your PPRC'd volumes. > > Thanks for reminding me. I hadn't checked mine yet today. > > Dave O'Brien > NIH Contractor > > From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of John > Kelly [john_j_ke...@ao.uscourts.gov] > Sent: Friday, June 19, 2009 10:46 AM > To: IBM-MAIN@bama.ua.edu > Subject: Determine who's PPRC'd > > Is there any way to find out which DASD is a PPRIMARY, and it's PSECONDRY > would be nice too? I know that the various derivatives of CQUERY will > provide the data but that's a lot of SYSPRINT to go thru. What I'd like to > do is make sure that all of the DASD is PPRC'd and if I can get an > association, ie PPRIMARY to PSECONDRY, I could make sure that my CESTPAIR > did what I thought that I told it. I was hoping that I could scan the UCBs > and make this determination but I haven't found it yet. > > What I've found is that the > > DS P,xxx tell if a device is PPRIMARY or PSECONDRY or > SIMPLEX but the relationship > FCQUERY DEVN(4XXX) gives about the same info as the "DS P" command > > Since we have a Hitachi USP V SAN, our chances of getting any support from > VION is minimal, at best. > > Jack Kelly > 202-502-2390 (Office) > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html _ Microsoft brings you a new way to search the web. Try Bing™ now http://www.bing.com?form=MFEHPG&publ=WLHMTAG&crea=TEXT_MFEHPG_Core_tagline_try bing_1x1 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Determine who's PPRC'd
Jack, Go ISMF 2;1 Wildcard your volume with an * Page to page 3, duplex status eq PPrimary That will list your PPRC'd volumes. Thanks for reminding me. I hadn't checked mine yet today. Dave O'Brien NIH Contractor From: IBM Mainframe Discussion List [ibm-m...@bama.ua.edu] On Behalf Of John Kelly [john_j_ke...@ao.uscourts.gov] Sent: Friday, June 19, 2009 10:46 AM To: IBM-MAIN@bama.ua.edu Subject: Determine who's PPRC'd Is there any way to find out which DASD is a PPRIMARY, and it's PSECONDRY would be nice too? I know that the various derivatives of CQUERY will provide the data but that's a lot of SYSPRINT to go thru. What I'd like to do is make sure that all of the DASD is PPRC'd and if I can get an association, ie PPRIMARY to PSECONDRY, I could make sure that my CESTPAIR did what I thought that I told it. I was hoping that I could scan the UCBs and make this determination but I haven't found it yet. What I've found is that the DS P,xxxtell if a device is PPRIMARY or PSECONDRY or SIMPLEX but the relationship FCQUERY DEVN(4XXX) gives about the same info as the "DS P" command Since we have a Hitachi USP V SAN, our chances of getting any support from VION is minimal, at best. Jack Kelly 202-502-2390 (Office) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Determine who's PPRC'd
Is there any way to find out which DASD is a PPRIMARY, and it's PSECONDRY would be nice too? I know that the various derivatives of CQUERY will provide the data but that's a lot of SYSPRINT to go thru. What I'd like to do is make sure that all of the DASD is PPRC'd and if I can get an association, ie PPRIMARY to PSECONDRY, I could make sure that my CESTPAIR did what I thought that I told it. I was hoping that I could scan the UCBs and make this determination but I haven't found it yet. What I've found is that the DS P,xxxtell if a device is PPRIMARY or PSECONDRY or SIMPLEX but the relationship FCQUERY DEVN(4XXX) gives about the same info as the "DS P" command Since we have a Hitachi USP V SAN, our chances of getting any support from VION is minimal, at best. Jack Kelly 202-502-2390 (Office) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
