!---------------------------------------------------------------------- ! Call-Command ! DESCR: This procedure is used to make a OS call to the EXE ! executable. !---------------------------------------------------------------------- BEGIN-PROCEDURE call-command display 'CALL-COMMAND PROCEDURE' CALL SYSTEM USING $command_line #status WAIT let $Message=' Operating system return code = ' // to_char(#Status)
display '$command_line: ' noline
display $command_line display $Messageend-procedure call-command
!----------------------------------------------------------------------