Jack,

        Is the Image status array in the common area? If it is you will
need to copy it back to the program a common area, else you will see the
behavior you are experiencing.
Robert Schlosser
MPE-CSM
HP Certified Professional
Humana / Ochsner
(504) 219-8134



Jack Nickels <[log in to unmask]>
Sent by: HP-3000 Systems Discussion <[log in to unmask]>
10/07/2004 08:24 AM
Please respond to
Jack Nickels <[log in to unmask]>


To
[log in to unmask]
cc

Subject
[HP3000-L] Calling program and called program






Hi All,

I have two programs. A called program (program b) and
the calling program (program a).

The way i call is as below

Progam A
--------

Setup Arguement & Key
DBFIND datasetc
IF DB-OK AND CHAIN LENGTH > 0
   DBGET Mode 5
   PERFORM UNTIL End of Chain
      Call 'program b' using Common Area
                             Parameter1
      DBGET Mode 5

   END PERFORM
END-IF


Program B
---------

$control dynamic

Performs DBFIND
DBGET MOde 5
DBUPD datasetc
Goback

Ideally, the DBGET Mode 5 in program A inside the
Perform Until chain should have been successful. But
everytime, the Perform
Until chain is exited. I am assuming that the Common
area between the called and the calling program is
causing the issue.

Is there any way for the calling program (program a)
to retain its values in the common area that may have
got affected by the called program (Program B)

One way of doing it is to store the pointer before
call in a local variable in program a. But is there a
cleaner solution to this. Am i missing something in
the $CONTROL parameters.

We will not be able to keep the common area out of the
linkage section for some reasons
Thanks for your help
-Jack



_______________________________
Do you Yahoo!?
Declare Yourself - Register online to vote today!
http://vote.yahoo.com

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *



The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material.  If you receive this material/information in error, please contact the sender and delete or destroy the material/information.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *