Re: inter subprogram in initial state, but only sometimes

If the CALLED program is statically linked it should remain in it's last
used state I think (not 100% sure of this since it is VSE and I my mind is
tired from a sore throat). To put it back into its initial state code a
paragraph that does this, and since it knows when it want to do this, you
can PERFORM the paragraph at that time. I assume you are already avoiding
things like ALTER GOTO.

<top post no more below>

"Frank Swarbrick" <Frank.Swarbrick@xxxxxxxxxxxxxx> wrote in message
news:413kmpF1db8d0U1@xxxxxxxxxxxxxxxxx
>I know that if you put the "IS INITIAL" clause on the PROGRAM-ID statement
> it will reload all of working-storage every time the program is called.
> I also know that the calling program can CANCEL the called program in
> order
> to remove it from memory, thus causing a "new" version of the program to
> be
> loaded the next time it is called.
> But is there a way for the CALLED program to basically cancel itself once
> it
> is complete? In other words, I want the sub-program to sometimes be
> entered
> in it's last used state and sometimes in it's initial state. But only the
> sub-program itself needs to know when it wants to do one and when it wants
> to do the other. Of course it could pass something back to the caller
> instructing the caller to cancel it, but the caller is not forced to obey
> this.
>
> I don't actually have a need for this, but it did get me thinking...
>
> COBOL for VSE/ESA 1.1.1
>
> Thanks,
> Frank
>
>
> ---
> Frank Swarbrick
> Senior Developer/Analyst - Mainframe Applications
> FirstBank Data Corporation - Lakewood, CO USA


.

Relevant Pages

  • Re: inter subprogram in initial state, but only sometimes
    ... >> sub-program itself needs to know when it wants to do one and when it ... >working-storage items, close files etc and generally return itself to ... >What does cancel achieve that a few moves and closes would not? ... Frank Swarbrick ...
    (comp.lang.cobol)
  • inter subprogram in initial state, but only sometimes
    ... But is there a way for the CALLED program to basically cancel itself once it ... I want the sub-program to sometimes be entered ... Of course it could pass something back to the caller ... Frank Swarbrick ...
    (comp.lang.cobol)
  • Re: CANCEL Mis-behaving
    ... Frank Swarbrick wrote: ... As soon as the cancel statement is processed, Program A exits for no ... What is your reasoning behind performing the CANCEL? ... COBOL that used an assembler routine to do dynamic calls ...
    (comp.lang.cobol)
  • Re: Alternative COBOL "telco" source program
    ... > If the caller does a Cancel, Values will be there on the next Call. ... > caller forgets or abends or someone else calls your .dll, ... required usage is not redundant. ...
    (comp.lang.cobol)
  • Re: CANCEL Mis-behaving
    ... As soon as the cancel statement is processed, Program A exits for no ... What is your reasoning behind performing the CANCEL? ... COBOL that used an assembler routine to do dynamic calls ... Frank Swarbrick ...
    (comp.lang.cobol)