Rexx truncates reason code

Thread View: bit.listserv.tsorexx

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Paul Gilmartin Fri, 22 Feb 2013 01:46

#363

Author: Paul Gilmartin
Date: Fri, 22 Feb 2013 01:46

29 lines
1711 bytes

In my job log, I got:

       SYSTEM COMPLETION CODE=EC6  REASON CODE=0D1A8018

In my SYSTSPRT, I got:

    IRX0250E System abend code EC6, reason code 19840536.

So, I tried:

    user@mvs:133$ rexx "say d2x(19840536)"
    12EBE18

... not even close.  However:

    user@mvs:136$ rexx "say x2d('0D1A8018')"
    219840536

... the last 8 digits are the same as in the IRX0250E message.
Apparently, Rexx feels it's OK to convert reason codes to
decimal, then truncate them on the left to 8 digits.

I disagree.  Grrrr...

-- gil

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX

Re: Rexx truncates reason code

#364

Author: Don Williams
Date: Fri, 22 Feb 2013 01:52

42 lines
2539 bytes

Looks like open a PMR time.

> -----Original Message-----
> From: TSO REXX Discussion List [mailto:TSO-REXX@VM.MARIST.EDU] On
> Behalf Of Paul Gilmartin
> Sent: Thursday, February 21, 2013 8:46 PM
> To: TSO-REXX@VM.MARIST.EDU
> Subject: [TSO-REXX] Rexx truncates reason code
>
> In my job log, I got:
>
>        SYSTEM COMPLETION CODE=EC6  REASON CODE=0D1A8018
>
> In my SYSTSPRT, I got:
>
>     IRX0250E System abend code EC6, reason code 19840536.
>
> So, I tried:
>
>     user@mvs:133$ rexx "say d2x(19840536)"
>     12EBE18
>
> ... not even close.  However:
>
>     user@mvs:136$ rexx "say x2d('0D1A8018')"
>     219840536
>
> ... the last 8 digits are the same as in the IRX0250E message.
> Apparently, Rexx feels it's OK to convert reason codes to
> decimal, then truncate them on the left to 8 digits.
>
> I disagree.  Grrrr...
>
> -- gil
>
> ----------------------------------------------------------------------
> For TSO-REXX subscribe / signoff / archive access instructions,
> send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads