* --- Prototype for API Retrive List Job
      *
     D QUSLJOB         pr                  extpgm( 'QUSLJOB' )
     D   QJobUserSpace...
     D                               20
     D   QJobFormatName...
     D                                8
     D   QJobJobName...
     D                               26
     D   QFldStatus...
     D                               10
     D   QFldError...
     D                              256
     D   QJobType...
     D                                1
     D   QNbrFldRtn...
     D                                8B 0
     D   QKeyFldRtn...
     D                                8B 0 dim( 100 )