Linking with AC=1 only means that this program will run APF authorized
when run as jobstep program with all libraries in the STEPLIB (or JOBLIB)
concatenation are defined in the APF list. However, exits are not run as
jobstep programs, so as such inherit APF authorization from the jobstep
TCB they are running under. Apparently this particular exit does NOT run
APF authorized, so the ABEND047 is perfectly valid. I know nothing about
MQ so I don't know if there is a way to get this exit invoked with APF
authorization or not, but clearly in your case it does not. I believe
that there are lists that specialize in MQ and this query might be better
answered on one of them. What you should probably do is issue a TESTAUTH
macro to see if you are authorized, and if not (as in this case) don't
issue the MODESET and don't attempt to allocate storage from an authorized
subpool.
===============================================
Wayne Driscoll
OMEGAMON DB2 L3 Support/Development
wdrisco(AT)us.ibm.com
===============================================
"Ward, Mike S" <mw...@ssfcu.org>
Sent by: IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu>
06/19/2009 03:52 PM
Please respond to
IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu>
To
IBM-MAIN@bama.ua.edu
cc
Subject
Storage
Hello all, I tried to issue these command from my MCA security exit, but
received this error:
DUMP TITLE=SEDQ,ABN= 047-00000000,C=L8200.600.CHIN,M=CSQXDISP,P
SW=478D040098F90F76
+CSQX111E SEDQ CSQXDISP User channel exit error, TCB=008C02B0 888
reason=047000-00000000
I checked the APF table and my loadlib is in there:
+ Z7SMS2 SSF1.MQEXIT.LOADLIB
And the dataset is on the volume:
SSF1.MQEXIT.LOADLIB , , Z7SMS2
My program is linkedited with the AC=1 attribute
11 //LKED EXEC PGM=IEWL,COND=(0,NE),
// PARM='RENT,NCAL,LIST,AMODE=31,RMODE=ANY,AC=1'
And the code that got it was:
MODESET KEY=ZERO,MODE=SUP
STORAGE OBTAIN,LENGTH=WORKLEN,LOC=(RES,ANY),ADDR=(1),SP=132
Why do I get the 047 abend?
==========================
This email and any files transmitted with it are confidential and intended
solely for the use of the individual or entity
to which they are addressed. If you have received this email in error
please notify the system manager. This message
contains confidential information and is intended only for the individual
named. If you are not the named addressee you
should not disseminate, distribute or copy this e-mail. Please notify the
sender immediately by e-mail if you
have received this e-mail by mistake and delete this e-mail from your
system. If you are not the intended recipient
you are notified that disclosing, copying, distributing or taking any
action in reliance on the contents of this
information is strictly prohibited.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
