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

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

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

object for re-activation? i.e., Will the next call after a CANCEL use

same pointer with all storage in its initial state or will the pointer

the program object also be resolved again?