× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.