Since finding out the work area is a dimension to hold 3000 entries 
(thanks to Njal !!), I found that the amount of data contained in the file 
would have brought it to 2999 thus trying to add more would have exceeded 
the limit.  So I've changed the value of WRKSPC-COUNT and WRKSPC-PTR to 
9999 to allow for extra records.  I've also changed the temporary work 
space size to 749941 to accommodate for this, but am still getting the 
MCH0601 only now it references Space offset X'00036F43' instead of Space 
offset X'00000000'.  Am I way off base here with the changes I've made or 
am I missing something else?

Shane




Njal Fisketjon <njal.fisketjon@xxxxxxxxxxxx> 
Sent by: mi400-bounces@xxxxxxxxxxxx
09/02/2004 07:21 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






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

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.