Interested to Buy Any Domain ? << Click Here >> for more details...
How I can reread the physical file in CL program once the
end of file reached in same CL program.
- 20 Answers
- 64685 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
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
| Is This Answer Correct ? | 26 Yes | 9 No |
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
| Is This Answer Correct ? | 15 Yes | 5 No |
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.
| Is This Answer Correct ? | 14 Yes | 6 No |
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
| Is This Answer Correct ? | 1 Yes | 0 No |
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.
| Is This Answer Correct ? | 2 Yes | 1 No |
Answer / sravs
simply call that progrm by using IF condition based on
increment value of one varibale it will again read from
first
| Is This Answer Correct ? | 1 Yes | 1 No |
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
| Is This Answer Correct ? | 0 Yes | 0 No |
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+
| Is This Answer Correct ? | 0 Yes | 0 No |
To check the locks , we use cmd WRKOBJLCK , but how we confirm whether it's objeck lock / member lock. I confused with the Lock type and Status values...Can any body please tell me ...
Assume my file has 100 records and I want to see only first 10 records. Is this possible through lf?
How to declare the more than one file in cl/400.
3 members in a databasefile .how to read records from all the members?????????
How to print Superscript / Subscript from RPG400
Difference between creating a report using Printer file and WRKQRY(Query Report) ?
1.How can you search an entire source file for a particular field name? 2.How can you find the differences between two versions of the source for the same program? 3.What is a hidden field as it relates to a sub file? 4.How do you display a sub file that has no records in the sub file?
A rpg or clp command to find if the file field is defined as a character or numeric field.
When we have a file with Duplicate records and I want to read the unique record from the file. For example a file containing Emp Name as 'Ram' and there are 3 entries of it. So how to read a unique record from File?
Difference between RESET and CLEAR
1.what are the ARITHMETIC EXPRESSIONS IN CL PGM? 2.How to PASSING PARAMETER TO CL PGM?
how do u find whether a record is locked or not??/
RPG400 
