RE: Packed (*CHAR) to Numeric (*DEC) in CLP

["Rubino, Jim" <Jim.Rubino@xxxxxxxx>]

Bill,

You can try this in your CL, I believe it will work.....unless I am not
understanding what you are trying to do.

/*                                                                   */
/* --------- Define program file(s) and variable(s). --------------- */
/*                                                                   */
             DCL        VAR(&CHAR       ) TYPE(*CHAR) LEN(  11)
<----------this is your incoming      
             DCL        VAR(&NUM155     ) TYPE(*DEC ) LEN(15 5)  
             DCL        VAR(&NUMBER     ) TYPE(*DEC ) LEN( 7 2)  
/*                                                                   */
/* --------- Change character value to a 15,5 and then to 7,2 ------ */
/*                                                                   */
             CHGVAR     VAR(&NUM155   ) VALUE(&CHAR  ) 
             CHGVAR     VAR(&NUMBER   ) VALUE(&NUM155)

Jim


-----Original Message-----
From: bill.reger@convergys.com [mailto:bill.reger@convergys.com]
Sent: Monday, February 03, 2003 12:18 PM
To: Midrange-L@midrange.com
Subject: Packed (*CHAR) to Numeric (*DEC) in CLP


Can anyone tell me how (in a CLP) to convert a *CHAR declared variable
containing a packed numeric value into a *DEC declared variable?

Bill


--
"NOTICE:  The information contained in this electronic mail transmission is
intended by Convergys Corporation for the use of the named individual or
entity to which it is directed and may contain information that is
privileged or otherwise confidential.  If you have received this electronic
mail transmission in error, please delete it from your system without
copying or forwarding it, and notify the sender of the error by reply email
or by telephone (collect), so that the sender's address records can be
corrected."


_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.