Re: An interesting little problem....

["Mike Silvers" <msilvers@xxxxxxxxxxx>]

Thanks for all of your help...... I guess I had a
'brain-fart'.......Yesterday was just one of those days.....

Thanks Again!


----- Original Message -----
From: <booth@martinvt.com>
To: <RPG400-L@midrange.com>
Sent: Thursday, September 07, 2000 9:04 PM
Subject: Re: An interesting little problem....


> 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
> +---

+---
| 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
+---