This REXX extract will do the job.
SYS1.SYSA.SMFDS1 SPASM1 100020 95122 Active 95%
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
