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
- 64713 Views
- IBM, I also Faced
- E-Mail Answers
Answer Posted / sekhar
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 |
Post New Answer View All Answers
Set on command is used for closed all opened files , initialize var and release resource , return cmd is used for return to calling program but my req. Is dnt close opened files and resource must released while doing transactions , how can i do this...?
how do I play {insert rpg system here}?
What is the difference between iter and do?
is this a rpg channel?
How can we override a file during runtime in rpg?
do you use message subfiles? What are the necessary keywords required coding a message subfile?
explain sflclr, sflend, sfldlt, and sflcsrrrn?
how do I declare a table or array in rpg iv?
When it is desirable to describe files Internally?
Suppose we have one database file and it is used by 5 programs and in 3 program we have to add some records in datbase file s what is the impact on other program?
which program rpg or cl is efficent to update a transaction onto a database file and why ?
What is the purpose of record level identifier?
how can you display specific subfile page on the screen in unequal subfile?
Please tell me how to read the records from a file with load an array of size with error conditions(The logic answer for this question is ARR is array of 99 elements Z-ADD 0 IDX *LOVAL SETLL FILE READ FILE 99 *IN99 DOWEQ *OFF IDX ANDLT 99 ADD 1 IDX MOVE FIELD ARR,IDX READ FILE 99 ENDDO).So,Please give me the complete of this code.
can you debug ile rpg program using isdb?
