[fastpho]

Hola @Gusaiello, te paso un ejemplo sacado del manual de cobol debe ser parecido en AcuCobol para el manejo de errores OLE.

 
IDENTIFICATION DIVISION.
PROGRAM-ID. PROGRAM-A.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
REPOSITORY.
CLASS OLE AS "*OLE"
CLASS OLE-EXCEPTION AS "*OLE-EXCEPTION".
* :
DATA DIVISION.
WORKING-STORAGE SECTION.
01 OLE-SV-OBJ USAGE IS OBJECT REFERENCE OLE.
01 OLE-ERROR-INFORMATION.
      03 OLE-ER-TYPE PIC X(01).
      03 OLE-WCODE PIC X(02).
01 OLE-SERVER PIC X(20) VALUE "OLESERVER.OLECLASS".
01 METHOD-NAME PIC X(20) VALUE SPACE.
01 SERVER-PASSWORD PIC X(04).
*:
PROCEDURE DIVISION.
DECLARATIVES.
ERR SECTION.
USE AFTER EXCEPTION OLE-EXCEPTION.
INVOKE EXCEPTION-OBJECT "GET-ERROR-TYPE"
RETURNING OLE-ER-TYPE. *> [1]
IF OLE-ER-TYPE = "1"
THEN
DISPLAY "ERROR OCCURED IN " METHOD-NAME "METHOD" *> [2]
SET OLE-SV-OBJ TO NULL.
EXIT PROGRAM
ELSE
INVOKE EXCEPTION-OBJECT "GET-WCODE"
RETURNING OLE-WCODE *> [3]
IF OLE-WCODE NOT = X"0001"
THEN *> [4]
DISPLAY "ERROR OCCURED IN " METHOD-NAME "METHOD"
SET OLE-SV-OBJ TO NULL.
EXIT PROGRAM
END-IF
END-IF.
END DECLARATIVES.
:
MOVE SPACE TO OLE-ER-TYPE.
MOVE "CREATE-OBJECT" TO METHOD-NAME.
INVOKE OLE "CREATE-OBJECT" USING OLE-SERVER *> [5]
RETURNING OLE-SV-OBJ.

Saludos ...