Re: Sub-Procedures with Local Display Files?

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

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