RE: [MI400] HELP...teraspace errors using MI code

[Njal Fisketjon <njal.fisketjon@xxxxxxxxxxxx>]

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