Executar um comando no DOS. Se for no UNIX basta utilizar o UNIX no lugar do DOS. Código: IF OPSYS = "WIN32" THEN DOS dir. ELSE UNIX ls.
Complementando, podemos ainda utilizar variáveis contendo parte ou todo o comando em DOS, e inibir que o mesmo ecoe no vídeo. DEFINE VARIABLE dos-str AS CHAR NO-UNDO. ASSIGN dos-str = " > c:\temp\xx.txt". DOS SILENT dir VALUE (dos-str).
O Comando DOS pode ser substituído pelo comando OS-COMMAND. Se não me falha a memória o OS-COMMAND "nasceu" pra substituir o DOS/UNIX. Código: /* ---> Definição de Variável <--- */ DEFINE VARIABLE vComando AS CHARACTER NO-UNDO. /* ---> Seta Variável <--- */ CASE OPSYS: WHEN "UNIX" THEN ASSIGN vComando = "ls". WHEN "WIN32" THEN ASSIGN vComando = "dir". END CASE. /* ---> Executa Comando <--- */ OS-COMMAND VALUE(vComando).
Na documentacao não fala da substituicao. A diferença é que com o os-command nao é preciso utilizar o OPSYS. OS-COMMAND Executa comandos de qualquer sistema operacional DOS Executa comandos apenas do windows UNIX Executa comandos apenas do unix