RPGLE - Create user space

    RPGLE  - Create user space

* Standard API error data structure
     d ErrorDs         DS                  INZ
     d  BytesProvd             1      4B 0 inz(116)
     d  BytesAvail             5      8B 0
     d  MessageId              9     15
     d  Err###                16     16
     d  Message               17    116
       * Name and location of the Output Queue
     d UserSpace       DS
     d  QSName                       10    Inz('SPOOL1')
     d  QSLibrary                    10    Inz('QTEMP')

       * Create the user space

     c                   CALL      'QUSCRTUS'
     c                   PARM                    UserSpace
     c                   PARM      *BLANKS       SpaceAttr        10
     c                   PARM      4096          SpaceLen
     c                   PARM      *BLANKS       SpaceVal          1
     c                   PARM      '*CHANGE'     SpaceAuth        10
     c                   PARM      *BLANKS       SpaceText        50
     c                   PARM      '*YES'        SpaceRepl        10
     c                   PARM                    ErrorDs