Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL y COM/OLE (https://www.cobolforo.es/forumdisplay.php?f=32)
-   -   [Sintaxis] Asignar valor a una propiedad (https://www.cobolforo.es/showthread.php?t=297)

lfortuny 22 de diciembre de 2015 11:32

Asignar valor a una propiedad
 
Se más o menos como invocar un método COM de un server object. Lo que no se es como proceder con un COM property.
Tengo que pasar un valor a una propiedad, he intentado lo siguiente:

Código COBOL:
  1. INVOKE COM "Create-Object" USING mail_driver RETURNING mail_server
  2. INVOKE mail_server "LicenseCode" USING BY REFERENCE licencia

Y siempre me devuelve:
ERROR OCCURRED IN THE 'LICENSECODE' METHOD OF THE SPECIAL CLASS "*COM/*OLE". SCODE=0x80020003

Si intento con:
Código COBOL:
  1. MOVE LicenseCode"       TO  METHOD-NAME
  2. INVOKE mail_server METHOD-NAME USING BY REFERENCE licencia

Me devuelve un error type = 1.

1 : The COM system detected the error. To reference error details, execute
the GET-SCODE and GET-SCODE-TEXT methods. If another method
is executed, a null or 0 is returned.

He probado con el GET-SCODE y me devuelve un número pero el GET-SCODE-TEXT me devuelve un NULL y no me sirve de mucho.


¿Alguien me puede ayudar?

Gracias a tod@s y FELICES FIESTAS.

Kuk 22 de diciembre de 2015 11:42

lfortuny, lee las normas del foro, que has infringido unas cuantas. El título del tema no describe nada, hay que meter código fuente en TAG-s correspondientes... Ya lo he corregido todo, intenta a partir de ahora hacerlo todo bien para que esto se mantenga en condiciones ;)

En cuanto a tu pregunta, sería:

Código COBOL:
  1.      INVOKE mail_server "SET-LicenseCode" USING licencia

Para obtener una propiedad, en lugar de SET sería GET (evidentemente).


La franja horaria es GMT +2. Ahora son las 13:07.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.