QUSRSPLA API

[bvining@xxxxxxxxxxxx]

Though nothing fancy the following works for me:

     I* Define a Receiver Variable large enough to handle variable
     I* length fields at end of fixed structure.  Then copy in the
     I* pertinent elements from QSYSINC/QRPGSRC(QUSRSPLA).  Note that
     I* the RCVVAR is defined as 4096 bytes in size.
     IRCVVAR      DS                           4096
     I*                                             Qus SPLA0100
     I                                    B114511480QUSF01
     I*                                             Usr Def Options Offset
     I                                    B114911520QUSF02
     I*                                             Usr Def Options Number
     I                                    B115311560QUSF03
     I*                                             Usr Def Options Entry Length
     I* Miscellaneous declares for Binary values
     IMISC        DS
     I I            4096                  B   1   40RCVSIZ
     I I            -1                    B   5   80SPLNUM
     I I            0                     B   9  120ECBP
     C* Call API getting last spooled QSYSPRT file
     C                     CALL 'QUSRSPLA'
     C                     PARM           RCVVAR
     C                     PARM           RCVSIZ
     C                     PARM 'SPLA0100'FORMAT  8
     C                     PARM '*'       JOBNAM 26
     C                     PARM *BLANKS   JOBINT 16
     C                     PARM *BLANKS   SPLINT 16
     C                     PARM 'QSYSPRT 'SPLFNM 10
     C                     PARM           SPLNUM
     C                     PARM           ECBP
     C* Check if any user options returned
     C           QUSF02    IFGT 0
     C* If so, process them
     C* First add one to the offset as RPG is base 1 and APIs are base 0
     C           QUSF01    ADD  1         X       90
     C                     DO   QUSF02
     C* Get the value
     C           10        SUBSTRCVVAR:X  USROPT 10
     C* Display the value
     C           USROPT    DSPLY
     C* Add the size of each entry to get the next entry
     C                     ADD  QUSF03    X
     C                     ENDDO
     C                     ENDIF
     C* All done
     C                     MOVE '1'       *INLR
     C                     RETRN

Bruce Vining

>
>Bruce - thanks for the information. I did find that info in the online
>V3R7 System API Reference, but when I attempted to use it, I found that
>the Offset to user-defined option (decimal offset 1144) = Number of user
>defined option returned (decimal offset 1148) = Length of user-defined
>option entry (decimal offset 1144) = 77952576, whether or not the spool
>file  contained any entries to the user defined options within the spool
>file attributes.  Again if anybody knows how to do this - or may guess
>what I am doing wrong, help is appreciated.
>

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *