Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Cadenas vacías en mdb (https://www.cobolforo.es/showthread.php?t=894)

Breew 24 de septiembre de 2018 15:54

Cadenas vacías en mdb
 
Hola.
Hace unos meses que interacciono via cobol con una base de datos mdb que es gestionada desde otro programa.

Acabo de descubrir, que cuando modificaba algun campo y este estaba vacio, es decir sin ningun valor, yo lo llenaba de espacios y lo modificaba.

Necesito modificarlo para que el registro que este lleno de espacios, me quede con longitud 0, es decir vacio totalmente.

Como lo puedo hacer?

Código COBOL:
  1.   *UPDATE CODIGO2
  2. ***********************************************************************************************
  3.       MOVE "Codigo2            " TO MENSAJE-DE-ERROR     .
  4.       MOVE "UPDATE Artículos SET Código2 = '"    TO COMANDO. MOVE 33 TO CONTACHAR.
  5.       MOVE Codigo2        TO COMANDO(CONTACHAR:). ADD 13 TO CONTACHAR.
  6.       MOVE "' " TO COMANDO(CONTACHAR:). ADD 2 TO CONTACHAR.
  7.       MOVE "WHERE Artículo = '" TO COMANDO(CONTACHAR:). COMPUTE CONTACHAR = CONTACHAR + 18.  
  8.       MOVE Articulo       TO COMANDO(CONTACHAR:). COMPUTE CONTACHAR = CONTACHAR + 13.  
  9.       MOVE "'" TO COMANDO(CONTACHAR:).
  10.  
  11. *
  12. *
  13.  
  14.     MOVE COMANDO TO ADO-SQL-STRING.
  15.  
  16. *Esta es la intencion, pero no me sale        
  17. *ERROR EN COMPILADOR        IF "TEXT" OF CmCodigo2-base = SPACES THEN MOVE "" TO CODIGO2
  18. *    
  19.         INVOKE  OBJ-CONNECTION "EXECUTE" USING ADO-SQL-STRING.

Kuk 24 de septiembre de 2018 19:47

Breew, en vez de mover espacios, prueba con:

Código COBOL:
  1.      MOVE X"00" TO CAMPO

Breew 24 de septiembre de 2018 20:55

Hola kuk.

No lo tengo claro.
Si consulto en la base con el excell me introduce 5 espacios en blanco, en cambio los que no he modificado, no aparece nada . :confused:

En todo caso, mañana verificare con el programa de gestion.

.

Kuk 25 de septiembre de 2018 11:07

Breew, has intentado directamente poner el campo a NULL? :

Código SQL:
  1. UPDATE TABLE
  2.    SET campo_1 = NULL
  3.  WHERE campo_2 ...

Breew 26 de septiembre de 2018 23:51

:mm:

Pos no :)

Ahora si que esta correcto el valor :silba::silba::silba::silba::silba:


Gracias.


La franja horaria es GMT +2. Ahora son las 14:45.

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