COBTOOLS - Tools for COBOL Programmers

Tools for COBOL Programmers

Menu Principal

. Inicio
. Acerca de Cobtools
. Sugerencias
. Recomiendanos
. Subscripcion
. Tu Menu

. Foros
. Downloads
. Publicaciones
. Comprar Licencia

Si no tienes aun una cuenta, has click en: Usuario Nuevo.

Como usuario registrado podras enviar mensajes al foro, y escribir comentarios en el mismo.

Programas

. Cobview Free
. Cobview Print Suite
. Cobview Developer
. Diferencias

. CobHTTPD
. CobEMAIL
. CobEdit

BIENVENIDO A FOROS

Foro: General Forum
Moderador: alberto
Prioridad: Lectura Public - Escritura Registered users

[ INDICE ] [ VER MENSAJES ] [ RESPONDER ] [ NUEVO MENSAJE ]

Tema: :: IMPRESION DE VARIABLE ::

User

IMPRESION DE VARIABLE

nchujfi

Enviado: 15/Mar/10 - 09:03

Vistas: 1,263
Respuestas: 1
Estatus: Open

Saludos a Todos. Hoy tengo la siguinte inquietud.

Necesito definir una variable que sea el nombre de la empresa y luego imprimirla. Esto con el animo de que el programa sea 1 y que se pueda instalar en varias empresas. He probado lo siguiente Y no funciona :

EL LA WORKING

1 EMPRESA PIC X(40).

EN LA PROCEDURE DIVISION.

MOVE " COMPANIA DE PRUEBA" TO EMPRESA.

OPEN OUTPUT INFORME.

WRITE LINEA FROM "<VAR EMP='%EMPRESA%'>"
WRITE LINEA FROM "<include 'HEADER.DEF'>".
WRITE LINEA FROM "</head>".

User

RE: IMPRESION DE VARIABLE

alberto

Enviado: 16/Mar/10 - 10:43

Hola

En tu programa lo que veo es que tienes una variable COBOL llamada EMPRESA, y luego ya en el reporte para COBVIEW haces esto:

Creas una variable EMP que vale %EMPRESA%, cuando tu en realidad quisieras una variable EMP que valiera lo que tiene tu variable COBOL EMPRESA.

Yo lo que haria es, antes del WRITE, hago un STRING donde concateno:
STRING "<VAR EMP=' ", EMPRESA, " '> " DELIMITED BY SIZE INTO LINEA.
WRITE LINEA.

Esto me daria como resultado la linea:
<VAR EMP='COMPANIA DE PRUEBA'>

La otra es utilizar un registro, del tipo:
       01 REG-VARIABLE.
           02 FILLER                      PIC X(05) VALUE "<VAR".
           02 VAR-NAME                PIC X(30).
           02 FILLER                      PIC X(02) VALUE "='".
           02 VAR-VALUE               PIC X(250).
           02 FILLER                      PIC X(02) VALUE "'>".

Y ya antes de imprimir tu linea, mueves los valores a VAR-NAME y VAR-VALUE para poder luego imprimir REG-VARIABLE, y con esto tendras tu TAG VAR armada.

Espero haber sido un poco claro con la idea general

Saludos

Visitor No.: