KDS bif

[Raul A Jager <raul@xxxxxxxxxx>]

I'm trying for the first time the KDS bif, and I get a misleading error
message (or at least missleading for me)
The message says thatt the number of key fields in the DS are more than
the file, but both are 2, or at least that is what I belive.


Here are the parts of the program that I think relevant, the file
definition, some calcs, and the fields found by the compiler.  Some
messages are in spanish, I just copied the compiler output

     5 Fsaldo     IF   E           K DISK    extfile('ED/SALDO')


*--------------------------------------------------------------------------------------------*
        *                               Nombre en RPG    Nombre
externo                              *
        * Nombre de archivo  . . . . :  SALDO
ED/SALDO                                    *
        * Formato(s) de registro . . :  SALD1
SALD1                                       *

*--------------------------------------------------------------------------------------------*

    19 d ksal            ds                  likerec(sald1: *key)


    28=ISALD1
*--------------------------------------------------------------------------------------------*

        * Formato de registro RPG  . :  SALD1
        * Formato externo  . . . . . :  SALD1 : ED/SALDO
*--------------------------------------------------------------------------------------------*

    29=I                             P    1    4
0NCTA                            N° Cuenta
    30=I                             P    5    7
0MESAL                           Mes del saldo
    31=I                             P    8   14
0SGUA                            Saldo
    32=I                             P   15   21
2SDOL                            Saldo Dólar
    33=I                             P   22   27
2SKAN                            Cantidad
    34=I                             P   28   34
2AJDOL                           Ajuste Dólar


    56      clear
sgua;

    57      ksal.mesal = 100 * anio +
10001;
    58      ksal.ncta =
ncta;

    59      chain %kds(ksal) saldo;            /// <<<<<<  KDS has 2
fields, so does "saldo"
    60      salant =
sgua;

    61      salmes(1) = salmes(1) +
sgua;
    62      for mes = 2 to
12;
    63        ksal.mesal = ( 100 * anio + 10000) +
mes;
    64        chain %kds(ksal :2) saldo;       ///  <<<<<<<  using the
second parameter didn't help
    65        if
%found(saldo);

    66          salmes(mes) = salmes(mes) - salant +
sgua;
    67          salant =
sgua;

    68
endif;

    69
endfor;

__________________________________________________________________

       * * * * *   F I N   D E   F U E N T E   * * * * *
 5722WDS V5R2M0  020719 RN        IBM ILE RPG
A/ACC52                  ABC        16/12/02 16:54:46        Pág.      5
       M e n s a j e s   d e   D i a g n ó s t i c o   A d i c i o n a
l e s
 ID msje Sv Número Sec.    Texto mensaje
*RNF7066 00      4 000400  Formato de registro CUE1 no utilizado para
entrada ni
                           salida.
*RNF7066 00      5 000500  Formato de registro SALD1 no utilizado para
entrada ni
                           salida.
*RNF7071 30     59 004700  El número de KFLD en KLIST es mayor que el
número de campos
                           de clave en el archivo.
*RNF7071 30     64 005200  El número de KFLD en KLIST es mayor que el
número de campos
                           de clave en el archivo.

 5722WDS V5R2M0  020719 RN        IBM ILE RPG
A/ACC52                  ABC        16/12/02 16:54:46        Pág.      6
             I n f o r m a c i ó n   d e   C a m p o s   d e   C l a v e
         Archivo        Interno     Externo
           Registro     nomb campo  nomb campo  Atributos
      1  CUENTA
           CUE1
                        NCUENT                  CHAR        4
      2  SALDO
           SALD1
                        NCTA                    PACK      7,0 SIGNED
                        MESAL                   PACK      5,0 SIGNED
 * *  F I N   D E   I N F O R M A C I O N   C A M P O S   D E   C L A V
E   * *

         KSAL              DS(7)                  19D     57M
58M     59
                                                  63M     64
           MESAL           P(5,0)                 19D     57      63
           NCTA            P(7,0)                 19D     58