Comments on: Reading physical file in reverse order by rpg/400 program

By: tomliotta

tomliotta — Sat, 31 Dec 2011 12:14:11 +0000

@Phil:

We know it often doesn’t really matter. But it’s disturbing how often it actually does.

Tom

By: philpl1jb

philpl1jb — Sat, 31 Dec 2011 07:19:45 +0000

Thanks Tom
The code samples shown responding to this question pass muster for RPG IV but are not RPG/400.
Phil

By: tomliotta

tomliotta — Sat, 31 Dec 2011 06:54:06 +0000

…by rpg/400 program

And does it have to be RPG/400? Why not use RPG from this century?

Tom

By: tomliotta

tomliotta — Sat, 31 Dec 2011 06:51:09 +0000

…read a physical file in reverse order by rpg/400 program,condition is there is not any key field…

If there is no key, how are you defining “reverse order”? Do you want them in the reverse order that records were added to the file? Do you want them in reverse order based on relative record number? Do you want to read them in reverse order of the values of fields in the file? (They don’t have to be “keys” to do that.) Or do you have a different definition? Each way can have a different method.

Tom

By: philpl1jb

philpl1jb — Fri, 30 Dec 2011 09:35:44 +0000

Yes, %eof(EMP) <- file name not record format name

By: pdsathishkumar

pdsathishkumar — Fri, 30 Dec 2011 09:02:28 +0000

your correct Mr. Phil, but i got error on the %eof line

error is -> Parameter EMPLOYEE is not valid for built-in function %EOF.

By: philpl1jb

philpl1jb — Thu, 29 Dec 2011 11:18:15 +0000

Logic issue
If there are 8 records empno is displayed 9 times
Why?
Also, better to code %eof(employee)
Why?

Phil

By: pdsathishkumar

pdsathishkumar — Thu, 29 Dec 2011 07:13:34 +0000

just simple coding for you.. follow this..

F emp if e disk -> declare my PF
C *hival setll employee -> set high value in pf record
C dow not %eof
C readp employee
C empno dsply
C enddo
C eval *inlr = *on