Re: Sub-Procedures with Local Display Files?

Glad you got it working - but don't get into the habit of returning values that large - it will perform poorly. If you want to retain the same style but not suffer performance wise then add the RTNPARM keyword to your procedure's PI/PR. Assuming you are on V7 that is.


On 2014-08-19, at 9:24 AM, Robert Jacobs <robertjacobsit@xxxxxxxxx> wrote:

Thank you for your reply! For anybody curious, I was able to get this to
work using the following code:

PChrGetEmail B Export
FEMAILFM CF E WORKSTN InDDS(DSIndAra)
DChrGetEmail PI 100A Varying
//Local Variables
DDSEmail DS LikeRec(EMAIL1:*all)
DDSIndAra DS
D F3 3 3N
DOutput S 32740A
/Free

DoU F3 = *On;
ExFmt Email1 DSEmail;
Clear DSEmail.EmlError;

If F3 = *On;
Clear Output;
Return Output;
EndIf;

If DSEmail.EmlEmail = *Blanks;
DSEmail.EmlError = 'Blank Email Address';
Iter;
Else;
If Not ChrValEmail(DSEmail.EmlEmail);
DSEmail.EmlError = 'Invalid Email Address';
Iter;
Else;
Output = DSEmail.EmlEmail;
Return Output;
EndIf;
EndIf;

EndDo;

/End-Free
PChrGetEmail E
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
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.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com