Re: Converting Char to Numeric in CL

[Steve Richter <stephenrichter@xxxxxxxxx>]

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.