Re: An interesting little problem....

[booth@xxxxxxxxxxxx]

Here's how I did a similar thing:

     FGMLAST    UF   E             DISK    UsrOpn 
      * ..  .. 
     C     *ENTRY        PLIST 
     C                   PARM                    GMHRVR 
      * User open of ISY2/GMNEQ01 because of Library List issues. 
      * Override the file to a library, then open it: 
     C                   Eval      Tmpxx = 
     C                             'OVRDBF FILE(GMLast) 
TOFILE(ISY2/GMLast)'
     C                   Call (E)  'QCMDEXC' 
     C                   Parm                    Tmpxx          1024 
     C                   Parm      1024          Tmp15_5          15 5
     C                   If        Not %Error
     C                   Open      GMLAST 
....
_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________




"Mike Silvers" <msilvers@hbs-inc.com>
Sent by: owner-rpg400-l@midrange.com
09/07/2000 05:43 PM
Please respond to RPG400-L

 
        To:     <RPG400-L@midrange.com>
        cc: 
        Subject:        An interesting little problem....

I have a file issue that I need to address.  I need to open a specific
member in a file depending on the parm that is sent to the RPGLE program.

File:  XYZFile
Member: ABC
Member: DEF
Member: GHI
Member: JKL

If the program is sent in the parm of DEF, I need to open the member DEF 
and
look at the contents.  The file is a source file.  Does anyone have any
ideas?

Thanks!!


Mike Silvers, IBM Certified Expert

Hainey Business Systems
8 E. Canal St
Dover, PA 17315
Branch Office:  (410) 397-8739
Phone:  (800) 932-3380
Fax:  (717) 292-9474
Web: http:\\www.hbs-inc.com
________________________________
Providing E-Commerce, EDI, AS/400
Development and related services
nationwide.
________________________________

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---




+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---