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 > email@example.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: firstname.lastname@example.org +---
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.