How to read a PF in reverse(from last rec to first) using CL?

Answer Posted / harkesh

IN THIS EXAMPLE I M USING EMPFILE FOR READING IN REVERSE
ORDER.

PGM
DCLF FILE(EMPFILE)
OVRDBF FILE(EMPFILE) SHARE(*YES)
OPNQRYF FILE((EMPFILE)) KEYFLD((EMPNO *DESCEND))

READF: RCVF RCDFMT(MPFILR)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
GOTO READF



END:
ENDPGM

Is This Answer Correct ?    27 Yes 5 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Suppose I have a pf,it contains 5 members,how to access particular member data from logical file ?and what is the use of member in pf?

642


In a CL Program after executing a SQL SP how to receive a Output value from the SP. Just to make it clear I am sending 2 input and 1 output parameter to the SQL Stored Procedure. Now while receiving it output parm it is failing.

2136


How to change the batch job to interactive job?

586


Last statement of any rpg program is lr?

624


What is the interactive job?

586






What is the interactive job? What is the batch job?

594


How to find the list of source physical files in a library?

628


How many maximum record format a logical file have?

594


What is the interactive job? What is the batch job? How to change the batch job to interactive job?

634


What is FORMAT keyword and its use?

216


How to read a pf in reverse(from last record to first) using cl?

611


What is the purpose of the chain and setll and setgt?

603


I have a pf, it contains 5 members, how to access particular member data from logical file?

533


Where the QTEMP library will get created? if the the answer is QSYS, then howcome more than one job can create same library name(QTEMP) in QSYS? what is the uniqueness of QTEMP? For example, run the below command in different workstation WRKOBJ QSYS/QTEMP And take 8 in the option to check the description. both will have different info. so where(which LIB) exactly the QTEMP is stored?

7461


How to update physical file using logical file with example?

598