Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL y COM/OLE
PowerCOBOL y COM/OLE La utilización de COM / OLE en PowerCOBOL
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] como insertar una imagen jpg en una impresion mhnico RM/COBOL 1 1 de marzo de 2021 17:32
[Sintaxis] Máximo valor de una variable Begoguay COBOL - General 6 4 de mayo de 2020 19:46
[Sintaxis] Traspasar el valor de una variable jmeza PowerCOBOL (ActiveX, v4 - v11) 2 30 de mayo de 2019 01:20
[Sintaxis] Obtener la propiedad "Name" del Form en ejecución Fito PowerCOBOL (ActiveX, v4 - v11) 4 19 de julio de 2016 00:47
[Sintaxis] Propiedad "Bring to front" Roger PowerCOBOL (ActiveX, v4 - v11) 1 21 de marzo de 2015 22:20

Respuesta
 
Herramientas

  #1
Antiguo 22 de diciembre de 2015, 11:32
lfortuny
Forero Junior
Última Actividad 05.07.2026 12:35
Posts Posts: 20
Likes enviados Enviados: 17
Likes recibidos Recibidos: 3
Asignar valor a una propiedad
0 Inactivo Inactivo

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.
lfortuny is offline   Responder Con Cita
  #2
Antiguo 22 de diciembre de 2015, 11:42
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

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).



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
Respuesta



Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado

Saltar a Foro


La franja horaria es GMT +2. Ahora son las 13:10.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.