Re: CPF4028 condition 1: SEQONLY(*YES) changed to SEQONLY(*NO)

On Tue, Jun 6, 2017 at 9:09 PM, CRPence <crpbottle@xxxxxxxxx> wrote:

Lots of hints, but lacking specifics to get a good picture; what for
example, is the PF? And is that PF the file being opened? What any VIEW
definitions are, referencing that PF, I expect [still would] play no role
in the msg CPF4028 RC1. How is the PF created [source for DDS and CRTPF,
or CREATE TABLE] and how is the PF modified [e.g. primary or unique
constraints added] after creation, and what is the DDS-JLF definition? Any
PF or VIEW triggers?

Thanks for your response, Chuck! I am finally able to devote more time to
this issue. I "minimized" the environment in a new test library so that it
has the physical file and one logical file that will be needed to
demonstrate the issue. I've included the RPG program that captures the
"maximum records in the block" from the INFDS.

When the REVDETLL1 logical file exists and I call the program, I get
CPF4028 RC1 "Open of member REVDETL was changed to SEQONLY(*NO)" and the
program reports "maximum records in the block" = 1.
When I delete the REVDETLL1 logical file and I call the program, I don't
get CPF4028 and the program reports "maximum records in the block" = 46.

There are no contraints or triggers. The PF has no key defined, and the LF
has non-unique keys. I'm baffled.

If so inclined, the test environment can be set up as follows:
CRTLIB TESTLIB
CRTSRCPF TESTLIB/QSRC
CRTPF TESTLIB/REVDETL SRCFILE(TESTLIB/QSRC)
CRTLF TESTLIB/REVDETLL1 SRCFILE(TESTLIB/QSRC)
CRTBNDRPG TESTLIB/TESTFF SRCFILE(TESTLIB/QSRC)

REVDETL (type PF):
A R RREVDETL
A RD_ORGID 4A
A RD_PVDID 20A
A RD_OWNID 15S 0
A RD_ACCT 15S 0
A RD_PATID 15S 0
A RD_CRGID 15S 0
A RD_ENTDAT 8P 0

REVDETLL1 (type LF):
A R RREVDETL PFILE(REVDETL)
A K RD_PATID
A K RD_CRGID

TESTFF (type RPGLE): (compiles on v7r1 with latest TRs and PTF groups)
**free
dcl-f REVDETL usage(*output) infds( rd_infds );
DCL-DS rd_infds;
BLK_RCDS INT(5) POS(186); // Max rcds in blk
END-DS;
DCL-s x int(5);
for x = 1 to 100;
write rrevdetl;
endfor;
Dsply ( 'Max Rcds in Block = ' + %char( BLK_RCDS ) );
*inLR = *on;