$ ver = 'f$verify(0) $! $!OSIT$CMD_EXECUTOR.COM $! $! Command procedure to run OSIT$CMD_EXECUTOR.EXE $! $! If you need to debug the program define $TERM to be $! the terminal you will use for the debugging. $! For example: $! $! DEFINE/SYSTEM $term _lta4: $! $! The above command must be issued before you start OSIT$CMD_SOURCE. $! $! If $TERM has a DCL prompt you can suppress it by issuing a WAIT command. $! $ def dbg$input $term: $ def dbg$output $term: $! $! Write an informational message to the .LOG file $! $ write sys$output "Attempting to run cmd_executor" $! $! If you need to debug the program you will probably need $! the following line. $! $ set process/priv=share $! $! Assume that the program is in the same directory as this command file $! and has the same file name (but eith type .EXE rather than .COM). $! eg: $! If this command file is called USER$DISK:[FRED]OSIT$CMD_EXECUTOR.COM, $! then we will execute USER$DISK:[FRED]OSIT$CMD_EXECUTOR.EXE. $! Change the following line if another executable image should be invoked. $! $ run 'f$element(0,";",f$parse(".exe;",f$environment("procedure"))) $