Re: Are level checks still useful?

Copy/paste from actual (working) program:

FDRRGIL IF F 33 12AIDISK USROPN EXTFILE(DRRNIL)

<snip>

D DRRKEY DS INZ QUALIFIED
D* Access path DRRGIL (Primary)
D FILNM 10A
D RFSEQ 2A

<snip>

DRRKEY.FILNM = FILNM_FND;
setll DRRKEY.FILNM DRRGIL;

dou %eof (DRRGIL);

reade DRRKEY.FILNM DRRGIL;
chain RECNM DRBGIL;

<snip>

enddo;


Joep Beckeringh

Scott Klement


On 11/8/2012 2:00 AM, j.beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx wrote:

Not true; if the actual record length is less than what you specified

in

the F-spec, you get message CPF4011 in the job log, warning you that

the

remainder of your buffer entry is filled with blanks.

I'm pretty sure I said if the record length is the same? But, maybe
that was in a different message.

Not true; it's perfectly possible to READE on partial keys, either

using a

single field or a data structure.

My experience is that if you define the key as, for example, "12AI" on
the F-spec, you have to provide a key that's 12-long to the opcodes like

READE. You can't simply provide a part of a key (say, the first 5
characters.)

Does your experience not match this?

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.