Como descifrar valores de COM-EXCEPTION

[Kuk]

Siempre me ha interesado el tema, ya que uso COM/OLE de vez en cuando para generar archivos EXCEL y otras cosas (como crear instancias de clases CodeJock).

Lo que no me queda claro es como saber los valores que devuelve COM-EXCEPTION. Segun mis observaciones, cada objeto tiene diferentes errores, y se necesitan campos de diferente congitud para recibir los errores.

Pues eso, a ver que sabeis del tema amigos.

:hi:

[Rapinto]

Kuk,

Será isto que pretendes???

WORKING-STORAGE SECTION.
01 LINHA PIC X(1024).
01 OLE-ERR-METHOD PIC X(256).
01 OLE-ERR-INFO.
03 OLE-ERR-TYPE PIC X(001).
03 OLE-ERR-WCODE PIC X(002).
03 ROLE-ERR-WCODE REDEFINES OLE-ERR-WCODE PIC S9(04) COMP-5.
03 OLE-ERR-SCODE PIC X(004).
03 ROLE-ERR-SCODE REDEFINES OLE-ERR-SCODE PIC S9(09) COMP-5.

PROCEDURE DIVISION.
DECLARATIVES.
OLE-ERRO SECTION.
USE AFTER EXCEPTION OLE-EX.
INVOKE EXCEPTION-OBJECT "GET-ERROR-TYPE"
RETURNING OLE-ERR-TYPE.
IF OLE-ERR-TYPE = "1"
INVOKE EXCEPTION-OBJECT "GET-SCODE" RETURNING ROLE-ERR-SCODE
INVOKE EXCEPTION-OBJECT "GET-SCODE-TEXT" RETURNING LINHA
MOVE LINHA TO OLE-ERR-METHOD
******** MOVE POW-FALSE TO "xlFileStatus" OF POW-SELF
******** MOVE 0 TO "MousePointer" OF POW-SELF
******** MOVE "N" TO FILEOPEN
GO TO MAIN-99-EXIT
ELSE
INVOKE EXCEPTION-OBJECT "GET-WCODE" RETURNING OLE-ERR-WCODE
INVOKE EXCEPTION-OBJECT "GET-SCODE" RETURNING OLE-ERR-SCODE
***** MOVE 0 TO "MousePointer" OF POW-SELF.
***** MOVE "N" TO FILEOPEN
GO TO MAIN-99-EXIT.
END DECLARATIVES.


Espero que te ajude.
Saludos,
Rui Pinto

[Kuk]

Rapinto, si a eso me refiero. Pero funciona igual para todos los objetos COM? O dependiendo del objeto la estructura OLE-ERR-INFO varia?

[Rapinto]

Kuk,

Nos testes que fiz, as Declarativas devolvem sempre naquele formato:
- Um código de Erro
- Um texto do Erro
Pode é ser um tipo de erro "S" ou um tipo de erro "W".

Os códigos de Erro são difíceis de encontrar. O que vou fazendo, é provocar o erro de propósito, em cada INVOKE, e ver qual o numero que devolve e qual o texto.

Saludos,
Rui A. Pinto

[Kuk]

Rapinto, cual es la diferencia ente S y W? SIempre devuelve ambos o solo puede haber 1 infromado?

Yo recuerdo que hice unas pruebas (no me acuerdo con que objeto), y ahi no me devolvia ni codigo ni texto... Aunque utilizaba la misma estructura que tu. Puede ser que algun objeto no tenga codigo de errores? Me pareceria muy extraño si no los tuviera!!!

Existen codigos genericos? Tipo "Clase inexistente" y similares, o cada objeto tiene sus propios codigos y textos (si es que los tiene) ?

Ah, otra cosa. Hay alguna diferencia entre si declaras como COM:


CLASS COM AS "*COM".


Y si declaras como OLE:


CLASS COM AS "*OLE".


Porque ambos funcionan bien, pero no se si hay una diferencia.

[Rapinto]

Kuk,

Object Linking and Embedding = OLE2

Component Object Model = COM

Em Fujitsu COBOL não há diferença nenhuma. Fazem exatamente a mesma coisa.

Anexo uma "pequena" !!!! lista de alguns dos erros.
Saludos,
Rui