QUSPTRUS - Retrieve pointer to user space(RPGIV 3)

 

 

     dRtvSpcPtr        pr                  extpgm('QUSPTRUS')
     d SpcName                       20    const
     d UsrSpcPtr                       *
     d ErrCde                              likeds(ErrCde) options(*nopass)

     dErrCde           ds
     d BytPrv                        10i 0 inz(0)

     dSpcName          ds
     d SName                         10    inz('SPACENAME')
     d SLib                          10    inz('QTEMP')

     dUsrSpcPtr        s               *
     dPgmVar           s             50    based(UsrSpcPtr)
     dWait             s              1

      /free

       // Get a pointer to the user space
       RtvSpcPtr( SpcName :UsrSpcPtr :ErrCde);

       // Retrieve data from the user space
       dsply PgmVar;

       // Change our position in the user space and retrieve different data
       UsrSpcPtr += 6;
       dsply PgmVar ' 'Wait;

       Return;

      /end-free