Re: [MI400] What is wrong with his list?

[Mlpolutta@xxxxxxx]

Only thing I see that is _possibly_ "off" is the use of the double-quote 
character in the MYKEY init string.

Michael

> 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
> >
> >
>