Re: Open with USROPN Files

Thanks Peter 

I just got internet back and all my questions were answer in online 
manual.

The EXTFILE keyword specifies which file, in which library, is |opened. 
The value can be a literal or a variable. You can |specify the value in 
any of the following forms:


 A lot could be said for taking the time to download them to PC. Lesson 
learned.

Now if I could only do field names within fields names without dynamic SQL 
being involved. :)

Thanks again 
Bill Hopkins






"Peter Dow" <maillist@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/21/2003 04:08 PM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        Re: Open with USROPN Files


Hi Bill,

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

d varFileName        s            21a
d varMbrName       s            10a

c                        eval        varFileName = 'LIB1/XYZ'
c                        eval        varMbrName = 'ABC'
c                        open       File1

hth,
Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 793-4480 fax
909 522-3214 cell

From: "Bill Hopkins"
> Thanks was pretty sure that was true for OPEN and I'm pretty sure I can
> build it into SQL statements but for client thats a no-no. :(
>
> Thanks I'll just create another up front pgm to do clear and then call 
the
> other with regular file opens and my QCMDEXC cmds.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.512 / Virus Database: 309 - Release Date: 8/19/2003


_______________________________________________
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.