[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);
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.
D NUMBER 10S 0
D TEXT 20
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 mailing list archive is Copyright 1997-2019 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