RE: QUSPTRUS

[Bruce Vining <bvining@xxxxxxxxxx>]

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