×
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.
Daniel showed you how to do it... but I believe what you're looking for is how to define a "function".
I write nearly all of my procedures as functions, meaning it returns a value in addition to the parameters passed.
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Art Tostaine, Jr.
Sent: Wednesday, July 3, 2024 2:59 PM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] Write a procedure to deal with a string
I want to do something like this:
dcl-s mystring char(50);
mystring = right('ABC1234');
and "right" returns a string that is 50 characters long with ABC1234 right justified. I Can code the procedure, but how do I define my dcl-proc and dcl-pi so I can send in a constant and return my value to mystring?
I've been googling and saw *CONVERT and some other things but I can't get it right.
Thanks for any help.
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
[CAUTION! This email originated outside of the organization. Please do not open attachments or click links from an unknown or suspicious origin.]
Greg Wilburn
Director of IT
301.895.3792 ext. 1231
midrange.com
