Cobol Foro - [Duda] Algunas instruccion en CobolWOW

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

- RM/COBOL (https://www.cobolforo.es/forumdisplay.php?f=16)

- - [Duda] Algunas instruccion en CobolWOW (https://www.cobolforo.es/showthread.php?t=1132)

DIEGO

29 de abril de 2020 16:58

Algunas instruccion en CobolWOW

Borra todo de combo1:

Código COBOL:

    CALL WOWCLEAR USING WIN-RETURN COMBO1

agrega REG-AUX a combo1:

Código COBOL:

CALL WOWADDITEM USING WIN-RETURN COMBO1-H REG-AUX

combo1 visible:

Código COBOL:

    CALL WOWSETPROP USING WIN-RETURN COMBO1 "Visible" 1.

combo3 invisible:

Código COBOL:

    CALL WOWSETPROP USING WIN-RETURN COMBO3 "Visible" 0.

cerrar programa:

Código COBOL:

    SET WOW-QUIT TO TRUE.

obtiene el dato de combo4 y lo guarda en reg-aux4

Código COBOL:

            CALL WOWGETPROP USING WIN-RETURN COMBO4 "SelText" REG-AUX4.

obtiene el dato de EDIT-CODIGO y lo guarda en M-OPERARIO

Código COBOL:

           CALL WOWGETPROP USING WIN-RETURN EDIT-CODIGO "Text" M-OPERARIO.

pone CODI-AUX en el edit-box CUENTA-DESDE

Código COBOL:

            CALL WOWSETPROP USING WIN-RETURN CUENTA-DESDE "Text" CODI-AUX

pone GEN005-NOMB en STATIC-USUARIO (label)

Código COBOL:

    CALL WOWSETPROP USING WIN-RETURN 
    STATIC-USUARIO "Caption" GEN005-NOMB

Josber

29 de abril de 2020 18:32

Sigo pensando que CobolWOW, es de los COBOL menos "Natural" a la hora de escribir que existe :confused:

Roger

29 de abril de 2020 22:51

Cobol wow lo utilizaba con el rmcobol v7 para los usuarios de rmcobol en forma visual sera de provecho.

Gusaiello

30 de abril de 2020 15:02

Una pregunta @Roger, WOW es un agregado para darle aspecto visual a RM?

Roger

30 de abril de 2020 20:04

@ Gusaiello Asi es con este componente se usa desde rmcobol v7 hasta la version 11 las aplicaciones son en forma visual lastima que en su momento cuando usaba no tenia con quien consultar y el desarrollo del proyecto se hacia lento era autodidacta.
La linea de vida del rmcobol es WOW 3.1 3.2 3.3 Visual Cobol R4 una potente herramienta que aparecio en fecha no correcta.

Gusaiello

30 de abril de 2020 22:08

Y ya que estamos, que opinas sobre AcuCobol?

JCantero

30 de abril de 2020 22:24

Yo ahora por por situaciones diferentes, en el tema cobol solo trabajo con rmcobol y algo de wow (cada vez menos), ya que lo estamos derivando todo a linux y realizando entornos web accediendo y ficheros cobol y ejecutando programas cobol.

Hace unos años, trabajando en otra empresa, se utilizaba y se utiliza acucobol. Para entornos window era y es mucho mejor. Estaba todo mas integrado y la gestion de ficheros en windos muchisimo mas rapida que rmcobol (a semejanza de fujistsu cobol).

En definitiva, los años que estuve trabajando con ambos (rmcobol, acucobol) era mucho mas rápido Acucobol en windows y estaba mas integrado. ( mi opinion )

oswaldo4444

5 de mayo de 2020 18:57

@DIEGO, Hola Diego.... ha realizado alguna vez un

Código COBOL:

call using xyz  ON EXCEPTION

? QUE SE ADICIONA POSTERIOR AL ON EXCEPTION ? gracias

JCantero

5 de mayo de 2020 20:27

@oswaldo4444,

Lo habitual es alertar del error producido.

Si no pones el "exception" y la rutina provoca un error el programa aborta.

Si pones alguna instrucción y se produce un error ejecuta la instruccion y el programa no aborta.

Lo minimo es que no aborte poniendo:

Código COBOL:

call using xyz  
   on exception continue
end-call

o poner alguna informacion:

Código COBOL:

call using xyz  
   on exception 
     display "Error ejecutando la rutina xyz"
     accept ......   ( si deseas que pare)
end-call

La excepción mas corriente es que no exista esa rutina, o que produzca otro tipo de excepción no controlado.

Y lo fundamental en cualquier programa es controlar todas las excepciones, para que llegue a ser estable y mantener el control en cualquier situación.

yiyeya

21 de agosto de 2020 22:40

Programa Cobolwow 3.2

1 Archivos Adjunto(s)

Adjunto programa en rmcobol + cobolwow 3.2

La franja horaria es GMT +2. Ahora son las 13:15.