|
midrange.com
Leif and Steve you guys are amazing.... It is working again + my fix
Thanks a few million
Dave
"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
04:28 PM
Please respond
to 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
>
_______________________________________________
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
