fastpho, estás haciendo llamada estática:
Código COBOL:
CALL "FUNC" WITH STDCALL USING BY VALUE sPort
Quítale las comillas al FUNC para que tire de la varibale WORKING y no lo tome por literal:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 FUNC PIC X(10). *> nombre función <===[
01 sPort PIC S9(9) COMP-5.
01 InBuffer PIC X(250).
01 BufferLen PIC S9(9) COMP-5.
PROCEDURE DIVISION.
MOVE "setComPort" TO FUNC. *> nombre función <===[
MOVE 1 TO sPort *> activamos COM1
CALL FUNC WITH STDCALL USING BY VALUE sPort