Hi Peter,
I figured out the problem.
I should have coded Parse Pull to take the record off of the Stack
(instead of Pull (which uppercases the record)).
Thanks and regards,
David
On 2023-04-24 12:11, Farley, Peter wrote:
Something else must be off in that code, maybe the offset in the substr? I
used Gilbert Saint-Flour's REXXTRY and got this result:
READY
REXXTRY
SAY C2X('1996160F'X)
END
1996160F
Peter
-----Original Message-----
From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of
David Spiegel
Sent: Monday, April 24, 2023 11:11 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: TSO Rexx C2X Incorrect Output
Hi,
I am writing a TSO Rexx Exec to Parse fields from a DCOLLECT output
(VB/32756/32760).
One statement is: created=C2x(Substr(dcollect.i,105,4))
(In DCOLLECT parlance, this is DCDCREDT).
For any date greater than 2000-01-01, I get the expected result.
But, when the field contains x'1999160F' (I BROWSEd the DCOLLECT output
to make sure), "created" has the value "19D9160F".
I'm stumped. (The third character in the result is "D" (as in "Dog"),
instead of "9").
I'm using PCOMM (in case that matters.)
Please help.
Thank you in advance.
Regards,
David
--
This message and any attachments are intended only for the use of the addressee
and may contain information that is privileged and confidential. If the reader
of the message is not the intended recipient or an authorized representative of
the intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication
in error, please notify us immediately by e-mail and delete the message and any
attachments from your system.
----------------------------------------------------------------------
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
