Re: Are level checks still useful?

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

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.