Re: Char to num

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

 PGM
              DCL        VAR(&NUMBER) TYPE(*DEC) LEN(10 0)
              DCL        VAR(&CHARACTER) TYPE(*CHAR) LEN(10) VALUE('50')

              CHGVAR     VAR(&NUMBER) VALUE(&CHARACTER)
              CHGVAR     VAR(&NUMBER) VALUE(&NUMBER + 1)
              CHGVAR     VAR(&CHARACTER) VALUE(&NUMBER)
              SNDMSG     MSG(&CHARACTER) TOUSR(*REQUESTER)
 ENDPGM

This program sends the message 0000000051

As you can see, it is simply a matter of moving the character to a numeric 
field,
or
the number to a character field.

Regards,

Jim Langston

Scott Swaim wrote:

> I have having a brain freeze this morning.  In CL how do I convert a
> Character to Number?
>
> Scott Swaim
> scott@qualitycorps.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---