Answer / jim

Specify two DCLF for the same file with 2 different
openID's sayID1 and ID2
Tjen do RCVF on the file with open ID ID1 do the
processing, upon EOF then issue a 2nd RCVF for open ID2

the 1st record will be available.
Here's an example

DCLF FILE(FILE1) OPNID(ID1)
DCLF FILE(FILE2) OPNID(ID2)

RCVF: RCVF RCDFMT(FILE1) OPNID(ID1)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(XYZ))



GOTO RCVF

XYZ:
RCVF RCDFMT(FILE2) OPNID(ID2)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))

GOTO XYZ

END:
ENDPGM

Answer / abhishek bajpai

hi Shobhit,

POSDBF and OVRDBF can only position the file at the desired
location if the file hasn't reached EOF yet. If the file is
already at EOF, then thesekeywords won't help you in
positioning the cursor.
However, there is one keyword recently added to the CL
commands and that is 'CLOSE'. After the file is at EOF
mark, you can close it by using this keyword and the next
RCVF keyword will retrieve the first record again, or u can
position the cursor anywhere using POSDBF or OVRDBF.

Thanks

Answer / sri

Hi Jim can we declare two files in a CL program?

Answer / shobhit

Have you tried this option..
This option will not work as once the end of file reached
in CL program can not be reseted at beginning.

The Only way is come out of the cl program and call it
again.

Answer / naga srinivas

WE can't read the file again once you reached end of file.
If you want to use the POSDBF command before reaching the
end of file you make to position to starting.Use RTVMBRD, we
get the number of records in the file.Count the number of
records retrieved.When the count becomes equal to number of
records in PF..use POSDBF and make the cursor position to
intial record

Answer / sekhar

Answer 11 is correct when the version of your iSeries is V6 and above. For V5R* , I guess CLOSE key word is not there.
For V5R4 systems... you can approach below solution.

Declare the same file two times with different OPENIDs

Before first RCVF , do OPNDBF and read the file. After reaching EOF do CLOF

Then do OPNDBF for second OPNID and do the same again.

Answer / parkpark

NOTHING WORKS~!

Answer / sravs

simply call that progrm by using IF condition based on
increment value of one varibale it will again read from
first

Answer / arvind

Read file thru a pgm and then call d same program and u can read d file.
i try it refine me if m wrong

Answer / naga srinivas.kattula

Ovrdbf file name with share

rtvmbrd to get the number of recoeds of file

Pos: Posdbf with positon *first

RCVf file name

count the loops

If no of records of file is equal to no of loops

goto POS

enddo

count+

A pgm subroutine calling child subroutine, that child subroutine again calling parent subroutine, u have 1000 lines of code, with out debugging , how can u find that error??? Is there any command to find errors in pgm???

3 Answers   HSBC,

How to add 2 new fields in a file? How many ways are there in as400?

2 Answers  

How can we search particular records from the database file in RPG. For example, there are 100 records in the file.i need to retrieve all the records matching/equal to the particular 'NAME' field. How can we do the above using SEARCH criteria other than using the IF cond?

4 Answers   CTS,

CAN WE READ RECORDS WITHOUT USING SETLL,READ,CHAIN IN RPG?

6 Answers   Satyam,

ESCAPE message sent by child program can be handled by parent program using which keyword?

2 Answers  

How can we call CL program to RPG? How many number of parameter we can pass

2 Answers   TCS,

1..Write an sql query to find the employee name who is having 2 phone numebr? 2.Write an sql query to the the second highest salary of the employee?

4 Answers  

i want to perform uniqness on db file bt my db file nt hving key by useing rpgle.

3 Answers   HSBC,

Thanks gagan for your answer,i'm new to as400,i don't know embedded sql in rpg.can you send me the coding for the below mentioned question in embedded sql rpg. how to retrieve particular field records from a physical file,say i have a physical file called 'employee' in it i have to retrieve the records of a field 'admin' present in pf 'employee' using rpg,but i should not use logical file or openquery file.

2 Answers   iGate,

Can we have a Physical file without any member ? Please let me know

12 Answers  

how to find whether a date format is valid or not in RPG400 not in RPGILE.Can you please write the coding for this sir,i'm new to AS400.Please help.

1 Answers  

Program to read marks of 10 students for 4 subjects and compute and display total marks and status of each student in rpg

0 Answers