*=====================================================================
      * Command Procedures
      *
      * Copyright (C) Julian Monypenny 1997
      *=====================================================================
     H NoMain
 
      *---------------------------------------------------------------------
      * Global definitions
      *---------------------------------------------------------------------
      /Copy ToolkitCpy,CmdH
      /Copy ToolkitCpy,StdTypH
 
      *=====================================================================
     P ExecCmd         B                   Export
      *=====================================================================
     D                 Pi                  Like( LglTyp )
     D  Cmd                                Like( CmdTyp )  Value
 
     D CmdLen          S                   Like( DecTyp )
     D                                     Inz( %Size( Cmd ) )
 
     C                   Call      'QCMDEXC'                            99
     C                   Parm                    Cmd
     C                   Parm                    CmdLen
 
     C                   Return    Not *In99
 
     P                 E
 
       *
       * utilisation
       * -----------
      C*                  if        ExecCmd( 'ClrPfm ' + %Trim( FilLib ) +
      C*                                     '/'       + %Trim( FilNam ) +
      C*                                     ' '       + %Trim( MbrNam ) )
      C*                                     = *On
       *
       * par exemple.