Mike Byrne wrote in a message to Mike Bilow:

 MB> Call DosGetMessage().

 MB> I can't seem to do that in my programs.
 MB> Keep in mind I'm compiling with VP.

Yes, I found that problem too. It seems the function DosGetMessage does not
exists in the OS2 libraries, but a function called DosTrueGetMessage does.
The difference between it and DosGetMessage is an extra parameter, using 0
for it seems to work fine.
I made the following changes to os2base.pas to proper support DosGetMessage
(I've reported this to the author of VP):

Changed the DosGetMessage declaration in the interface part of os2base.pas to:

{$cdecl-}
function DosGetMessage(var Table; cTable: ULong; Buf: PChar; cbBuf: ULong;
  MsgNumber: ULong; FileName: PChar; var cbMsg: ULong): ApiRet;
{$cdecl+}

Added this to the implementation section of os2base.pas:

function DosTrueGetMessage(X:longint; var Table; cTable: ULong; Buf: PChar;
cbBuf: ULong;
  MsgNumber: ULong; FileName: PChar; var cbMsg: ULong): ApiRet; external;

Removed the reference to DosGetMessage under implementation, and added the
following to the end of the unit:

{$cdecl-}
function DosGetMessage(var Table; cTable: ULong; Buf: PChar; cbBuf: ULong;
  MsgNumber: ULong; FileName:PChar; var cbMsg: ULong): ApiRet; assembler;
asm
 push [cbMsg]
 push [FileName]
 push [MsgNumber]
 push [cbBuf]
 push [Buf]
 push [cTable]
 push [Table]
 push 0
 call DosTrueGetMessage
 add esp,1Ch
end;


Greetings,
 Arne
--- FMail/386 0.98