Dqusec            ds
      D qusbprv                       10i 0 inz(%size(qusec))                    Bytes Provided
      D qusbavl                       10i 0 inz(0)                               Bytes Available
      D qusei                          7                                         Exception Id
      D                                1                                         Reserved
      D msgdata                      500