The MI program is handling using a temporary space as a work area.
It is dimension to hold 3000 entries of 75 bytes each + a 16 byte "header",
a total of 225016 bytes.

The SEARCH opcode is performing an array lookup to find the next unused
entry
and the code calculates it's offset in a slightly confusing way:
Rather than using
Current = (Entry_No - 1) * 75 + 16 the code is using the equivalent
Current = Entry_No * 75 - 59 (Because 75 - 16 = 59)

Can you confirm that the error occurs at instruction /43 and not
statement/line
no. 43?





> -----Original Message-----
> From: mi400-bounces@xxxxxxxxxxxx [mailto:mi400-bounces@xxxxxxxxxxxx]On
> Behalf Of swpenney@xxxxxxxxxx
> Sent: 2. september 2004 20:58
> To: MI Programming on the AS400 / iSeries
> Subject: RE: [MI400] HELP...teraspace errors using MI code
>
>
> Can you give some insight on what this code is doing, in particular the
> SEARCH statement?  I'm guessing the other statements are math calcs and
> then attempting to set a system pointer...??
>
>
>
>
> Gene_Gaunt@xxxxxxxxxxxxxxx
> Sent by: mi400-bounces@xxxxxxxxxxxx
> 09/02/2004 12:59 PM
> Please respond to
> MI Programming on the AS400 / iSeries <mi400@xxxxxxxxxxxx>
>
>
> To
> MI Programming on the AS400 / iSeries <mi400@xxxxxxxxxxxx>
> cc
>
> Subject
> RE: [MI400] HELP...teraspace errors using MI code
>
>
>
>
>
>
>
> Your error is in the SETSPPO in instruction '/43' (look under the INST
> column in your MI compiler listing for 0043, *not* the SEQ column for
> 00043).   Prior to '/43' you are trying to execute:
>
> SEARCH    CURRENT, WRKSPC-PTR, FREE, 1;
> MULT(S)    CURRENT, 75;
> SUBN(S)    CURRENT, 59;
> SETSPPO   RECORD-SPP, CURRENT;
>
> Math bug?   Value CURRENT probably exceeds runtime storage size?
>
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/mi400
> or email: MI400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mi400.
>
>
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/mi400
> or email: MI400-request@xxxxxxxxxxxx
> 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:
Replies:

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

This mailing list archive is Copyright 1997-2022 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.