So I have a COBOL ILE pgm that we just modified to call an existing rpg pgm that we have used for many years. It is simply a pgm to build a subfile for selection in a popup window for the user.
When the rpg is called from the CBLLE, we are getting the following error.
Get option not valid for member SRVCDD.
I/O error CPF5184 was detected in file SRVCDD.
Function check. RNX1299 unmonitored by SRVLISTR at statement 0000082700,
instruction X'0000'.
I/O error CPF5184 was detected in file SRVCDD (C G D F).
I/O error CPF5184 was detected in file SRVCDD (C G D F).
Important things to know.
- SRVCDD usropn
- file is getting opened
- pgm is successfully reading 7 records from SRVCDD - on the 7th record it does a "look ahead" routine and reads an 8th record. Then returns to normal processing and does a READP to get back to where it was. This is where it blows up.
From IBM site -
>>Cannot complete READ PRIOR because records are left in block from READ NEXT, or vice versa. CPF5184.
>>Close the file, then open it again.
Of course closing file and reopening at this point in the processing is not practical.
What is going on here? what is the solution?
Important to know, when this rpg pgm is run from command line, it works fine.
call stack at time of error...
------Activation Group------ Control
Program Name Number Boundary
LSMSCMNUST LSAMSP3X *DFTACTGRP 0000000000000002 No
MAIN LSAMSP3X *DFTACTGRP 0000000000000002 No
NEWLNS LSAMSR3X *DFTACTGRP 0000000000000002 No
NLS901 LSAMSR3X *DFTACTGRP 0000000000000002 No
NLS901C LSAMSR3X *DFTACTGRP 0000000000000002 No
NLS008C LSAMSD3X *DFTACTGRP 0000000000000002 Yes
NLS008C LSAMSD3X *DFTACTGRP 0000000000000002 No
SRVLISTR LSAMSD3X *DFTACTGRP 0000000000000002 No
SRVLISTR LSAMSD3X *DFTACTGRP 0000000000000002 No
QRNXIE QSYS *DFTACTGRP 0000000000000002 No
file... (also in *DFTACTGRP)
Member/ Record File I/O ----Open--- Relative
File Library Device Format Type Count Opt Shr-Nbr Record
SRVCDD LDATAD3X SRVCDD RSRVCDD PHY 8 I YES 2 4986
When the rpg is called from the CBLLE, we are getting the following error.
Get option not valid for member SRVCDD.
I/O error CPF5184 was detected in file SRVCDD.
Function check. RNX1299 unmonitored by SRVLISTR at statement 0000082700,
instruction X'0000'.
I/O error CPF5184 was detected in file SRVCDD (C G D F).
I/O error CPF5184 was detected in file SRVCDD (C G D F).
Important things to know.
- SRVCDD usropn
- file is getting opened
- pgm is successfully reading 7 records from SRVCDD - on the 7th record it does a "look ahead" routine and reads an 8th record. Then returns to normal processing and does a READP to get back to where it was. This is where it blows up.
From IBM site -
>>Cannot complete READ PRIOR because records are left in block from READ NEXT, or vice versa. CPF5184.
>>Close the file, then open it again.
Of course closing file and reopening at this point in the processing is not practical.
What is going on here? what is the solution?
Important to know, when this rpg pgm is run from command line, it works fine.
call stack at time of error...
------Activation Group------ Control
Program Name Number Boundary
LSMSCMNUST LSAMSP3X *DFTACTGRP 0000000000000002 No
MAIN LSAMSP3X *DFTACTGRP 0000000000000002 No
NEWLNS LSAMSR3X *DFTACTGRP 0000000000000002 No
NLS901 LSAMSR3X *DFTACTGRP 0000000000000002 No
NLS901C LSAMSR3X *DFTACTGRP 0000000000000002 No
NLS008C LSAMSD3X *DFTACTGRP 0000000000000002 Yes
NLS008C LSAMSD3X *DFTACTGRP 0000000000000002 No
SRVLISTR LSAMSD3X *DFTACTGRP 0000000000000002 No
SRVLISTR LSAMSD3X *DFTACTGRP 0000000000000002 No
QRNXIE QSYS *DFTACTGRP 0000000000000002 No
file... (also in *DFTACTGRP)
Member/ Record File I/O ----Open--- Relative
File Library Device Format Type Count Opt Shr-Nbr Record
SRVCDD LDATAD3X SRVCDD RSRVCDD PHY 8 I YES 2 4986
Comment