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

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.