The below excerpt from the manual explains the issue. I see where EXFMT can be used with a data structure so try that, I have never used it that way. See the manual for details on how the data structure must be defined.
"Files can be defined locally in subprocedures. I/O to local files can only be done with data
structures; I and O specifications are not allowed in subprocedures, and the compiler does not
generate I and O specifications for externally described files."
Scott
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert Jacobs
Sent: Monday, August 18, 2014 10:17 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Sub-Procedures with Local Display Files?
Thank you in advance for any advice!
I know that as of 6.1 physical files can be defined locally within a sub-procedure, but is there no way to define and use a display file within a sub-procedure?
I'm attempting to make a sub-procedure (called ChrGetEmail) that prompts the user for an Email address. It could be used something like this:
myEmail = ChrGetEmail;
Here is a basic version of the code that I'm attempting to implement with no success:
______________________________________________
PChrGetEmail B Export
FEMAILFM CF E WORKSTN InDDS(DSIndAra)
DChrGetEmail PI 100A Varying
//Local Variables
DDSIndAra DS
D F3 3 3N
DOutput S 100A
/Free
DoU F3 = *On;
ExFmt Email1;
If F3 = *On;
Leave;
EndIf;
If EmlEmail = *Blanks;
EmlError = 'Blank Email';
Iter;
Else;
If Not ChrValEmail(EmlEmail); //Second Sub-Procedure to Validate Email
EmlError = 'Invalid Email Addres';
Iter;
Else;
Output = EmlEmail;
Return Output;
EndIf;
EndIf;
EndDo;
/End-Free
PChrGetEmail E
______________________________________________
When compiling this code, I get the error messages that none of the variables defined within the WORKSTN display file are defined. Is there another way to do this, or is this functionality not supported?
Thanks again for your time!
--
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.
midrange.com
