AW: RPGLE string to number

First, are there any embedded blanks within the numeric portion of the pro

number?

If so, that is another piece of the problem to deal with, and in that case

I would probably load the pro number into a 20 element array and then do a
for-loop through each element of the array and pick off each numeric
element.

The built-in-functions %DEC/%DECH and %INT/%INTH ignore/remove embedded
blanks.
That means the following examples work:

D String S 50A
D Num S 15P 5
/Free
String = ' 123.45 ';
Num = %Dec(String: 15: 5) //Num = 123.45000
String = ' 12 345. 67 ';
Num = %Dec(String: 15: 5); //Num = 12345.6700

String = ' + 123 456, 12 345 ';
Num = %Dec(String: 15: 5) //Num = 123456.12345

String = ' 1 3 5 . 7 9 - ';
Num = %Dec(String: 15: 5) //Num = - 135.79

String = *Blanks;
Num = %Dec(String: 15: 5) //--> Operation fails!!!

/End-Free


Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Booth Martin
Gesendet: Friday, 02. October 2009 01:17
An: RPG programming on the IBM i / System i
Betreff: Re: RPGLE string to number

First, are there any embedded blanks within the numeric portion of the
pro number?

If so, that is another piece of the problem to deal with, and in that
case I would probably load the pro number into a 20 element array and
then do a for-loop through each element of the array and pick off each
numeric element.

If though there are no embedded blanks I would probably just xlate all
the non-numeric characters to blanks.

Whichever route, then I'd do a %dec().



EKovarik@xxxxxxxx wrote:

I have a bill of lading number left justified in a 20 byte alphanumeric

field.

Need to extract just the bill of lading number and put into a 20 byte

numeric field for chaining purpose.

Does anyone have an example of how to do this?

Thanks,
Ed
<><><><><><><><><><><><><><>
Ed Kovarik
ETHEX, Ther-Rx, and PDI Companies
EDI Coordinator
314-645-6600 ext. 3352
314-646-3707 fax
ekovarik@xxxxxxxx<mailto:ekovarik@xxxxxxxx>
<><><><><><><><><><><><><><>

From: Kovarik, Ed
Sent: Thursday, October 01, 2009 10:36 AM
To: 'rpg400-l@xxxxxxxxxxxx'
Subject: Attach two reports as one for one email attachment

RPGLE Support Request,

I have opened a print file and written content of new report 1 my RPGLE

program.

User request I generate a copy of shipment pack list report 2 and also

attach to same email.

Problem is my email command on iSeries allows for one attachment,
thus can I merge open spool file report 1 and attach report 2 spool file?
Thanks,
Ed
<><><><><><><><><><><><><><>
Ed Kovarik
ETHEX, Ther-Rx, and PDI Companies
EDI Coordinator
314-645-6600 ext. 3352
314-646-3707 fax
ekovarik@xxxxxxxx<mailto:ekovarik@xxxxxxxx>
<><><><><><><><><><><><><><>