Read a file in 2 times in CLLE using POSDBF

620 pts.
Tags:
AS/400
CLLE
POSDBF
I want to read a file 2 times in CLLE.When I'm using POSDBF to read a file in 2nd time, I got the error. Please look into the below code and help me guys.
PGM
DCLF       FILE(CHOW12011/EXAM) OPNID(A)
READ:       RCVF       RCDFMT(EXAMR) OPNID(A)
MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(R))
SNDUSRMSG  MSG(&A_name)
GOTO       CMDLBL(READ)
R:         POSDBF     OPNID(A) POSITION(*START)
RCVF       RCDFMT(EXAMR) OPNID(A)
SNDUSRMSG  MSG(&A_name)
ENDPGM
Error:End of file detected for file EXAM in CHOW12011. 1100 - POSDBF OPNID(A) POSITION(*START) No file open with OPNID(A).
1

Answer Wiki

Thanks. We'll let you know when a new response is added.

Hi Guys,

Plz ignore the above question,  i got the result.

Discuss This Question:  

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following

Share this item with your network: