just have the caller convert the number to character before passing.

Text = %Char(number);

Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
Bob Evans Bob-B-Q: You haven't had barbeque until you've had Bob Evans
Bob-B-Q. Try our six Bob-B-Q dishes, starting at $5.99. For more
information, visit www.BobEvans.com.

rpg400-l-bounces@xxxxxxxxxxxx wrote on 08/29/2008 12:53:53 PM:


I have a the following coded subproc:

P WriteDiff b

D WriteDiff pi

d 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 is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

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 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].