Re: Cleanup after program failure

One thought: From the small CLP, set a flag in the LDA (or create a special
data area in QTEMP, or something) to indicate 'new environment entered' and
clear it just before small CLP finishes, to indicate 'new environment
left'. Then, following completion of call to small CLP from program A,
check flag or whatever, and if still set to 'new environment entered'
either sort the environment out or abort as is most sensible in practice.
Mandy





Matthias Oertli <oertlim@s054.aone.net.au> on 02/05/2001 13:51:31

Please respond to MIDRANGE-L@midrange.com

To:   midrange-l@midrange.com
cc:    (bcc: Mandy Shaw/Pacific/UK)
Subject:  Cleanup after program failure




Hi guys,

I've been asked to code a call to program B from within program A.

The difficulty is that program B needs a different environment to
program A: A slight change in the library list and a modified data
area.

This is easily doable, make program A call a small CL which sets up
everything, then calls program B and when it returns undoes the
changes and finally returns to program A.

My problem is this: If program B (or the CL) fails for whatever
reason, program A regains control without the environment having been
restored to what it should be which could mean disaster.

How can I guard against this situation?

Thanks for your help.
Best regards,
Matthias

--

---------------------------------------------------------------------
Matthias Oertli   <oertlim@s054.aone.net.au>
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---



      Regards,
      Mandy Shaw

      Notability Solutions PLC
      Kingfisher House
      Frimley Business Park
      Camberley
      Surrey
      GU16 5SG
      UK

      http://www.Notability.com
      Email: Mandy.Shaw@Notability.com

      Telephone: +44 (0)870 166 1000
      DDI: +44 870 166 1324
      Facsimile: +44 870 168 3920
      Mobile: +44 7710 447966





----------------------------------------------------------------------
----------------------------------------------------------------------
Catalyst Solutions plc.  Registered No 2918101.
Registered @ Kingfisher House, Frimley Business Park, Frimley,
Surrey. GU16 5SG   U.K.

NOTICE:
This message is intended only for the named addressee(s) and may
contain confidential and/or privileged information. If you are not the
named addressee you should not disseminate, copy or take any action
or place any reliance on it. If you have received this message in error
please notify postmaster@catalyst-solutions.com and delete the message
and any attachments accompanying it immediately.
----------------------------------------------------------------------


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---