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

["Mark S. Waterbury" <mark.s.waterbury@xxxxxxx>]

Check your system value QALWUSRDMN -- perhaps the library name where it
"fails" is NOT in this list, but the other library name you tried is?

    DSPSYSVAL QALWUSRDMN

----- Original Message -----
> From: <swpenney@xxxxxxxxxx>
> To: "MI Programming on the AS400 / iSeries" <mi400@xxxxxxxxxxxx>
> Sent: Thursday, September 09, 2004 12:06 PM
> Subject: RE: [MI400] HELP...teraspace errors using MI code
>

> Ok, perhaps this is not an MI problem after all.  I've found that if I
> rename the library containing the file the program is updating to a
> different name, the process works fine.  Rename it back to original and it
> fails.  Any suggestions..??
>
>
>
>
> Njal Fisketjon <njal.fisketjon@xxxxxxxxxxxx>
> Sent by: mi400-bounces@xxxxxxxxxxxx
> 09/02/2004 07:36 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
>
>
>
>
>
>
> 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.
> >
> >
>
> _______________________________________________
> 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.
>