/IF NOT DEFINED(CMDPRC_P)
      /DEFINE CMDPRC_P
      *
     D/COPY QRPGLESRC,QUSEC_T
      *
     D cl              PR            10I 0 Extproc('cl')
     D   CmdStr@                       *   Value Options(*String)
     D   QUSEC                             Like(QUSEC_T) Options(*Nopass)
      *
      /ENDIF