On Wed, Mar 8, 2017 at 11:54 AM, Don Poitras <[email protected]> wrote:
> And I suppose, you could fail to dub if you don't have a large
> enough region or who knows what else? At least querydub is going
> to let you gracefully handle a majority of the customer configuration
> errors that result in the 2 a.m. calls where your customer support
> has to ask, "have you defined an OMVS RACF segment for the user?"
> While we've had dozens of these issues, I can't remember ever
> having to tell a customer how to setup their UID or GID. Could it
> be better? Sure. Does it at least conform to an 80/20 rule?
> Certainly.
>
>
​Good point. I have a similar desire. If I know that I'm going to use UNIX
services, however, my thought is "go ahead and dub right now when I'm do
all my other set up". My LE enabled HLASM startup code in this case looks
like:
LA R1_32,CALLX
LARL R15_32,CEE3INF
CEEPCALL (15),(SYS,ENV,MEMBER,GPID,FC),VL, X
LINKINST=BASR, X
MF=(E,(1))
TM SYS,X'04' ALREADY UNIX?
BO ISUNIX YES, DON'T BOTHER
LA R1_32,CALLX
LARL R15_32,BPX1SYC
CEEPCALL (15),($C_VERSION, X
RETURN_VALUE, X
RETURN_CODE, X
REASON_CODE),VL, X
LINKINST=BASR, X
MF=(E,(1))
ISUNIX DS 0H
I haven't put in the code after the 2nd CEEPCALL and just before the ISUNIX
label to actually handle any failure from the 2nd CEEPCALL trying to do an
SC_VERSION function. Since I am LE enabled, I use the LE service call
CEE3INF to see if I'm already dubbed instead of QUERYDUB. I guess because
it is my generic way to see if I'm running as "UNIX" or "TSO" or "CICS" or
"nothing special - i.e. batch".
--
"Irrigation of the land with seawater desalinated by fusion power is
ancient. It's called 'rain'." -- Michael McClary, in alt.fusion
Maranatha! <><
John McKown
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
