Recato53, pruebalo así:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 EXT-VARIABLE PIC X(2).
01 WS-PROGRAMA.
05 WS-NOMBRE PIC X(13) VALUE "CONEXION.EXE ".
05 WS-PTR POINTER.
PROCEDURE DIVISION.
MOVE FUNCTION ADDR(EXT-VARIABLE) TO WS-PTR
INVOKE POW-SELF "ExecuteSync" USING WS-PROGRAMA POW-SWNORMAL.
IF EXT-VARIABLE = "SI"
INVOKE POW-SELF "DisplayMessage" USING "¡Hay conexión!" 64
ELSE
INVOKE POW-SELF "DisplayMessage" USING "¡NO hay conexión!" 48
END-IF