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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.