RE: Converting char to numeric for editing -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

This definitely works

d rpltxt s 80a
d v3 s 50a varying
d w11n2 s 11 2

/free

rpltxt = '0000000012566';

w11n2 = (%dec(rpltxt:11:2)/100);

v3 = %trim(%editc(w11n2:'3'));

Fred Mitchell

--

e: fred@xxxxxxxxxxxxxxxxxx
w: www.conciseconsult.com

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of DLee@xxxxxxxx
Sent: 09 December 2010 14:47
To: rpg400-l@xxxxxxxxxxxx
Subject: Converting char to numeric for editing

Morning

I need to edit a char value that resides in rpltxt which is a 80 char field left justified that looks lik this 00000012566.

I need it to end up in V3 edited to look like this 125.66

This is what I'm getting using the code below: ' 12,566.00

This is what I'm currently using that isn't working.
I know this is going the long way around, but got frustrated with my original attempts.

appreciate your help.

ALP11 = %subst(rpltxt:1:11);
Num11 = %dec(alp11:11:2);
V3 = %EDITC(Num11:'J');

d rpltxt s 80
d Num11 S 11 2
d Alp11 S 11
d v3 s 50 varying

Regards,

SWBC
9311 San Pedro Ave., Suite 600
San Antonio, TX 78216

Visit our website at www.swbc.com

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.