Thanks for your help I got it working
Sent from my iPhone > On Apr 28, 2016, at 11:51 PM, Charles Mills <charl...@mcn.org> wrote: > > 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:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Gerhard Postpischil > Sent: Thursday, April 28, 2016 6:13 PM > To: IBM-MAIN@LISTSERV.UA.EDU > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN