RE: Call by reference -- COBOL400-L

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

Thanks for the sample. But, in this sample, ARRAY-DATA itself is passed
a parameter to PGMB. I would like to ignore that and instead pass
pointer on this ARRAY-DATA as a parameter. Is it possible? ARRAY-DATA
sub-field layout will be defined only in PGMA and I want to use that in
PGMB by a pointer reference on ARRAY-DATA described in PGMB

I am using COBOL ILE.

Thanks & Regards
Sivasubrahmanian. A
Project Engineer
Wipro Technologies (Finance & Insurance)
Electronics City, Bangalore, India
Phone - 8520408/8520416 x - 4364.

-----Original Message-----
From: cobol400-l-admin@midrange.com
[mailto:cobol400-l-admin@midrange.com] On Behalf Of David Silber
Sent: Thursday, August 22, 2002 8:14 PM
To: 'cobol400-l@midrange.com'
Subject: RE: Call by reference

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.


_______________________________________________
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.

--
**************************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.

***************************************************************************