On 13 Apr 2020 18:08:22 -0700, in bit.listserv.ibm-main
(Message-ID:<[email protected]>)
[email protected] (Charles Mills) wrote:
FmtHHMMSS:
Procedure
Arg
SecsX100Bin
<snip>
The solution is to change that first line of code to, for
example,
SecsX100Bin = Arg(1)
I don't have access to TSO REXX, but my testing on a PC
REXX suggests that you're right:
<code>
a = x2c('006141')
say a
call say2(a)
exit 0
say2:
procedure
arg b
c = arg(1)
say b c2x(b)
say c c2x(c)
return 0
</code>
Output:
aA
AA 004141
aA 006141
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
