Im using this technique, but wanted to know if we had a neat way of doing it
(can you say overloading Aaron)

Thanks all...

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of DeLong, Eric
Sent: Friday, August 29, 2008 1:11 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: passing char/num variable to a subproc question

Not directly... You simply use a bif to convert your numerics to character.

Writediff('number' : %char(number)); // strips off leading
Writediff('number' : %editc(number:'J')); // grouping sep,
print zeros, - sign
Writediff('Text' : text);

Eric DeLong
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of tim
Sent: Friday, August 29, 2008 11:54 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: passing char/num variable to a subproc question


I have a the following coded subproc:

P WriteDiff b

D WriteDiff pi

7d fieldchange 10 const

d value 80 const


lgfldch = fieldchange;

lgvalue = %trim(value);

write rlog;


P WriteDiff e

Is there a way to do this that no matter if I pass a character or numeric
defined field, the subproc would work.

So, both of these would work.




Writediff('number' : number);

Writediff('Text' : text);


I am thinking that I would pass a pointer rather then the value, but not
sure how I would code this.


This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 by 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].