Did not see the original question but yes:
UCBSCAN COPY, +
WORKAREA=UCBSCAN_Work, +
UCBAREA=UCBSCAN_UCBAREA, Return area for UCB copy +
VOLSER=VOLSER, Input VOLSER to search for +
LDEVNCHAR=UCBSCAN_LDEVNCHAR, receive logical dev number +
DEVN=0, Start scan from beginning +
DYNAMIC=YES, also include dynamic UCBs +
RANGE=ALL, include UCBs w/ 4-digit dev numbers +
PLISTVER=MAX, +
MF=(E,UCBSCAN_L,COMPLETE)
*
* Store return and reason codes
ST R15,UCBSCAN_RETCODE Pass return code
ST R0,UCBSCAN_RSNCODE Pass reason code
*
* See if life is still worth living
LTR R15,R15 Life is good?
JNZ RETERROR Nope
*
* Set up for LSPACE
LA R2,UCBSCAN_UCBAREA LSPACE needs a pointer
*
* Issue LSPACE
LSPACE MF=(E,LSPACE_L), +
UCB=(R2), address of the UCB +
SMF=NONE, do not want an SMF record written +
F4DSCB=0, do not want format-4 DSCB +
EXPDATA=LSPACE_EXPDATA return expanded information
Charles
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Gerhard Postpischil
Sent: Thursday, April 28, 2016 6:13 PM
To: [email protected]
Subject: Re: UCBSCAN and LSPACE
On 4/27/2016 3:10 PM, michelbutz wrote:
> Can any one of the parameters returned by UCBSCAN be used with LSPACE
> As ucbscan returns different parts of the UCB
1) What does the documentation say about LSPACE parameters?
2) Run UCBSCAN unauthorized to get a copy of a UCB, and invoke UCBSCAN to
see what happens.
Both of these would be faster than asking a poorly phrased question.
P.S. If 2) fails, you can try to run the UCB chain yourself - see SHOWDS
program for source.
Gerhard Postpischil
Bradford, VT
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
