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
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Lizette Koehler
Sent: Thursday, May 25, 2017 9:23 AM
To: [email protected]
Subject: Re: Setting of LNKAUTH available to a program?
I checked in Mark Zelden's IPLINFO
He looks for the following. Any of these help?
Call IPL /* IPL information */
Call VERSION /* Version information */
Call STOR /* Storage information */
Call CPU /* CPU information */
Call IPA /* Initialization info. */
Call SYMBOLS /* Symbols information */
Call VMAP /* Virt. Storage Map */
Call PAGE /* Page DSN information */
Call SMF /* SMF DSN information */
Call SUB /* Subsystem information */
Call ASID /* ASID usage information*/
Call LPA /* LPA List information */
Call LNKLST /* LNKLST information */
Call APF /* APF List information */
Call SVC /* SVC information */
Lizette
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]]
> On Behalf Of Charles Mills
> Sent: Thursday, May 25, 2017 6:29 AM
> To: [email protected]
> Subject: Setting of LNKAUTH available to a program?
>
> Is it possible for a running program to determine the current setting
> of IEASYSxx LNKAUTH= ? (The effective operational IPLed setting; I'm
> not asking about parsing a PDS member.)
>
> In other words, a CVT bit or something like that? Or a query macro?
>
> Charles
>
> ----------------------------------------------------------------------
> 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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
