× 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 meant: The MI program is using a temporary space as a work area.



> -----Original Message-----
> From: mi400-bounces@xxxxxxxxxxxx [mailto:mi400-bounces@xxxxxxxxxxxx]On
> Behalf Of Njal Fisketjon
> Sent: 2. september 2004 23:51
> To: MI Programming on the AS400 / iSeries
> Subject: RE: [MI400] HELP...teraspace errors using MI code
> 
> 
> 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.
> >
> >
> 
> 
> _______________________________________________
> 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-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.