RE: [COBOL400-L] Shared variables in service program

["John Brandt Sr." <pgmr@xxxxxxxxxxxxxxx>]

I'm calling a procedure in a service program that loads exported variables.
I need to know the value of these variables before and after my call. My
call RETURNING works just fine.

John

-----Original Message-----
From: Jon Paris [mailto:Jon.Paris@xxxxxxxxxxxxxx]
Sent: Wednesday, March 03, 2004 11:11 AM
To: COBOL Programming on the iSeries/AS400
Subject: RE: [COBOL400-L] Shared variables in service program


Which are you trying to do John?  Return a value or use exported variables?
Or are you really trying to use both?

If you are attempting to return a result, then the CALLER uses CALL .....
RETURNING and the callee uses PROCEDURE DIVISION USING .... RETURNING .....

To share variables by exporting them (not normally considered good practice)
you specify the data item as being EXTERNAL.  The (service) programs sharing
the data must all be running in the same activation group.

Jon Paris
Partner400
www.Partner400.com

_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (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.

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.610 / Virus Database: 390 - Release Date: 3/3/04
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.605 / Virus Database: 385 - Release Date: 3/1/04