QUSCUSAT -Set the user space to be auto.extendable

QUSCUSAT - Set the user space to be automatically extendable

 

     dChgSpcAtr        pr                  extpgm('QUSCUSAT')
     d SpcLib                        10
     d SpcName                       20    const
     d ChgAttrDS                           const likeds(ChgAttrDS)
     d ErrCde                              likeds(ErrCde)

     dChgAttrDS        ds
     d NbrAttrs                      10i 0 inz(1)
     d KeyValue                      10i 0 inz(3)
     d DataSize                      10i 0 inz(1)
     d DataValue                      1    inz('1')

     dErrCde           ds
     d BytPrv                        10i 0 inz(0)

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

     dSpcLib           s             10

      /free

       // Set the user space to be automatically extendable
       ChgSpcAtr( SpcLib :SpcName :ChgAttrDS :ErrCde);
       Return;

      /end-free