Re: get MSGID of error that caused abend (instead of CPF9999 errorID)

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Take a look at the MSGDTA parm...

Charles


On Tue, Jan 15, 2013 at 1:01 PM, Stone, Joel <Joel.Stone@xxxxxxxxxx> wrote:

> Well I tried this again and it worked well - it returned CPF3202.
>
> RTVMSGD    MSGID(&RTNCODE) FSTLVL(&ERRMSG)
>
> I am using the above to retrieve the error text.
>
> It returns
>
> ' File &1 in library &2 in use.    "
>
> How can I get the variables to be replaced with their values?
>
> For example
>
> "File CUSTFILE in library TESTLIB in use"
>
> Thanks
>
>
>
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx [mailto:
> midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Stone, Joel
> Sent: Tuesday, January 15, 2013 11:56 AM
> To: midrange-l@xxxxxxxxxxxx
> Subject: get MSGID of error that caused abend (instead of CPF9999 errorID)
>
> I have a CL with MONMSG(CPF9999) as the first line.
>
> MONMSG     MSGID(CPF9999) EXEC(GOTO CMDLBL(ABENDPGM))
>
>
>
> At the end of the CL, I would like to retrieve the actual MSGID which
> caused the problem (NOT the CPF9999 ID, but the msg previous to that).
>
> ABENDPGM:
>              RCVMSG     MSGID(&RTNCODE)
>
> I tried the obvious *PREV to get the previous msgID, but no luck.
>
> For example, I want to retrieve CPF3202 "File CUSTFILE in library TESTLIB
> in use".
>
> Any ideas?
>
> Thanks
>
>
>
>
>
> ______________________________________________________________________
> This outbound email has been scanned for all viruses by the MessageLabs
> Skyscan service.
> For more information please visit http://www.symanteccloud.com
> ______________________________________________________________________
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
> ________________________________________________________________________
> This inbound email has been scanned for all viruses by the MessageLabs
> SkyScan
> service.
> ________________________________________________________________________
>
> ______________________________________________________________________
> This outbound email has been scanned for all viruses by the MessageLabs
> Skyscan service.
> For more information please visit http://www.symanteccloud.com
> ______________________________________________________________________
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.