This macro issues a command to the operating system from the IDF command line. On CMS, transient modules, nucleus extensions and EXECs run. On TSO, any unauthorized command or REXX EXEC runs. On z/VSE, REXX/VSE commands or REXX programs run.

/*REXX --------------------------------------------------------------*/
/*                                                                   */
/*   Issue the command to the system.                                */
/*                                                                   */
/*-------------------------------------------------------------------*/

 Parse Arg cmd                      /* Obtain any operands           */

 Parse Upper Source OpSys .         /* Determine current OS          */

 Select

   When (OpSys = 'TSO') Then        /* Handle TSO command            */
     Do
       Address TSO cmd              /* Issue command                 */
       trc = rc
       'Refresh'                    /* Refresh WDB screen            */
     End

   When (OpSys = 'CMS') Then        /* Handle CMS command            */
     Do
       Address CMS cmd              /* Issue command                 */
       trc = rc
     End

   When (OpSys = 'VSE') Then        /* Handle VSE command            */
     Do
       Address VSE cmd              /* Issue command                 */
       trc = rc
     End
   Otherwise
     Do
       'SET MSG Not on TSO or CMS or VSE - Unable to issue command'
       trc = -3
     End

 End

 Exit trc