RE: Re-key PF or LF

[Herb Henry <HHenry@xxxxxxxxxxxxxx>]

OVRDBF FILE(lfile) TOFILE(pfile)
OPNQRYF FILE(lfile) QRYSLT(recselect) KEYFLD((key1) (key2))
CALL PGM(rpg)
DLTOVR FILE(lfile)
CLOF FILE(lfile)

Maybe????

> -----Original Message-----
> From: boothm@ibm.net [SMTP:boothm@ibm.net]
> Sent: Wednesday, October 14, 1998 12:58 PM
> To:   RPG400-L@midrange.com
> Subject:      Re: Re-key PF or LF
> 
> 51 records in all? then perhaps just load an array with the key, and
> an alternating array with the data, then do a look up (not a SORTA) on
> the array?  That'd work if someone else doesn't have a better idea on
> using OPNQRYF.
> 
> In <199810141530.QAA20645@mailhost.dircon.co.uk>, on 10/14/98 
>    at 04:20 PM, ikat@dircon.co.uk said:
> 
> >Hello -- here is a little question for all you out in AS/400 land.
> 
> >Is there a way to key a PF without using a LF and not putting K spec
> in
> >the PF ?
> 
> >Heres what I got.
> >1 PF that has over 14000 records in it, of which I want 51.
> >so I crtdupobj, and sql the records I need. The RPG prog then  needs
> to
> >read this file with keys. but there arn't any ! Must I  create a temp
> LF
> >or is there a way of using opnqryf (or something) that can put the
> keys
> >into the PF.
> 
> >Hope this makes sense :)
> >Marc Woodbridge.
> 
> >* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * *
> >* This is the RPG/400 Discussion Mailing List!  To submit a new
> *
> >* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe
> *
> >* from this list send email to MAJORDOMO@midrange.com and specify
> *
> >* 'unsubscribe RPG400-L' in the body of your message.  Questions
> should *
> >* be directed to the list owner / operator: david@midrange.com
> *
> >* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * *
> 
> 
> -- 
> -----------------------------------------------------------
> boothm@ibm.net
> Booth Martin
> -----------------------------------------------------------
> 
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new
> *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe
> *
> * from this list send email to MAJORDOMO@midrange.com and specify
> *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions
> should *
> * be directed to the list owner / operator: david@midrange.com
> *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *