Re: Help !! Old (and I mean Old) MI Code compiles but won't run -- MI400

David,

Your problem is that you did not specify a zero-valued
template extension offset (since you don't have any extension).
I presume that the original program was compiled with x'00'
as initial value, and you now use x'40'. So, add
DCL DD * BIN(4) DEF(SPCTMPL) POS(61) INIT(0);
just before DCL SYSPTR CTX-SYP DEF(SPCTMPL) POS(65);

HTH
Leif

----- Original Message -----
From: Leif Svalgaard <leif@leif.org>
To: <mi400@midrange.com>
Sent: Wednesday, August 15, 2001 1:31 PM
Subject: Re: [MI400] Help !! Old (and I mean Old) MI Code compiles but won't
run


> David,
> I have re-created your problem.
> Should soon have the solution.
> Leif
>
> ----- Original Message -----
> From: David Colford <dcolford@pathix.com>
> To: <mi400@midrange.com>
> Sent: Wednesday, August 15, 2001 1:28 PM
> Subject: Re: [MI400] Help !! Old (and I mean Old) MI Code compiles but
won't
> run
>
>
> >
> > yes it appears to be. Here are a few lines from the compile listing
> >
> > 00042  0015 00009A  10B2 005E 0013                CPYBLA
> > SPCTMPL-NAME,XSPCNAME
> > 00043  0016 0000A0  0072 004E 005A                CRTS
> > WRKSPC-SYP,SPCTMPL-SPP
> > 00044  0017 0000A6  0022 004F 004E                SETSPPFP
> > WRKSPC-SPP,WRKSPC-SYP
> >
> >
> >
> >
> >                     "Leif
> >                     Svalgaard"            To:     <mi400@midrange.com>
> >                     <leif@leif.org        cc:
> >                     >                     Subject:     Re: [MI400] Help
!!
> Old (and I mean
> >                     Sent by:              Old) MI Code compiles but won't
> run
> >                     mi400-admin@mi
> >                     drange.com
> >
> >
> >                     08/15/2001
> >                     03:31 PM
> >                     Please respond
> >                     to mi400
> >
> >
> >
> >
> >
> >
> > From: Steve Richter <srichter@AutoCoder.com>
> >
> > > what stmt is instruction x'0016' ?  is it the CRTS  instruction?
> >  >           CRTS         WRKSPC-SYP,SPCTMPL-SPP;
> >
> >
> > yes, it is. No need for listing.
> >
> >
> > _______________________________________________
> > This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> > To post a message email: MI400@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
> > or email: MI400-request@midrange.com
> >
> >
> >
> >
> >
> > _______________________________________________
> > This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> > To post a message email: MI400@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
> > or email: MI400-request@midrange.com
> >
>
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
> or email: MI400-request@midrange.com
>