Converting a character value into a numeric value

How do I convert a character value into numeric value within a CL program?
Just use the chgvar command as this example illustrates. Just make sure that your alpha value does contain all numbers.

 
PGM                                                                 
             DCL        VAR(&ALPHA) TYPE(*CHAR) LEN(3) VALUE('003') 
             DCL        VAR(&NUM) TYPE(*DEC) LEN(3 0)               
             CHGVAR     VAR(&NUM) VALUE(&ALPHA)                     
ENDPGM         

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: tips, tutorials and more.

Ask your programming questions--or help out your peers by answering them--in our live discussion forums.

Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.