v5r2 enhancements for Keyed I/O

["Svir, Stacy A. (CC-IS)" <SASvir@xxxxxxxxxxxxxxxx>]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
> I am trying to use the v5r2 enhancements for Keyed I/O.
>
>From what I have read I should be able to use the file name or the record
format name on the I/O (chain,read....)
When using a data structure to replace a klist, I get a compile error if I
use the file name.
Using the record format name when using a data structure works.

I was just wondering if this is correct or if I might be missing something.


Compile error:
> *RNF7071 30     52 001300  Number of KFLDs in KLIST is greater than number
> of key fields in file.
>
> If I replace the line:
>    Chain %KDS(dsDlrInv) Arfile01L;  // use the file name
>
> with
>    Chain %KDS(dsDlrInv) Rarfile;    // use the record format
> it compiles and works.
>
> The Chain using the fields works either using the file or the record
> format name.
>
>
> // Sample code.  Arfile01L is a logical by Dealer # and Invoice #.  Record
> format is: Rarfile
>
> FArfile01L IF   E           K Disk
>
> D dsDlrInv      E DS                  ExtName(Arfile01L:*Key)
> D                                     Prefix(k)
>
> D itworked        S               N
>
>  /free
>
>   kDlrno = 99980;
>   kInvno = 1144355;
>
>   Chain %KDS(dsDlrInv) Arfile01L;
>   If %Found(Arfile01L);
>      itworked = *On;
>   Else;
>      itworked = *Off;
>   Endif;
>
>   Chain (kDlrno:kInvno) Arfile01L;
>   If %Found(Arfile01l);
>      itworked = *On;
>   Else;
>      itworked = *Off;
>   Endif;
>
>   *INLR = *ON;
>
>  /end-free
>
Thanks in advance
Stacy