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



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


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.