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

["Dennis Lovelady" <dlovelady@xxxxxxxx>]

I cannot solve this problem, but perhaps I can help.

Your offsets appear to be off, or there are some fields missing, field
lengths wrong, etc.

I say this because the value 323824 is 0x4f0f0.  If you look at your data
dump, you will find that value within it, but not within your perception of
the data definition.  In fact, that's the last byte of  ENTRY-L3 and the
first 2 bytes of MYKEY.

I hope this helps.
Dennis






"Leif Svalgaard" <leif@leif.org>@midrange.com on 10/10/2002 12:47:59 PM

Please respond to mi400@midrange.com

Sent by:    mi400-admin@midrange.com


To:    "MI400 List" <MI400@midrange.com>
cc:
Subject:    [MI400] What is wrong with his list?


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

_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
or email: MI400-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.