DosExecPgm example Adapted from 'The Art of OS/2 Warp Programming'
Kathleen Panov, Larry Saloon, Jr. Arthur Panov.
Wiley 1995
*)
(*$XL+ Modula-2 language extensions: '_' allowed for symbol names *)
(*$A default alignment for record fields *)
(*$CDECL- Pascal-style procedures *)
FROM OS2DEF IMPORT APIRET,PSZ;
FROM InOut IMPORT WriteCard;
IMPORT SYSTEM;
FROM DOSPROCESS IMPORT DosExecPgm,
EXEC_ASYNC,
RESULTCODES;
(*$XL+*)
CONST BUFFER_SIZE = 200;
VAR arReturn : APIRET;
achFail : ARRAY [0..BUFFER_SIZE] OF CHAR;
rcResult : RESULTCODES;
COMMAND_LINE: PSZ;
Text : ARRAY [0..128] OF CHAR;
BEGIN
(*Commandline : Command must terminate with CHR(0) after the command processor, an extra CHR(0) is necessary after the parameters, the total string must also end with CHR(0)