An anecdote that ties this thread together with marathon IEFBR14 epic. Once 
upon a time in a galaxy far away, I chose (for reasons now lost in the mist) to 
do some conditional processing in the late great Exit 13. As with IEFBR14, the 
only documented role for Exit 13 was to set a condition code and return to 
caller. We had had our Exit 13 running for years longer than I was at the 
company.

So I got motivated one day (see note above) to check something or other and 
branch accordingly. Shortly after making the change, I began to get bizarre 
abends in JES2. Right away Level 2 noticed that I was abending in modules that 
I had no business being in. It became a daily afternoon ritual for Level 2 to 
call me up to attack the problem. Finally the epiphany: Exit 13, originally 
copied straight from JES2 samplib, had never bothered to load the defined base 
register. So whenever I actually took a branch, I landed at some random spot 
within JES2 depending on the unpredictable setting of R12. 

Shortly after this adventure IBM modified the sample Exit 13 to set the base 
register. Effectively PEing a two-instruction module.

.
.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
626-302-7535 Office
323-715-0595 Mobile
[email protected]

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf 
Of ITURIEL DO NASCIMENTO NETO
Sent: Wednesday, May 13, 2015 12:08 PM
To: [email protected]
Subject: RES: Notify for XMIT

Hi,

As Skip pointed out, there is no need of any exit, unless you want to WTO some 
messages to be used by your automation package.

Since z/OS 1.7 exit 13 is discontinued, its functionalities have been replaced 
by exit 40.

Atenciosamente / Regards / Saludos

Ituriel do Nascimento Neto
BANCO BRADESCO S.A.
4250 / DPCD Engenharia de Software
Sistemas Operacionais Mainframes
Tel: +55 11 3684-2177 R: 42177 3-1404
Fax: +55 11 3684-4427



Banco Bradesco.
Patrocinador oficial dos Jogos Olímpicos e Paralímpicos Rio 2016.

-----Mensagem original-----
De: IBM Mainframe Discussion List [mailto:[email protected]] Em nome de 
Steve Thompson Enviada em: terça-feira, 12 de maio de 2015 16:25
Para: [email protected]
Assunto: Re: Notify for XMIT

Well, if it takes an exit, that's the end of this query.

It will take longer than it is worth to get that approved and installed.

I had thought it was some setting that I was missing (ok, I was hopping it was 
just some TSO setting that I could get done quickly).

Thanx folks,
Steve Thompson

On 05/12/2015 01:52 PM, Bill Bishop (TEMA TPC) wrote:
> This does require a JES2 exit to be implemented.
>
> I actually had done this too many years ago to remember.
>
> Unfortunately, I do not remember which exit it was, but I seem to remember I 
> got the base code either from an old Redbook on JES2 or from the Share or 
> JES2 mods tape.
>
<SNIPPAGE>

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to