Re: COBOL for RPG programmers: How do you shut down a program?

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

My pleasure kind sir. I only wish my memory was as good as it used to be!


On 2013-07-03, at 4:53 PM, MichaelQuigley@xxxxxxxxxx wrote:

> Jon,
>
> Thanks!  You always amaze me--especially when I consider you don't do much 
> COBOL anymore.  you're help is very much appreciated.
>
> Michael Quigley
> Computer Services
> The Way International
> www.TheWay.org
>
> cobol400-l-bounces@xxxxxxxxxxxx wrote on 07/03/2013 01:00:10 PM:
>
> > ----- Message from Jon Paris <jon.paris@xxxxxxxxxxxxxx> on Wed, 3 
> > Jul 2013 08:34:17 -0400 -----
> >
> > To:
> >
> > "COBOL Programming on the IBM i \(AS/400 and iSeries\)" <cobol400-
> > l@xxxxxxxxxxxx>
> >
> > Subject:
> >
> > Re: [COBOL400-L] COBOL for RPG programmers: How do you shut down a 
> program?
> > Cancel would work Michael - as long as the advice in the manual for 
> > using a variable is followed.
> >
> > i.e. Move 'MYPROG' to ProgName.
> >     Cancel ProgName.              <-- This works
> >
> >     Cancel 'MYPROG'.              <-- This doesn't.
> >
> > The reason the first one works is that the program pointer is 
> > cleared as well as the program's reset mechanism being invoked. The 
> > second simply resets the program - which is rather like what happens
> > in ILE RPG when you set on LR i.e. the program is flagged to reset 
> > on next call.
> >
> > This is all ILE to ILE.
> >
> > Cancel will _not_ work OPM to ILE or vice versa.
> >
> > Cancel OPM to OPM is implemented differently to ILE but the same 
> > approach should work.
> >
> >
> >
> > On 2013-07-01, at 8:58 PM, MichaelQuigley@xxxxxxxxxx wrote:
> >
> > > Jon,
> > >
> > > Does a CANCEL statement in the calling program simply set the same 
> program 
> > > object for re-activation?  i.e., Will the next call after a CANCEL use 
> the 
> > > same pointer with all storage in its initial state or will the pointer 
> to 
> > > the program object also be resolved again?
> -- 
> This is the COBOL Programming on the IBM i (AS/400 and iSeries) (COBOL400-L) mailing list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com