Here's the code snippet with the call (LINK), starting at the MODESET that
caused the 047 abend.
KZ MODESET KEY=ZERO
BATCHCNT MVC PSCBUSER(7),NEWID SET USERID TO PARAMETER VALUE
LA R8,1(,R8) BUMP REG BACK TO WHERE IT WAS
STC R8,PSCBUSRL PUT USERID LENGTH INTO PSCB
MVC 0(4,R11),=A(BPARM) MOVE PARM POINTER TO CPPL.
LR R1,R11 POINT R1 TO CPPL.
LINK EP=LISTBC DO LISTBC COMMAND.
MVC PSCBUSER(7),OLDID RESTORE OLD USERID TO PSCB
MVC PSCBUSRL(1),OLDPSCBL RESTORE SAVED USERID LENGTH
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Seymour J Metz
Sent: Wednesday, March 30, 2022 2:53 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: AFP confusion
How does it call LISTBC?
--
Shmuel (Seymour J.) Metz
https://urldefense.com/v3/__http://mason.gmu.edu/*smetz3__;fg!!KjMRP1Ixj6eLE0Fj!60bZRdMVQPaLWj0zGktKKr0LLnm8_fZ3P3OocoySdJ09B-hSJ5_gpvMWVL9flvKaSg$
________________________________________
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Pommier, Rex [rpomm...@sfgmembers.com]
Sent: Wednesday, March 30, 2022 2:34 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: AFP confusion
Thanks, Carmen.
I forgot to mention that part. My library is the only one in the STEPLIB.
And the LISTBC part of TSO that BCMDEL calls is actually in the AUTHCMD portion
of IKJTSOxx. Same on the working LPARs. If I run the LISTBC command by itself
it runs fine.
Rex
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
Carmen Vitullo
Sent: Wednesday, March 30, 2022 1:29 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: AFP confusion
if steplib I'd still check and make sure any concatenated libraries are also
APF'd IIRC the Broadcast program also requires an entry in the IKJTSOxx member,
AUTHPGM section
Carmen Vitullo
-----Original Message-----
From: Rex <rpomm...@sfgmembers.com>
To: IBM-MAIN <IBM-MAIN@LISTSERV.UA.EDU>
Date: Wednesday, 30 March 2022 1:22 PM CDT
Subject: AFP confusion
Hello list,
I'm stumped on this one. I have a small assembler program (BCMDEL from Sam
Golob's Broadcast dataset maintenance CBT package). It's running successfully
on 2 of my LPARs but the third is giving me a 047 abend trying to run. The
program is linked AC=1 and is residing in 2 APF authorized libraries. One of
them is my private library where I initially assembled the code which I added
to the APF list and verified it is there. I tried accessing this thru a
STEPLIB. The other is a general library where several of our third party
products reside, others of which need and have APF authorization through this
library. This is accessed through the linklist and I did perform an LLA
refresh. The program is a TSO-in-batch program if that matters. Identical JCL
running on other LPARs.
Here's the line of code it is choking on:
KZ MODESET KEY=ZERO
I can copy the load module to one of the other LPARs and it runs fine there so
the module appears correct. Other APF programs are running fine from the
library on this LPAR where I copied the code so the library appears correct.
Any thoughts as to what I've overlooked? I have my 2 coworkers stumped as well.
It's looking like it has to be something in the environment but we can't
determine what.
TIA,
Rex
----------------------------------------------------------------------
The information contained in this message is confidential, protected from
disclosure and may be legally privileged. If the reader of this message is not
the intended recipient or an employee or agent responsible for delivering this
message to the intended recipient, you are hereby notified that any disclosure,
distribution, copying, or any action taken or action omitted in reliance on it,
is strictly prohibited and may be unlawful. If you have received this
communication in error, please notify us immediately by replying to this
message and destroy the material in its entirety, whether in electronic or hard
copy format. Thank you.
----------------------------------------------------------------------
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
----------------------------------------------------------------------
The information contained in this message is confidential, protected from
disclosure and may be legally privileged. If the reader of this message is not
the intended recipient or an employee or agent responsible for delivering this
message to the intended recipient, you are hereby notified that any disclosure,
distribution, copying, or any action taken or action omitted in reliance on it,
is strictly prohibited and may be unlawful. If you have received this
communication in error, please notify us immediately by replying to this
message and destroy the material in its entirety, whether in electronic or hard
copy format. Thank you.
----------------------------------------------------------------------
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
----------------------------------------------------------------------
The information contained in this message is confidential, protected from
disclosure and may be legally privileged. If the reader of this message is not
the intended recipient or an employee or agent responsible for delivering this
message to the intended recipient, you are hereby notified that any disclosure,
distribution, copying, or any action taken or action omitted in reliance on it,
is strictly prohibited and may be unlawful. If you have received this
communication in error, please notify us immediately by replying to this
message and destroy the material in its entirety, whether in electronic or hard
copy format. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
