[MI400] What is wrong with his list?

["Leif Svalgaard" <leif@xxxxxxxx>]

Blair, here you get a second chance.
I'm stumped on what's wrong with his option list.
He is trying to read a keyed file in Mi using the SEPT calls:

----- Original Message -----
From: áÎÄÒÅÊ ûÅÌÅÓÔÏ× <andreyshe@mail.ru>
To: <leif@leif.org>
Sent: Thursday, October 10, 2002 11:32 AM
Subject: It's about LF


> Good evening, Leif.
>
> I  ... during two days trying all combinations.
> Last Variant in debug:
>
> The control list for keyed access is:
> X'01' + bin(2)length + "format name"  +
> X'08' + bin(2)length + bin(4)number_of_keyed_fields  +
> X'07' + bin(2)length + key_fields  + X'FF'
> My Variable LIST-KEYS = CONTROL-LIST
>
> DCL DD  LIST-KEYS CHAR(28);
>  DCL DD  ENTRY-ID1    CHAR(1) DEF(LIST-KEYS)  POS(1)  INIT(X'01');
>  DCL DD  ENTRY-L1     BIN(2)  DEF(LIST-KEYS)  POS(2)  INIT(10);
>  DCL DD  RCDFMT       CHAR(10) DEF(LIST-KEYS) POS(4)  INIT('EMP_REC   ');
>  DCL DD  ENTRY-ID2    CHAR(1) DEF(LIST-KEYS)  POS(14)  INIT(X'08');
>  DCL DD  ENTRY-L2     BIN(2)  DEF(LIST-KEYS)  POS(15)  INIT(4);
>  DCL DD  NKEYS        BIN(4)  DEF(LIST-KEYS)  POS(17)  INIT(1);
>  DCL DD  ENTRY-ID3    CHAR(1) DEF(LIST-KEYS)  POS(21)  INIT(X'07');
>  DCL DD  ENTRY-L3     BIN(2)  DEF(LIST-KEYS)  POS(22)  INIT(4);
>  DCL DD  MYKEY        CHAR(4) DEF(LIST-KEYS)  POS(24)  INIT("0002");
>  DCL DD  END-LIST     CHAR(1) DEF(LIST-KEYS)  POS(28) INIT(X'FF');
>
> IN DEBUG
> Variable  . . . . . . . . . . . . . . . : LIST-KEYS
> 01000AC5D4D76DD9C5C3404040080004
> 00000001070004F0F0F0F2FF
> You can see that all right.
>
> Why I got result: 323824 key fields not valid?
> Is structure control-list not valid which you send me ?
> Please help me.
> Sincerely, Andrew
>
>