drvedia1981, aquí tienes el ejemplo del primer
CALL:
Código COBOL:
WORKING-STORAGE SECTION.
01 PTR-comPort POINTER.
01 PTR-comPort-N REDEFINES PTR-comPort PIC S9(9) COMP-5.
PROCEDURE DIVISION.
CALL "SetDeviceName" WITH STDCALL USING BY REFERENCE PTR-comPort-N
BY CONTENT "COM2"
No te olvides de mapear las funciones en COBOL85.CBR:
[Aporte] CALL de cualquier DLL sin *.LIB ni "LoadLibrary" - COBOL Foro