On Thu, 25 May 2017 10:01:09 -0700, Charles Mills <[email protected]> wrote:
>Hmmm. Good thought. Thanks. > >Mark does > > DLCB = C2d(Storage(D2x(ASSB+236),4)) /* point to CSVDLCB */ > > DLCBFLGS = Storage(d2x(DLCB + 32),1) /* DLCB flag bits */ > >... > If Bitand(DLCBFLGS,'10'x) = '10'x then , /* bit for LNKAUTH */ > > LAUTH = 'LNKLST' /* LNKAUTH=LNKLST */ > > Else LAUTH = 'APFTAB' /* LNKAUTH=APFTAB */ > >Only problem is that DLCB+32 is documented as "Not part of the intended >Interface." > >So I can "parse" IPALNKAU which is a small PITA or I can test an unsupported >bit. Hmmm ... > >Charles > Unspported, but hasn't changed ever. What is supported and I just suggested in my last post was to get the setting in IEASYSxx from the IPA set at IPL time. You can't change the setting dynamically, so it is reliable. The section of code you posted was actually added to IPLINFO at some point from an older exec of mine called "LPROG" that shows the LNKLST, APF list and LPA list. Regards, Mark Best Regards, Mark -- Mark Zelden - Zelden Consulting Services - z/OS, OS/390 and MVS ITIL v3 Foundation Certified mailto:[email protected] Mark's MVS Utilities: http://www.mzelden.com/mvsutil.html Systems Programming expert at http://search390.techtarget.com/ateExperts/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
