Re: Converting Char to Numeric in CL

Mohan,

your code should work. You can use CHGVAR to convert between character and
decimal.

PGM

DCL VAR(&COPYCHR) TYPE(*CHAR) LEN(1) VALUE(' ')
DCL VAR(&COPIES) TYPE(*DEC) LEN(1 0) VALUE(1)
dcl &ch1 *char 1

chgvar &copyChr '3'
CHGVAR VAR(&COPIES) VALUE(&COPYCHR)

/* show the value of &copies. */
chgvar &ch1 &copies
SNDPGMMSG MSG('Value of &copies:' *BCAT &CH1)


endpgm


On Fri, Nov 7, 2014 at 12:02 PM, Mohan Eashver <mohankva@xxxxxxxxx> wrote:

Sorry guys I am not signed up for the CL programming mailing list. Hope you
can help.

I have a character variable with numeric data.
This holds number of copies that will be used on the OVRPRTF commnd.

DCL VAR(&COPYCHR) TYPE(*CHAR) LEN(1) VALUE(' ')
DCL VAR(&COPIES) TYPE(*DEC) LEN(1 0) VALUE(1)

CHGVAR VAR(&COPIES) VALUE(&COPYCHR)

Let us say the value of &COPYCHR is a '3' before the CHGVAR command.
After the CHGVAR executes, the value of &COPIES remains a 1.

What seems to be my problem ?

----
Regards,
Mohan Eashver
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.