Skip to main content

RM/COBOL pop-up windows in Visual COBOL .NET

  • October 26, 2011
  • 8 replies
  • 0 views
D

[Migrated content. Thread originally posted on 24 October 2011]

I could verify that all the characteristics of RM/COBOL we use are working fine, except pop-up windows. Normally, we define the structure below:

01 WCB.
03 WCB-HANDLE PIC 999 BINARY VALUE 0.
03 WCB-NUM-FILAS PIC 999 BINARY.
03 WCB-NUM-COLUMNAS PIC 999 BINARY.
03 WCB-POSICION PIC X VALUE "W".
88 WCB-POSICION-RELATIVA-PANTALLA VALUE "S".
88 WCB-POSICION-RELATIVA-VENTANA VALUE "W".

03 WCB-BORDE PIC X VALUE "Y".
88 WCB-BORDER-ON VALUE "Y".
03 WCB-TIPO-BORDE PIC 9.
03 WCB-CARACTER-BORDE PIC X.

03 WCB-RECUBRIR PIC X.
88 WCB-RECUBRIR-ON VALUE "Y".
03 WCB-CARACTER-RECUBRIR PIC X.

03 WCB-POSICION-TITULO PIC X.
88 WCB-TITULO-ARRIBA VALUE "T".
88 WCB-TITULO-ABAJO VALUE "B".
03 WCB-SITUACION-TITULO PIC X.
88 WCB-TITULO-CENTRADO VALUE "C".
88 WCB-TITULO-IZQUIERDA VALUE "L".
88 WCB-TITULO-DERECHA VALUE "R".
03 WCB-LONGITUD-TITULO PIC 999 BINARY.
03 WCB-TITULO PIC X(64).

In the procedure division is as simple as filling out the vars and display the structure:

MOVE WCB TO WCB-G.
COMPUTE WCB-NUM-FILAS = 10.
COMPUTE WCB-NUM-COLUMNAS = 62.
MOVE "Y" TO WCB-BORDE.
MOVE " VENTAS VENDEDORES " TO WCB-TITULO.
MOVE 20 TO WCB-LONGITUD-TITULO.
MOVE "C" TO WCB-SITUACION-TITULO.
MOVE "T" TO WCB-POSICION-TITULO.

DISPLAY WCB HIGH ERASE LINE 21 COL 2
CONTROL "WINDOW-CREATE".
The result of these operations is a new pop-up window which saves the portion of the screen used, and you can restore it later.

Those commands do not work in Visual COBOL. After a few hours digging into the documentation, I can't figure out how to create these windows.

    8 replies

    D

    [Migrated content. Thread originally posted on 24 October 2011]

    I could verify that all the characteristics of RM/COBOL we use are working fine, except pop-up windows. Normally, we define the structure below:

    01 WCB.
    03 WCB-HANDLE PIC 999 BINARY VALUE 0.
    03 WCB-NUM-FILAS PIC 999 BINARY.
    03 WCB-NUM-COLUMNAS PIC 999 BINARY.
    03 WCB-POSICION PIC X VALUE "W".
    88 WCB-POSICION-RELATIVA-PANTALLA VALUE "S".
    88 WCB-POSICION-RELATIVA-VENTANA VALUE "W".

    03 WCB-BORDE PIC X VALUE "Y".
    88 WCB-BORDER-ON VALUE "Y".
    03 WCB-TIPO-BORDE PIC 9.
    03 WCB-CARACTER-BORDE PIC X.

    03 WCB-RECUBRIR PIC X.
    88 WCB-RECUBRIR-ON VALUE "Y".
    03 WCB-CARACTER-RECUBRIR PIC X.

    03 WCB-POSICION-TITULO PIC X.
    88 WCB-TITULO-ARRIBA VALUE "T".
    88 WCB-TITULO-ABAJO VALUE "B".
    03 WCB-SITUACION-TITULO PIC X.
    88 WCB-TITULO-CENTRADO VALUE "C".
    88 WCB-TITULO-IZQUIERDA VALUE "L".
    88 WCB-TITULO-DERECHA VALUE "R".
    03 WCB-LONGITUD-TITULO PIC 999 BINARY.
    03 WCB-TITULO PIC X(64).

    In the procedure division is as simple as filling out the vars and display the structure:

    MOVE WCB TO WCB-G.
    COMPUTE WCB-NUM-FILAS = 10.
    COMPUTE WCB-NUM-COLUMNAS = 62.
    MOVE "Y" TO WCB-BORDE.
    MOVE " VENTAS VENDEDORES " TO WCB-TITULO.
    MOVE 20 TO WCB-LONGITUD-TITULO.
    MOVE "C" TO WCB-SITUACION-TITULO.
    MOVE "T" TO WCB-POSICION-TITULO.

    DISPLAY WCB HIGH ERASE LINE 21 COL 2
    CONTROL "WINDOW-CREATE".
    The result of these operations is a new pop-up window which saves the portion of the screen used, and you can restore it later.

    Those commands do not work in Visual COBOL. After a few hours digging into the documentation, I can't figure out how to create these windows.
    Is there any other possibility for using popup windows, in Visual COBOL, or should we build our own solution?
    Chris Glazier
    Forum|alt.badge.img+2

    [Migrated content. Thread originally posted on 24 October 2011]

    I could verify that all the characteristics of RM/COBOL we use are working fine, except pop-up windows. Normally, we define the structure below:

    01 WCB.
    03 WCB-HANDLE PIC 999 BINARY VALUE 0.
    03 WCB-NUM-FILAS PIC 999 BINARY.
    03 WCB-NUM-COLUMNAS PIC 999 BINARY.
    03 WCB-POSICION PIC X VALUE "W".
    88 WCB-POSICION-RELATIVA-PANTALLA VALUE "S".
    88 WCB-POSICION-RELATIVA-VENTANA VALUE "W".

    03 WCB-BORDE PIC X VALUE "Y".
    88 WCB-BORDER-ON VALUE "Y".
    03 WCB-TIPO-BORDE PIC 9.
    03 WCB-CARACTER-BORDE PIC X.

    03 WCB-RECUBRIR PIC X.
    88 WCB-RECUBRIR-ON VALUE "Y".
    03 WCB-CARACTER-RECUBRIR PIC X.

    03 WCB-POSICION-TITULO PIC X.
    88 WCB-TITULO-ARRIBA VALUE "T".
    88 WCB-TITULO-ABAJO VALUE "B".
    03 WCB-SITUACION-TITULO PIC X.
    88 WCB-TITULO-CENTRADO VALUE "C".
    88 WCB-TITULO-IZQUIERDA VALUE "L".
    88 WCB-TITULO-DERECHA VALUE "R".
    03 WCB-LONGITUD-TITULO PIC 999 BINARY.
    03 WCB-TITULO PIC X(64).

    In the procedure division is as simple as filling out the vars and display the structure:

    MOVE WCB TO WCB-G.
    COMPUTE WCB-NUM-FILAS = 10.
    COMPUTE WCB-NUM-COLUMNAS = 62.
    MOVE "Y" TO WCB-BORDE.
    MOVE " VENTAS VENDEDORES " TO WCB-TITULO.
    MOVE 20 TO WCB-LONGITUD-TITULO.
    MOVE "C" TO WCB-SITUACION-TITULO.
    MOVE "T" TO WCB-POSICION-TITULO.

    DISPLAY WCB HIGH ERASE LINE 21 COL 2
    CONTROL "WINDOW-CREATE".
    The result of these operations is a new pop-up window which saves the portion of the screen used, and you can restore it later.

    Those commands do not work in Visual COBOL. After a few hours digging into the documentation, I can't figure out how to create these windows.
    We are looking into various alternatives for you as this syntax is not currently supported in Visual COBOL.

    I will update this post when I receive a reply from development.

    If you e-mail me directly with your name and contact information I will be happy to create a support incident for you with Customer Care so that we may better track this request.

    Please send e-mail to chris.glazier@microfocus.com

    Thanks.
    D

    [Migrated content. Thread originally posted on 24 October 2011]

    I could verify that all the characteristics of RM/COBOL we use are working fine, except pop-up windows. Normally, we define the structure below:

    01 WCB.
    03 WCB-HANDLE PIC 999 BINARY VALUE 0.
    03 WCB-NUM-FILAS PIC 999 BINARY.
    03 WCB-NUM-COLUMNAS PIC 999 BINARY.
    03 WCB-POSICION PIC X VALUE "W".
    88 WCB-POSICION-RELATIVA-PANTALLA VALUE "S".
    88 WCB-POSICION-RELATIVA-VENTANA VALUE "W".

    03 WCB-BORDE PIC X VALUE "Y".
    88 WCB-BORDER-ON VALUE "Y".
    03 WCB-TIPO-BORDE PIC 9.
    03 WCB-CARACTER-BORDE PIC X.

    03 WCB-RECUBRIR PIC X.
    88 WCB-RECUBRIR-ON VALUE "Y".
    03 WCB-CARACTER-RECUBRIR PIC X.

    03 WCB-POSICION-TITULO PIC X.
    88 WCB-TITULO-ARRIBA VALUE "T".
    88 WCB-TITULO-ABAJO VALUE "B".
    03 WCB-SITUACION-TITULO PIC X.
    88 WCB-TITULO-CENTRADO VALUE "C".
    88 WCB-TITULO-IZQUIERDA VALUE "L".
    88 WCB-TITULO-DERECHA VALUE "R".
    03 WCB-LONGITUD-TITULO PIC 999 BINARY.
    03 WCB-TITULO PIC X(64).

    In the procedure division is as simple as filling out the vars and display the structure:

    MOVE WCB TO WCB-G.
    COMPUTE WCB-NUM-FILAS = 10.
    COMPUTE WCB-NUM-COLUMNAS = 62.
    MOVE "Y" TO WCB-BORDE.
    MOVE " VENTAS VENDEDORES " TO WCB-TITULO.
    MOVE 20 TO WCB-LONGITUD-TITULO.
    MOVE "C" TO WCB-SITUACION-TITULO.
    MOVE "T" TO WCB-POSICION-TITULO.

    DISPLAY WCB HIGH ERASE LINE 21 COL 2
    CONTROL "WINDOW-CREATE".
    The result of these operations is a new pop-up window which saves the portion of the screen used, and you can restore it later.

    Those commands do not work in Visual COBOL. After a few hours digging into the documentation, I can't figure out how to create these windows.
    Hello Chris,

    Any news about this old problem?

    Regards
    D

    [Migrated content. Thread originally posted on 24 October 2011]

    I could verify that all the characteristics of RM/COBOL we use are working fine, except pop-up windows. Normally, we define the structure below:

    01 WCB.
    03 WCB-HANDLE PIC 999 BINARY VALUE 0.
    03 WCB-NUM-FILAS PIC 999 BINARY.
    03 WCB-NUM-COLUMNAS PIC 999 BINARY.
    03 WCB-POSICION PIC X VALUE "W".
    88 WCB-POSICION-RELATIVA-PANTALLA VALUE "S".
    88 WCB-POSICION-RELATIVA-VENTANA VALUE "W".

    03 WCB-BORDE PIC X VALUE "Y".
    88 WCB-BORDER-ON VALUE "Y".
    03 WCB-TIPO-BORDE PIC 9.
    03 WCB-CARACTER-BORDE PIC X.

    03 WCB-RECUBRIR PIC X.
    88 WCB-RECUBRIR-ON VALUE "Y".
    03 WCB-CARACTER-RECUBRIR PIC X.

    03 WCB-POSICION-TITULO PIC X.
    88 WCB-TITULO-ARRIBA VALUE "T".
    88 WCB-TITULO-ABAJO VALUE "B".
    03 WCB-SITUACION-TITULO PIC X.
    88 WCB-TITULO-CENTRADO VALUE "C".
    88 WCB-TITULO-IZQUIERDA VALUE "L".
    88 WCB-TITULO-DERECHA VALUE "R".
    03 WCB-LONGITUD-TITULO PIC 999 BINARY.
    03 WCB-TITULO PIC X(64).

    In the procedure division is as simple as filling out the vars and display the structure:

    MOVE WCB TO WCB-G.
    COMPUTE WCB-NUM-FILAS = 10.
    COMPUTE WCB-NUM-COLUMNAS = 62.
    MOVE "Y" TO WCB-BORDE.
    MOVE " VENTAS VENDEDORES " TO WCB-TITULO.
    MOVE 20 TO WCB-LONGITUD-TITULO.
    MOVE "C" TO WCB-SITUACION-TITULO.
    MOVE "T" TO WCB-POSICION-TITULO.

    DISPLAY WCB HIGH ERASE LINE 21 COL 2
    CONTROL "WINDOW-CREATE".
    The result of these operations is a new pop-up window which saves the portion of the screen used, and you can restore it later.

    Those commands do not work in Visual COBOL. After a few hours digging into the documentation, I can't figure out how to create these windows.

    Anything further happen here?

    D

    [Migrated content. Thread originally posted on 24 October 2011]

    I could verify that all the characteristics of RM/COBOL we use are working fine, except pop-up windows. Normally, we define the structure below:

    01 WCB.
    03 WCB-HANDLE PIC 999 BINARY VALUE 0.
    03 WCB-NUM-FILAS PIC 999 BINARY.
    03 WCB-NUM-COLUMNAS PIC 999 BINARY.
    03 WCB-POSICION PIC X VALUE "W".
    88 WCB-POSICION-RELATIVA-PANTALLA VALUE "S".
    88 WCB-POSICION-RELATIVA-VENTANA VALUE "W".

    03 WCB-BORDE PIC X VALUE "Y".
    88 WCB-BORDER-ON VALUE "Y".
    03 WCB-TIPO-BORDE PIC 9.
    03 WCB-CARACTER-BORDE PIC X.

    03 WCB-RECUBRIR PIC X.
    88 WCB-RECUBRIR-ON VALUE "Y".
    03 WCB-CARACTER-RECUBRIR PIC X.

    03 WCB-POSICION-TITULO PIC X.
    88 WCB-TITULO-ARRIBA VALUE "T".
    88 WCB-TITULO-ABAJO VALUE "B".
    03 WCB-SITUACION-TITULO PIC X.
    88 WCB-TITULO-CENTRADO VALUE "C".
    88 WCB-TITULO-IZQUIERDA VALUE "L".
    88 WCB-TITULO-DERECHA VALUE "R".
    03 WCB-LONGITUD-TITULO PIC 999 BINARY.
    03 WCB-TITULO PIC X(64).

    In the procedure division is as simple as filling out the vars and display the structure:

    MOVE WCB TO WCB-G.
    COMPUTE WCB-NUM-FILAS = 10.
    COMPUTE WCB-NUM-COLUMNAS = 62.
    MOVE "Y" TO WCB-BORDE.
    MOVE " VENTAS VENDEDORES " TO WCB-TITULO.
    MOVE 20 TO WCB-LONGITUD-TITULO.
    MOVE "C" TO WCB-SITUACION-TITULO.
    MOVE "T" TO WCB-POSICION-TITULO.

    DISPLAY WCB HIGH ERASE LINE 21 COL 2
    CONTROL "WINDOW-CREATE".
    The result of these operations is a new pop-up window which saves the portion of the screen used, and you can restore it later.

    Those commands do not work in Visual COBOL. After a few hours digging into the documentation, I can't figure out how to create these windows.

    Hi Steve,

    Thanks for chasing us, the answer is yes, there is some news to report.

    With Visual COBOL 2.1 we’ve reinstated the Windows1 pre-processor which has limited support for ACUCOBOL and RM/COBOL ACCEPT/DISPLAY functionality.

    The pre-processor does not currently support the demo Voyager posted but we will be enhancing this support to provide significant ACCEPT/DISPLAY coverage.

    You can find out more about current Window1 capabilities below and I’ve attached a couple of demos on the files tab which show how to use the pre-processor (DISPLAY WINDOW, BOX, LINE).

    Expect notice of Visual COBOL 2.1 imminently.

    Regards, Scot

    supportline.microfocus.com/.../uiwnsy.htm

    1 Attachments
    D

    [Migrated content. Thread originally posted on 24 October 2011]

    I could verify that all the characteristics of RM/COBOL we use are working fine, except pop-up windows. Normally, we define the structure below:

    01 WCB.
    03 WCB-HANDLE PIC 999 BINARY VALUE 0.
    03 WCB-NUM-FILAS PIC 999 BINARY.
    03 WCB-NUM-COLUMNAS PIC 999 BINARY.
    03 WCB-POSICION PIC X VALUE "W".
    88 WCB-POSICION-RELATIVA-PANTALLA VALUE "S".
    88 WCB-POSICION-RELATIVA-VENTANA VALUE "W".

    03 WCB-BORDE PIC X VALUE "Y".
    88 WCB-BORDER-ON VALUE "Y".
    03 WCB-TIPO-BORDE PIC 9.
    03 WCB-CARACTER-BORDE PIC X.

    03 WCB-RECUBRIR PIC X.
    88 WCB-RECUBRIR-ON VALUE "Y".
    03 WCB-CARACTER-RECUBRIR PIC X.

    03 WCB-POSICION-TITULO PIC X.
    88 WCB-TITULO-ARRIBA VALUE "T".
    88 WCB-TITULO-ABAJO VALUE "B".
    03 WCB-SITUACION-TITULO PIC X.
    88 WCB-TITULO-CENTRADO VALUE "C".
    88 WCB-TITULO-IZQUIERDA VALUE "L".
    88 WCB-TITULO-DERECHA VALUE "R".
    03 WCB-LONGITUD-TITULO PIC 999 BINARY.
    03 WCB-TITULO PIC X(64).

    In the procedure division is as simple as filling out the vars and display the structure:

    MOVE WCB TO WCB-G.
    COMPUTE WCB-NUM-FILAS = 10.
    COMPUTE WCB-NUM-COLUMNAS = 62.
    MOVE "Y" TO WCB-BORDE.
    MOVE " VENTAS VENDEDORES " TO WCB-TITULO.
    MOVE 20 TO WCB-LONGITUD-TITULO.
    MOVE "C" TO WCB-SITUACION-TITULO.
    MOVE "T" TO WCB-POSICION-TITULO.

    DISPLAY WCB HIGH ERASE LINE 21 COL 2
    CONTROL "WINDOW-CREATE".
    The result of these operations is a new pop-up window which saves the portion of the screen used, and you can restore it later.

    Those commands do not work in Visual COBOL. After a few hours digging into the documentation, I can't figure out how to create these windows.

    Attached the demos

    1 Attachments
    D

    [Migrated content. Thread originally posted on 24 October 2011]

    I could verify that all the characteristics of RM/COBOL we use are working fine, except pop-up windows. Normally, we define the structure below:

    01 WCB.
    03 WCB-HANDLE PIC 999 BINARY VALUE 0.
    03 WCB-NUM-FILAS PIC 999 BINARY.
    03 WCB-NUM-COLUMNAS PIC 999 BINARY.
    03 WCB-POSICION PIC X VALUE "W".
    88 WCB-POSICION-RELATIVA-PANTALLA VALUE "S".
    88 WCB-POSICION-RELATIVA-VENTANA VALUE "W".

    03 WCB-BORDE PIC X VALUE "Y".
    88 WCB-BORDER-ON VALUE "Y".
    03 WCB-TIPO-BORDE PIC 9.
    03 WCB-CARACTER-BORDE PIC X.

    03 WCB-RECUBRIR PIC X.
    88 WCB-RECUBRIR-ON VALUE "Y".
    03 WCB-CARACTER-RECUBRIR PIC X.

    03 WCB-POSICION-TITULO PIC X.
    88 WCB-TITULO-ARRIBA VALUE "T".
    88 WCB-TITULO-ABAJO VALUE "B".
    03 WCB-SITUACION-TITULO PIC X.
    88 WCB-TITULO-CENTRADO VALUE "C".
    88 WCB-TITULO-IZQUIERDA VALUE "L".
    88 WCB-TITULO-DERECHA VALUE "R".
    03 WCB-LONGITUD-TITULO PIC 999 BINARY.
    03 WCB-TITULO PIC X(64).

    In the procedure division is as simple as filling out the vars and display the structure:

    MOVE WCB TO WCB-G.
    COMPUTE WCB-NUM-FILAS = 10.
    COMPUTE WCB-NUM-COLUMNAS = 62.
    MOVE "Y" TO WCB-BORDE.
    MOVE " VENTAS VENDEDORES " TO WCB-TITULO.
    MOVE 20 TO WCB-LONGITUD-TITULO.
    MOVE "C" TO WCB-SITUACION-TITULO.
    MOVE "T" TO WCB-POSICION-TITULO.

    DISPLAY WCB HIGH ERASE LINE 21 COL 2
    CONTROL "WINDOW-CREATE".
    The result of these operations is a new pop-up window which saves the portion of the screen used, and you can restore it later.

    Those commands do not work in Visual COBOL. After a few hours digging into the documentation, I can't figure out how to create these windows.

    Many thanks Scot,

    I eagerly await version 2.1!

    regards,

    Steve

    D

    [Migrated content. Thread originally posted on 24 October 2011]

    I could verify that all the characteristics of RM/COBOL we use are working fine, except pop-up windows. Normally, we define the structure below:

    01 WCB.
    03 WCB-HANDLE PIC 999 BINARY VALUE 0.
    03 WCB-NUM-FILAS PIC 999 BINARY.
    03 WCB-NUM-COLUMNAS PIC 999 BINARY.
    03 WCB-POSICION PIC X VALUE "W".
    88 WCB-POSICION-RELATIVA-PANTALLA VALUE "S".
    88 WCB-POSICION-RELATIVA-VENTANA VALUE "W".

    03 WCB-BORDE PIC X VALUE "Y".
    88 WCB-BORDER-ON VALUE "Y".
    03 WCB-TIPO-BORDE PIC 9.
    03 WCB-CARACTER-BORDE PIC X.

    03 WCB-RECUBRIR PIC X.
    88 WCB-RECUBRIR-ON VALUE "Y".
    03 WCB-CARACTER-RECUBRIR PIC X.

    03 WCB-POSICION-TITULO PIC X.
    88 WCB-TITULO-ARRIBA VALUE "T".
    88 WCB-TITULO-ABAJO VALUE "B".
    03 WCB-SITUACION-TITULO PIC X.
    88 WCB-TITULO-CENTRADO VALUE "C".
    88 WCB-TITULO-IZQUIERDA VALUE "L".
    88 WCB-TITULO-DERECHA VALUE "R".
    03 WCB-LONGITUD-TITULO PIC 999 BINARY.
    03 WCB-TITULO PIC X(64).

    In the procedure division is as simple as filling out the vars and display the structure:

    MOVE WCB TO WCB-G.
    COMPUTE WCB-NUM-FILAS = 10.
    COMPUTE WCB-NUM-COLUMNAS = 62.
    MOVE "Y" TO WCB-BORDE.
    MOVE " VENTAS VENDEDORES " TO WCB-TITULO.
    MOVE 20 TO WCB-LONGITUD-TITULO.
    MOVE "C" TO WCB-SITUACION-TITULO.
    MOVE "T" TO WCB-POSICION-TITULO.

    DISPLAY WCB HIGH ERASE LINE 21 COL 2
    CONTROL "WINDOW-CREATE".
    The result of these operations is a new pop-up window which saves the portion of the screen used, and you can restore it later.

    Those commands do not work in Visual COBOL. After a few hours digging into the documentation, I can't figure out how to create these windows.

    I just wanted to add that we had issues with LNK2001 errors and _CBL_WINDOW_OPEN and _CBL_WINDOW_CLOSE when creating dll's or exe's.

    Followed the advice in kb.microfocus.com/.../article.aspx to get around it.

    regards

    Steve

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement