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



OK, not sure what this tells me but I've determined that if no override is 
done prior to the call to the RPG program this process works fine.  The 
problem only happens when I override a file to use a different filename 
(same layouts) in a different library.  I get the feeling I'm missing 
something really simple here as this use to work and there have been no 
changes to either of these files and the data checks out okay.  I wrote a 
simple RPG to read all the records and dump to a report to see if there 
was bad data somewhere....not the case.

FYI, when the error occurs the message details list the MI program at 
instruction 43 for both the from and to programs.

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