Re: Are level checks still useful?

This all works fine - it is the "old" way of doing things that was replaced by the simplicity of declaring a file from external descriptions.

The person who asked about this in the first place had a very narrow requirement. I don't recommend this practice in general, for the many reasons presented here and in the LinkedIn discussion..

But it is always good to remember what is possible with this language, seems to me.

Vern

On 11/8/2012 9:07 AM, j.beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx wrote:

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.