On Thu, 21 Jun 2012 07:54:22 -0400, Peter Relson wrote:
>
>You wrote about "your" SMFDUMP program. What is that? The one provided by
>z/OS does not use that ENQ.
>
I think the sample programs "SMFDUMP" and "IEFU29" shipped with OS/390 (and
earlier) used that ENQ.
SMFDUMP is not shipped with z/OS, but SYS1.SAMPLIB(IEEU29) is still (z/OS 1.11)
there:
...
MVC ENQLIST(LENQLIST),ENQLSTX LOAD IN MODEL PARM LIST
ENQ MF=(E,ENQLIST) TEST IF RESOURCE IN USE?
LTR R15,R15 WAS THE RESOURCE AVAILABLE?
BNZ SKIPDUMP NO, DO NOT START DUMP
...
*
* DATA AREA
*
SMFQNAME DC CL8'IPOSMF01' SIPO50
SMFRNAME DC CL7'DATASET'
*
...
ENQLSTX ENQ (SMFQNAME,SMFRNAME,E,,SYSTEM),RET=TEST,MF=L
...
The sample IEFU29 does not start SMFDUMP ("S DUMPXY,...") if it's already
running.
Norbert Friemel
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
