RE: [MI400] Help !! Old (and I mean Old) MI Code compiles but won't run

["Njal Fisketjon" <n.f@xxxxxxx>]

> -----Original Message-----
> From: mi400-admin@midrange.com [mailto:mi400-admin@midrange.com]On
> Behalf Of David Colford
> Sent: 15. august 2001 18:56
> To: mi400@midrange.com
> Subject: [MI400] Help !! Old (and I mean Old) MI Code compiles but won't
> run
> 
> 
> Hi
> 
> Here's the situation......
> 
> I have a piece of old MI vendor code (see below)
> 
> Thing to note about this are
> 1. It has no semicolons (I had to add them)
> 2. When I add the semicolons (as I have donw with other MI code and it
> works ) it compiles but doesn't run I get MCH0601
> 
>      Space offset X'4040A24F' or teraspace offset X'0000000000000000' is
>       outside current limit for object PATHIX16S2DCOLFORD  283123.
> 
>      Function check. MCH0601 unmonitored by MDOC at statement *N,
> instruction
>      X'0016'.
> 
> 3. This program is called via a link to a special file and is used to put
> records on a screen. It was working until we hit 1700 lines of help text.
> My intent here is just toi increase the size of 1700 to say 5000 and leave
> it for another 10 years
> 4. The original compiler for this is the 'PUMPKIN   V1R1M0' version... Is
> this the problem? Anyone have a copy of this
> 
> Can anyone see anything wrong here ?? Do you need more info
> 
> Thanks in advance
> Dave
> 


A quick look narrows it down to these statements:

> ADDRECORD:
>            CMPNV(B)     WRKSPC-COUNT,1700/EQ(EOF);

> /* NEW RECORD */
>            CMPNV(B)     WRKSPC-COUNT,1700/EQ(END02); /* SPACE FULL */

> /* NEW RECORD */
>            CMPNV(B)     WRKSPC-COUNT,1700/EQ(END22); /* SPACE FULL */


> DCL DD     WRKSPC-PTR(1700) CHAR(8) DEF(WRKSPC-DUMMY) AEO(75);

> DCL DD     *            BIN(4)   DEF(SPCTMPL) POS(49) INIT(127516);

1700 x 75 = 127500

You'll have to try to change the 4 times 1700 to your required value and
the init value to a value of the new value x 75 + 16

HTH