Breew
24 de septiembre de 2018, 15:54
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?
*UPDATE CODIGO2
************************************************** *********************************************
MOVE "Codigo2 " TO MENSAJE-DE-ERROR .
MOVE "UPDATE Artículos SET Código2 = '" TO COMANDO. MOVE 33 TO CONTACHAR.
MOVE Codigo2 TO COMANDO(CONTACHAR:). ADD 13 TO CONTACHAR.
MOVE "' " TO COMANDO(CONTACHAR:). ADD 2 TO CONTACHAR.
MOVE "WHERE Artículo = '" TO COMANDO(CONTACHAR:). COMPUTE CONTACHAR = CONTACHAR + 18.
MOVE Articulo TO COMANDO(CONTACHAR:). COMPUTE CONTACHAR = CONTACHAR + 13.
MOVE "'" TO COMANDO(CONTACHAR:).
*
*
MOVE COMANDO TO ADO-SQL-STRING.
*Esta es la intencion, pero no me sale
*ERROR EN COMPILADOR IF "TEXT" OF CmCodigo2-base = SPACES THEN MOVE "" TO CODIGO2
*
INVOKE OBJ-CONNECTION "EXECUTE" USING ADO-SQL-STRING.
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?
*UPDATE CODIGO2
************************************************** *********************************************
MOVE "Codigo2 " TO MENSAJE-DE-ERROR .
MOVE "UPDATE Artículos SET Código2 = '" TO COMANDO. MOVE 33 TO CONTACHAR.
MOVE Codigo2 TO COMANDO(CONTACHAR:). ADD 13 TO CONTACHAR.
MOVE "' " TO COMANDO(CONTACHAR:). ADD 2 TO CONTACHAR.
MOVE "WHERE Artículo = '" TO COMANDO(CONTACHAR:). COMPUTE CONTACHAR = CONTACHAR + 18.
MOVE Articulo TO COMANDO(CONTACHAR:). COMPUTE CONTACHAR = CONTACHAR + 13.
MOVE "'" TO COMANDO(CONTACHAR:).
*
*
MOVE COMANDO TO ADO-SQL-STRING.
*Esta es la intencion, pero no me sale
*ERROR EN COMPILADOR IF "TEXT" OF CmCodigo2-base = SPACES THEN MOVE "" TO CODIGO2
*
INVOKE OBJ-CONNECTION "EXECUTE" USING ADO-SQL-STRING.