Re: Are level checks still useful?

[j.beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx]

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.