Thanks for that. It's been a while since I looked at the books. Now to convince
the maintainers of CICS, ftp, telnet, ssh, ... to use that and display the
returned messages appropriately.
The book mentions SAFPMSAD. The book defines that as: "When control returns
from RACROUTE, the RACROUTE parameter-list field is mapped by SAFPMSAD in the
ICHSAFP mapping macro. SAFPMSAD is nonzero if messages have been returned. This
field contains the address of an area that consists of two fullwords followed
by the message itself in write-to-operator (WTO) parameter-list format. The
first word is the length of the area including the two-fullword header; the
second word points to the next message area, if there is one, or contains zero
if no more messages areas exist."
I am, as always, a bit uncertain how to intepret this. I would guess: SAFPMSAD
points to an area: word 1 contains the length of the entire area. word 2 points
to ?what?. Then a WTO type parameter list. My intepretation says I'd process
this something like:
LT 5,SAFPMSAD
JZ ELOOP
LOOP DS 0H
L R6,4(,R5) POINT TO NEXT AREA
LA R1,8(,R5) POINT TO WTO PARM LIST
send MF=(E,(1)) SEND A MESSAGE TO THE USER VIA A MACRO OF SOME
SORT
L R0,0(,R5) GET LENGTH
LR R1,R5 POINT TO AREA
STORAGE RELEASE,
LENGTH=(0),
SP=SUBPOOL,
ADDR=(1)
LTR R5,R6
JNZ LOOP
ELOOP DS 0H
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
john.mck...@healthmarkets.com * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets(r) is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The
MEGA Life and Health Insurance Company.SM
> -----Original Message-----
> From: IBM Mainframe Assembler List
> [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Walt Farrell
> Sent: Thursday, April 14, 2011 9:40 AM
> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU
> Subject: Re: Message ICH70001I under TSO/ISPF
>
> On Wed, 13 Apr 2011 12:05:54 -0500, McKown, John
> <john.mck...@healthmarkets.com> wrote:
>
> >I have a glimmering of an idea as to why that is done. But I
> wish there were
> >an interface to retrieve those messages in my own
> application. Such as
> >"password will expire in .. days", instead of needing to do
> another RACF
> >function to find out if I should issue such a message or not. Or am I
> >missing something?
>
> If you do not specify ACEE= on your VERIFY then MSGRTRN will
> return those
> messages to you.
>
> If you do specify ACEE= on your VERIFY, then MSGRTRN will
> also return them,
> but only on z/OS R10 and later releases.
>
> --
> Walt Farrell
> IBM STSM, z/OS Security Design
>
>
