Re: how to read a physical file in reverse order using cl program in as/400

i tried writing following code :-

PGM
DCLF FILE(JKJK1/ID6) OPNID(A)
DCLF FILE(JKJK1/DID6) OPNID(B)
DCL VAR(&RRN) TYPE(*DEC) LEN(10 0)
top: RTVMBRD FILE(JKJK1/ID6) NBRCURRCD(&RRN)
OVRDBF FILE(ID6) POSITION(*RRN &RRN)
IF COND(&RRN *NE 0) THEN(GOTO CMDLBL(READ))
READ: RCVF OPNID(A)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
SNDRCVF DEV(*FILE) RCDFMT(REC4) OPNID(B)
CHGVAR VAR(&RRN) VALUE(&RRN-1)
GOTO CMDLBL(top)
END: ENDPGM

but its not working means not showing records from physical file id6 to
displayfile did6.Any corrections ??
thanks

thanks

On Sun, Sep 9, 2012 at 9:19 PM, Rishi Seth <rishiseth99@xxxxxxxxx> wrote:

Hi,

If i don't want to use logical file then how can i write my cl program?
could you please send me any real example with program code to read data
from pf in reverse order using cl/400 program?

Thanks



On Sun, Sep 9, 2012 at 7:33 PM, Debbi Rahl <drahl@xxxxxxxx> wrote:

Create a logical using "descending".
Look at a manual

Sent by magic!


On Sep 9, 2012, at 3:10 AM, Rishi Seth <rishiseth99@xxxxxxxxx> wrote:

> Hi,

I want to read a physical file in reverse order using cl program how

can it

be done any program code with example would really be much helpful to
understand the logic.


Thanks

> --

This is the Consulting on the iSeries / AS400 (Consult400) mailing list
To post a message email: Consult400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/consult400
or email: Consult400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/consult400.

--
This is the Consulting on the iSeries / AS400 (Consult400) mailing list
To post a message email: Consult400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/consult400
or email: Consult400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/consult400.