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
- 65525 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / naga srinivas.kattula
Why u need POSDBF? whether u are checking the record in
first file is in second file?
| Is This Answer Correct ? | 1 Yes | 1 No |
Answer / ravikumar
Hi,
we can read this file from end of file now.
but once the cursor reached at the end of file then we can not read it again.
DCLF FILE(FILE NAME) OPNID(E)
POSDBF OPNID(File Name) POSITION(*END)
READ: RCVF OPNID(E)
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
OPERATIONS
GOTO CMDLBL(READ)
END: ENDPGM
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / tthomas
Once the file reaches EOF the file is close.POSDBF wont
work in this case. To be clear no file operations can be
done on the file.
Upto 5 files can be declared in V5R3 with different OPEN
ID's.So u can declare the same file 5 times if u want and
perform different operations until the file reaches EOF.
Hope this info will be sufficient.
| Is This Answer Correct ? | 4 Yes | 5 No |
In V5R4M0 , we can declare 5 files in CL-ILE pgm
DCLF (FILE1) OPENID(OP1_)
DCLF (FILE2) OPENID(OP2_)
DCLF (FILE3) OPENID(OP3_)
DCLF (FILE4) OPENID(OP4_)
DCLF (FILE5) OPENID(OP5_)
DCL &LGL *LGL VALUE('1')
DOWHILE (&LGL = '1')
RCVF (RCDFMT_FILE1)
MONMSG MSGID(CPF0864) EXEC(LEAVE)
OPERATIONS
ENDDO
SIMILAR TO ALL 4 FILES....
| Is This Answer Correct ? | 4 Yes | 5 No |
Answer / jp
Answer no. #11 is correct. Thanks Abhishek. NOthing else
works.
| Is This Answer Correct ? | 0 Yes | 1 No |
Answer / abhishek bajpai
Hi All,
Please read the question first. It asks the method to re-
position/re-read the file again after it reached EOF in a
CL. Please dont post answers to prevent it from reaching
EOF :).
Also, u can use a single keyword CLOSE for the same as
described above by me.
Thanks
| Is This Answer Correct ? | 0 Yes | 1 No |
Answer / siddhartha
Use POSDBF OPNID(File Name) POSITION(*START) to position
the cursor to the beginning of the file.
| Is This Answer Correct ? | 11 Yes | 20 No |
Answer / skma
I think it can be done by using OVRDBF
Like
OVRDBF FILE(FILE1) POSITION(*START)
Thanks
| Is This Answer Correct ? | 1 Yes | 12 No |
Whether a module can consists of many procedures or it can consist of subprocedures having a main procedure?If it is possible that it can contain many individual procedures than can we have different name for complete module and how do we call this module in main modul?
Q:Hi all,i want accurate answer with code using in built functions.please sent me code as soon as posible. I have program nmed PGM1 which '' RETRIEVE Current production date''should correctly default the production date for the user who is issuing raw materials to the manufacturing.The production date can be different from the celendra date. However, the program does not make the correct adjustment for all manufacturing plants. there is a parameter which determines the production start time e.g. 07:00 if the system time precedes this,the program subtracts one from the celendra day.This work fine when the celendar day starts after production day as it does in England,the system should be adding one to the celendar day during the overlap. unfortunately the program was desined to assumed the celendar day always starts before the production day. Change required in the program: Change the PROGRAM PGM1 to use the new parrameter to decide whether to add or subtract 1 from the celendar day when determining the production date.
what is overlay? how can we pass parameters in cl or rpg programing? how can we get data area value in cl or rpg programming?
How to define data area in RPG program? In which scenario multi occurrence DS is use in AS400?
What is the purpose of Panel Groups?
I am Submitting one job in batch that job calls three progams(PGMA, PGMB, PGMC). PGMB should be called after sucessfully completion of PGMA as like for PGMC also. So Can you please tell me how can we do that (without using data area)
What is ment by record level identifier?
write an RPG program to calculate the marks of 5 students (A,B, C, D, E)in 3 different subjects (eng, math, sci) an display on the screen
suppose i i am changing / updating record of subfile and i want to change the record in reverse order . means i want to change the bottom record first and so on through readc . how i do it please any one explain .
1.CA(command Atention key)& CF(command Function key) difference with example?Please can any body tell me in real time exp? 2.Can any body tell me some mandatery function keys using while creating any screen with use of SDA-FUNCTION kEYS?
what r drawbacks of OPM? Why do we go for ILE RPG?
how do I do concatenation in rpg iv, like I do in cl?
RPG400 
