Re: D SMF - programatically
On Sunday 12 March 2006 16:43, R.S. wrote: D SMF shows what is current (ACTIVE) SYS1.MANx dataset. I'd like to get the information in my program. Can I find it in CVT or other control block ? Look at the code in SHOWMVS which displays a lot of SMF parms and info. SHOWMVS is in file 492 of the CBT tape at http://cbttape.org -- Gilbert Saint-Flour GSF Software http://gsf-soft.com/ mailto:[EMAIL PROTECTED] -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
D SMF - programatically
D SMF shows what is current (ACTIVE) SYS1.MANx dataset. I'd like to get the information in my program. Can I find it in CVT or other control block ? -- Radoslaw Skorupka Lodz, Poland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
D SMF - programatically
Found this in a Google cache: From the SMCA map, can we find the name of the SMF datasets which one is active? I am trying to find the information displayed by 'D SMF' command thru REXX. The SMCAFRDS field points to smf dataset but i could not find out the format(map) after jumping to SMCAFRDS address in SMCA map. This question posed on 20 October 2001 You can't find the mapping because the SMF RDS is an OCO (Object Code Only) control block. If you have a copy of the SMFDUMP program, there is a mapping in there. This program used to be distributed with CBIPO and with ServerPac in IPO1.SAMPLIB or CPAC.SAMPLIB. IBM no longer distributes it. Here is a mapping in a version of the program that I found. The program still functions correctly as of OS/390 2.10, but I have no way of verifying the accuracy of this DSECT. You may be able to work with IBM to get a current mapping. IEEMBRDS DSECT RDSIDDSCL4 CONTROL BLOCK ID RDSNEXT DSF FORWARD CHAIN POINTER RDSPREV DSF BACKWARD CHAIN POINTER * RDSFLG1 DSX RDSFREE EQU X'10' 1 - NEED TO FREE DATASET RDSDUMP EQU X'08' 1 - OPER HAS BEEN TOLD TO * DUMP DS RDSREADY EQU X'04' 1 - DS IS OPEN AND READY RDSCLOSE EQU X'02' 1 - DS NEEDS TO BE CLOSED RDSNDOP EQU X'01' 1 - DS NEEDS TO BE OPENED * RDSFLG2 DSX RDSLOST EQU X'80' DUMMY RDS FOR LOST DATA RDSPHYER EQU X'40' 1 - PHYSICAL I/O ERROR RDSLOGER EQU X'20' 1 - LOGICAL I/O ERROR * RDSFLG3 DSX RESERVED RDSNLEN DSX RESERVED RDSNAME DSCL44DATASET NAME RDSVOLID DSCL6 VOLUME SERIAL DSCL2 RDSDDN DSCL8 DDNAME RETND BY DYNALLOC RDSCAPTY DSF CAPACITY IN # OF BLOCKS RDSNXTBL DSF NUMBER OF NEXT AVAIL BLOCK RDSBQE DSF ADDR OF BQE BEING WRITTEN RDSAVSPC DSF AVAIL SPACE FROM SHOWCB RDSENRBA DSF ENDRBA FROM SHOWCB RDSCINV DSF CONTROL INTERVAL SIZE RDSDOMID DS2F MSG # OF DUMP MSG RDSRPL DSCL76VSAM RPL RDSACB DSCL76VSAM ACB -- Phil Payne http://www.isham-research.co.uk +44 7833 654 800 -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: D SMF - programatically
I believe ins in the SMCA which IIRC is off the CVT. Ed On Mar 12, 2006, at 3:43 PM, R.S. wrote: D SMF shows what is current (ACTIVE) SYS1.MANx dataset. I'd like to get the information in my program. Can I find it in CVT or other control block ? -- Radoslaw Skorupka Lodz, Poland -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] 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 [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: D SMF - programatically
This REXX extract will do the job. SYS1.SYSA.SMFDS1 SPASM1 100020 95122 Active95% SYS1.SYSA.SMFDS2 SPASM2 100020 1 Alternate 0% SYS1.SYSA.SMFDS3 SPASM3 100020 1 Alternate 0% SYS1.SYSA.SMFDS4 SPASM4 100020 1 Alternate 0% SYS1.SYSA.SMFDS5 SPASM5 100020 1 Alternate 0% SYS1.SYSA.SMFDS6 SPASM6 100020 1 Alternate 0% SYS1.SYSA.SMFDS7 SPASM7 100020 1 Alternate 0% SYS1.SYSA.SMFDS8 SPASM7 100020 1 Alternate 0% SYS1.SYSA.SMFDS9 SPASM7 99000 1 Alternate 0% End of SMF dataset list Regards Bruce Hewson /*---*/ /*- SMFDS - Display SMF datasets -*/ /*---*/ Smfds: Procedure status. = Unknown status.00 = Active status.04 = Alternate status.08 = Dump Pending RdsA = Smcafrds() Do While Storage(RdsA, 4) = RDS flag1 = C2x(Storage(X2x(RdsA, 'C'), 1)) flag2 = C2x(Storage(X2x(RdsA, 'D'), 1)) name = Storage(X2x(RdsA,'10'),44) volume = Storage(X2x(RdsA,'3C'), 6) size = C2d(Storage(X2x(RdsA,'4C'), 4)) used = C2d(Storage(X2x(RdsA,'50'), 4)) If size 0 Then Do pct= Right(Trunc((used * 100) / size),3) End Else Do Nop/* Call DumpStor RdsA,128 */ End If flag2 = 00 Then Do Say Strip(name) , volume , Right(size,6) , Right(used,6) , status.flag1 , pct% End RdsA = C2x(Storage(X2x(RdsA,'4'),4)) End Return End of SMF dataset list PSA: Procedure: Return '00' CVT: Procedure: Return C2x(Storage(X2x(Psa(), '10'),4)) SMCA:Procedure: Return C2x(Storage(X2x(Cvt(), 'C4'),4)) SMCAFRDS:Procedure: Return C2x(Storage(X2x(Smca(), 'F4'),4)) X2x: Procedure: Return D2x(X2d(Arg(1))+X2d(Arg(2))) -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
