RE: How to read index file from CL program

["Shaw, David" <dshaw@xxxxxxxxxxx>]

This ain't pretty, but it can work:

        DclF            your_file

/* Get key somehow */

        OvrDBF  File(your_file)                  
                Position(*KEYxy 1 *N keyvalue)

 NextRcd:

        RcvF
        MonMsg  MsgID(CPF0864) Exec(GoTo Trouble)

/* Process record somehow */

/* If you just want to read on from here, loop */

        If      Cond(read_on) Then(GoTo NextRcd)

/* If you need another record chained, transfer to itself */

        If      Cond(chain_again) Then(TfrCtl Pgm(same_one))

 Trouble:
/* Error handling */

Dave Shaw
Spartan International, Inc.
Spartanburg, SC


> -----Original Message-----
> From: kitti.tha@bbl.co.th [mailto:kitti.tha@bbl.co.th]
> 
> Hi All
> 
> Please give me some hints of how to read file with index key 
> from CL program.
+---
| 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
+---