RE: QUSPTRUS -- COBOL400-L

Hi

Thanks for the information.

My program worked after a lot of trail and error approach. The sample
helped in getting to know how to use pointers.

Thanks to all who helped me.

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

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bruce Vining
Sent: Tuesday, June 24, 2003 7:37 PM
To: COBOL Programming on the iSeries/AS400
Subject: RE: QUSPTRUS





Actually that program is from Appendix B of the System API Programming
manual.  The manual provides several RPG, COBOL, and C examples showing
various API programming techniques.  The manual can be found in the V5R2
Information Center under Programming/APIs/Related Information.

Bruce



 

                      Winchester Terry

                      <terry.winchester@xxxxx        To:       "'COBOL
Programming on the iSeries/AS400'" <cobol400-l@xxxxxxxxxxxx>       
                      ndcorp.com>                    cc:

                      Sent by:                       Subject:  RE:
QUSPTRUS                                                               
                      cobol400-l-bounces@xxxx

                      ange.com

 

 

                      06/24/2003 06:54 AM

                      Please respond to COBOL

                      Programming on the

                      iSeries/AS400

 

 





> -----Original Message-----
> From: A. Sivasubrahmanian
> [mailto:sivasubrahmanian.ananthakrishnan@xxxxxxxxx]
> Sent: Tuesday, June 24, 2003 7:44 AM
> To: cobol400-l@xxxxxxxxxxxx
> Subject: QUSPTRUS
> Importance: High

> Hi
>
> After getting to know how to use QUSRTVUS API, I would like
> to know how to use QUSPTRUS API. How do I declare a pointer
> variable in COBOL and call this API using the declared pointer?
> How do I move the value > referenced by the pointer to a program
> work variable?
>
> A sample code would be much helpful.
>
> Thanks & Regards
> Siva

Here's an old program called RTVFD that I believe was originally
published in the News400 magazine.  Maybe it will be of some help.
Note:  I have not tested or used this program....

Good Luck,
Terry

       IDENTIFICATION DIVISION.
      ***************************************************************
      ***************************************************************
      *
      *  Program:      RTVFD
      *
      *  Language:     COBOL/400
      *
      *  Description:  This program retrieves a file definition
      *                template to a user space.
      *
      *  APIs Used:    QDBRTVFD - Retrieve File Description
      *                QUSCRTUS - Create User Space
      *                QUSCUSAT - Change User Space Attributes
      *                QUSPTRUS - Retrieve a pointer to a User Space
      *
      ***************************************************************





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


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

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