RE: Call by reference

[David Silber <david.silber@xxxxxxxxxxxxxxx>]

Program PGMA:
01 ARRAY-DATA   PIC X(1000).  or whatever

CALL "PGMB" USING ARRAY-DATA.

program PGMB:

WORKING-STORAGE SECTION.
01 ARRAY-POINTER   USAGE POINTER.

LINKAGE SECTION.
01 PASSED-ARRAY   PIC X(1000).

PROCEDURE DIVISION USING PASSED-ARRAY.
    SET ARRAY-POINTER TO ADDRESS OF PASSED-ARRAY.

That's the bare bones. Then you'll need to work out the array referencing.

-----Original Message-----
From: Sivasubrahmanian Ananthakrishnan
[mailto:sivasubrahmanian.ananthakrishnan@wipro.com]
Sent: 22 August 2002 15:53
To: cobol400-l@midrange.com
Subject: Call by reference



This is a multi-part message in MIME format.
--
Hi all

I'm looking for a sample program that uses call by reference. I have a
array in PGMA that needs to be processed in PGMB. I would like to ignore
calling the program with the array data itself as a parameter. Instead
would like to use a pointer. If any of you have a sample program that
will explain this functionality, it would be of great help. Please help
with a sample program that uses call by reference

Thanks & Regards
Shiva


--
**************************Disclaimer************************************

Information contained in this E-MAIL being proprietary to Wipro Limited is
'privileged' and 'confidential' and intended for use only by the individual
 or entity to which it is addressed. You are notified that any use, copying
or dissemination of the information contained in the E-MAIL in any manner
whatsoever is strictly prohibited.

***************************************************************************
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
or email: COBOL400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.


This email and any attachments are strictly confidential and are intended
solely for the addressee. If you are not the intended recipient you must
not disclose, forward, copy or take any action in reliance on this message
or its attachments. If you have received this email in error please notify
the sender as soon as possible and delete it from your computer systems.
Any views or opinions presented are solely those of the author and do not
necessarily reflect those of HPD Software Limited or its affiliates.

 At present the integrity of email across the internet cannot be guaranteed
and messages sent via this medium are potentially at risk.  All liability
is excluded to the extent permitted by law for any claims arising as a re-
sult of the use of this medium to transmit information by or to
HPD Software Limited or its affiliates.