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
- 64688 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 |
Suppose my file has 10 fields and I want to make the 2nd field zeros in all records. And assume I have millions of records and I dont want to read each record and update the desired field with 0. Any other way to do this in one step operation?
can anyone say,what is the use of operation extended H/N/P?
What would be the result on writing a data record to a PF file using the "WRITE" opcode after the SETON *ON *INLR statment?
Can we create 300 logical files based on a single physical file using the CRTLF command only once?.
1.How to load Records of a Physical file(PF) in the reverse order, in CL program?
In how many ways a session/device error occurs,,, and what is the remedy for it?
can we use cl programming to update or delete physical files
What does Implicit Open means with respect to a file ? What about the Explicit Open?..what are the major differences between these two?
I want my simple Green screen should refersh every 1 min ,How can I do it..? Please share the logic
Can someone tell me tell me what is meant by message wait...?
Please help me, I have created window subfile,I have created Footer with same lengh and postion of window SFL. When I call the pgm, first is shows only Footer and then it shows subfile records.This time Footer is not showsing ..plz hel me how can i do it...? Sameple DDS and RPG: A R WIN1 SFL A*%%TS SD 20090130 165346 MUNSHIJ REL-V4R2M0 5769- PW1 A FLD001 1Y 0B 4 3EDTCDE (Z) A ATFILE R O 4 7REFFLD (QWHFDBAS/ATFILE LIB/LIBF- A ILE) A R WINCTL SFLCTL (WIN1) A*%%TS SD 20090202 123459 MUNSHIJ REL-V4R2M0 5769- PW1 A ALTNAME ('y') A SFLSIZ (0004) A SFLPAG (0004) A WINDOW (FOOTER) A ROLLUP (27) A ROLLDOWN (28) A CF12 (12 'Cancel') A 50 SFLDSP A N51 SFLDSPCTL A 51 SFLCLR A 1 2'Select Option,Press enter' A 2 3'1= Select' A R FOOTER A* A WINDOW(8 31 9 43) A 8 4'F12 = Cancel' A R DUMMY ASSUME A 24 10' ' in RPG: Dow *IN12 = *Off Write Footer Fxfmt WInCTL
i would like to know under what circumstance the object will get locked on AS400.
RPG400 
