Re: Open with USROPN Files

That's the beauty of it.  Instead of relying the user to respond to 
cryptic messages like RPG.... and trying to figure out if the:
-File is deleted
-Record format level check
-Insufficient security
-etc.
You can handle that directly in your RPG.
       Open (e) MyFile;
       Select; 
       When not %error; 
         NormalProcessing();
       When %status=01215;
         // file is already opened
       Other;
         // generic error handler
       EndSl;

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 





G Armour <garmour400r@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/21/2003 03:58 PM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     RPG programming on the AS400 / iSeries 
<rpg400-l@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        Re: Open with USROPN Files


Whoa.  What happens if the file or the member doesn't exist at runtime? 
Will you
get a runtime error that prevents the program from executing?  (The RPG 
Reference
doesn't specify.) 

Also, SEU allows these keywords, but they are not defined in the help.

Neat find.

GA

--- Peter Dow <maillist@xxxxxxxxxxxxxxx> wrote:
> As of V5R1 you can use EXTFILE(varFileName) EXTMBR(varMbrName) on a 
file's
> F-spec along with USROPN.  Populate varFileName and varMbrName then OPEN 
the
> file using the RPG filename.
> 
> fFile1     if   e           k disk    extfile(varFileName)
> extmbr(varMbrName) usropn
> 
<snip>

__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com
_______________________________________________
This is the RPG programming on the AS400 / 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.