Cobol Foro - [Compilador] Advertencias en compilacion

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Compilador] Advertencias en compilacion (https://www.cobolforo.es/showthread.php?t=1359)

Advertencias en compilacion

Estimados Foreros estoy utilizando un COPY de una FD en mi aplicación en PowerCobol V9 pero al compilar me da una advertencia de que los campos definidos serán considerados alfanuméricos esto solo ocurre en todas las líneas del programa donde se mueve el valor de un TextBox a uno de los campos definidos en el COPY de la FD si no la declaro en un COPY no me da ninguna advertencia.

Esto son los mensajes de advertencia

Código:

Create C:\Cartera\nomenclador\Release\Empresa.cob...

Empresa escribe(12) : F5DC410304I-W COD-EMP is considered to be an alphanumeric item.

Empresa escribe(13) : F5DC410304I-W NOMBRE-EMP is considered to be an alphanumeric item.

Empresa escribe(14) : F5DC410304I-W CLIENTE-EMP is considered to be an alphanumeric item.

Empresa escribe(15) : F5DC410304I-W CTABAN-EMP is considered to be an alphanumeric item.

Empresa escribe(16) : F5DC410304I-W DIAS-EMP is considered to be an alphanumeric item.

Empresa escribe(17) : F5DC410304I-W BANCO-EMP is considered to be an alphanumeric item.

Empresa escribe(18) : F5DC410304I-W TIPO-EMP is considered to be an alphanumeric item.

Empresa escribe(19) : F5DC410304I-W MONEDA-EMP is considered to be an alphanumeric item.

Empresa leer(44) : F5DC410304I-W COD-EMP is considered to be an alphanumeric item.

Empresa despletabla(124) : F5DC410304I-W CLIENTE-EMP is considered to be an alphanumeric item.

Empresa despletabla(139) : F5DC410304I-W BANCO-EMP is considered to be an alphanumeric item.

Empresa despletabla(144) : F5DC410304I-W MONEDA-EMP is considered to be an alphanumeric item.

Empresa exportar(110) : F5DC410304I-W LLAVE-EMP is considered to be an alphanumeric item.

Empresa imprime(110) : F5DC410304I-W LLAVE-EMP is considered to be an alphanumeric item.

Empresa CmCommand6-Click(35) : F5DC410304I-W LLAVE-EMP is considered to be an alphanumeric item.

Empresa CmCommand6-Click(95) : F5DC410304I-W LLAVE-EMP is considered to be an alphanumeric item.

STATISTICS: HIGHEST SEVERITY CODE=W

Esto es lo que contiene el COPY.

Código COBOL:

       FD EMPRESAS is global.
       01 ART-EMP.
          02 LLAVE-EMP.
             03 COD-EMP       PIC X(6).
          02 NOMBRE-EMP  PIC X(40).
          02 CLIENTE-EMP   PIC X(6).
          02 CTABAN-EMP   PIC X(30).
          02 MONEDA-EMP  PIC X(30).
          02 DIAS-EMP          PIC 99.
          02 BANCO-EMP     PIC XX.
          02 TIPO-EMP          PIC X(4).
          02 ERROR-EMP      PIC X.
          02 CANCEL-EMP   PIC X.
          02 FILLER               PIC X(44).
          02 USER-EMP        PIC X(25).
          02 FECHA-EMP     PIC X(6).
          02 HORA-EMP       PIC X(4).

La Aplicación se ejecuta sobre Windows 10 Pro 64 Bit.

Muchas gracias y espero me puedan ayudar.

Hola forero.

Por mi experiencia, he visto que hay que mover el valor del TextBox a una variable intermedia, antes de moverlo a una variable que viene definida en un COPY

Espero que te sirva.

Código COBOL:

MOVE "Text" OF TX-TEXTO TO Z-A
MOVE Z-A TO VARIABLE-COPY

Holaaaaa

No uses copy, usa include

Código COBOL:

#include "empresa.cob".

Si hubiera que poner ruta, se la ponés...

Saludos.

Fito...

Begoguay ya había pensado en eso. Pero me resisto a pensar que tenga que ser así.

---------- Post añadido : 22:43 ---------- Post anterior : 22:42 ----------

Fito al utilizar el include es solo sustituir el copy por el include no hay que hacer nada mas.

---------- Post añadido : 02:02 ---------- Post anterior : 22:43 ----------

Fito muchas gracias ya utilice el include y todo funciono perfecto.

@Fabio, este warning en concreto puedes ignorarlo completamente sin ningún problema.

Kurk si lo puedo ignorar si los campos de la FD son alfanuméricos pero en el caso de que el Texbox sea numérico cuando lo muevo para el campo de la FD me mueve espacio.

---------- Post añadido : 12:16 ---------- Post anterior : 12:14 ----------

El problema en concreto es con el campo DIA-EMP que es numérico.

Cita:

Citación del post de Fabio (Mensaje 6972)

el caso de que el Texbox sea numérico cuando lo muevo para el campo de la FD me mueve espacio

Porque una cosa de dos: o defines el CmText como numérico en sus propiedades poniendo el PIC correspondiente, o pasa por Cobol haciendo un MOVE demás.

Kuk el CmText lo tengo definido como PIC Z9 que es numérico editado

@Fabio, los editados "Z" son considerados por el compilador como Alfanuméricos y en ningún caso como Numéricos. Cosa lógica porque llevan espacios, comas, rejillas/almohadillas y demás adornos ;)