• gnu cobol --- multiple screens overwriting each other --- please help!

    From Mayer Goldberg@mayer.goldberg@gmail.com to comp.lang.cobol on Sat Sep 29 09:12:57 2018
    From Newsgroup: comp.lang.cobol

    Hello:
    I'm using screens (in the screen section) to manage IO, and I have several menus implemented this way. The problem I have is that when switching from one display menu-1 to display menu-2, the old screens are not erased but overwritten. So I get this funky display that shows the new screen on top of the old one, and this is not readable.
    Is there an option to clear the screen or tell it not to replace the old one? Thanks!
    Mayer
    PS: I'm using gnu cobol version 3.0 running on top of linux
    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From pete dashwood@dashwood@enternet.co.nz to comp.lang.cobol on Mon Oct 1 16:36:43 2018
    From Newsgroup: comp.lang.cobol

    On 30/09/2018 5:12 AM, Mayer Goldberg wrote:
    Hello:

    I'm using screens (in the screen section) to manage IO, and I have several menus implemented this way. The problem I have is that when switching from one display menu-1 to display menu-2, the old screens are not erased but overwritten. So I get this funky display that shows the new screen on top of the old one, and this is not readable.

    Is there an option to clear the screen or tell it not to replace the old one?

    Thanks!

    Mayer

    PS: I'm using gnu cobol version 3.0 running on top of linux

    I don't have Gnu COBOL (but I know it is a very good implementation so
    it probably follows the standards...)

    You may find the BLANK LINE and BLANK SCREEN clauses useful in this
    regard...

    Pete.
    --
    I used to write COBOL; now I can do anything...
    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From Richard@riplin@azonic.co.nz to comp.lang.cobol on Sun Sep 30 23:02:01 2018
    From Newsgroup: comp.lang.cobol

    On Monday, October 1, 2018 at 4:36:49 PM UTC+13, pete dashwood wrote:
    On 30/09/2018 5:12 AM, Mayer Goldberg wrote:
    Hello:

    I'm using screens (in the screen section) to manage IO, and I have several menus implemented this way. The problem I have is that when switching from one display menu-1 to display menu-2, the old screens are not erased but overwritten. So I get this funky display that shows the new screen on top of the old one, and this is not readable.

    Is there an option to clear the screen or tell it not to replace the old one?

    As Pete says: WITH BLANK SCREEN will do it.
    You should know that a DISPLAY of a screen section item will only display the named (non-filler) items. This can be useful to overlay parts of the screen with different attributes by redefining the item in different ways and displaying these various redefinitions.
    In your case you may want a redefinition as a pic x(2000) with a name so that all 2000 characters (or whatever size it is) are displayed.
    Thanks!

    Mayer

    PS: I'm using gnu cobol version 3.0 running on top of linux

    I don't have Gnu COBOL (but I know it is a very good implementation so
    it probably follows the standards...)

    You may find the BLANK LINE and BLANK SCREEN clauses useful in this regard...

    Pete.

    --
    I used to write COBOL; now I can do anything...
    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From docdwarf@docdwarf@panix.com () to comp.lang.cobol on Mon Oct 1 13:34:26 2018
    From Newsgroup: comp.lang.cobol

    In article <bdbff74e-30c6-4ce6-90d6-237bca4b38ca@googlegroups.com>,
    Richard <riplin@azonic.co.nz> wrote:
    On Monday, October 1, 2018 at 4:36:49 PM UTC+13, pete dashwood wrote:
    On 30/09/2018 5:12 AM, Mayer Goldberg wrote:
    Hello:

    [snip]

    Is there an option to clear the screen or tell it not to replace the old one?


    As Pete says: WITH BLANK SCREEN will do it.

    It is starting to sound like Mr Goldberg has inherited a system and is beginning to realise the depths of 'sure, I can handle that...'

    DD
    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From Bill Gunshannon@bill.gunshannon@gmail.com to comp.lang.cobol on Mon Oct 1 09:42:16 2018
    From Newsgroup: comp.lang.cobol

    On 10/01/2018 09:34 AM, docdwarf@panix.com wrote:
    In article <bdbff74e-30c6-4ce6-90d6-237bca4b38ca@googlegroups.com>,
    Richard <riplin@azonic.co.nz> wrote:
    On Monday, October 1, 2018 at 4:36:49 PM UTC+13, pete dashwood wrote:
    On 30/09/2018 5:12 AM, Mayer Goldberg wrote:
    Hello:

    [snip]

    Is there an option to clear the screen or tell it not to replace the old one?


    As Pete says: WITH BLANK SCREEN will do it.

    It is starting to sound like Mr Goldberg has inherited a system and is beginning to realise the depths of 'sure, I can handle that...'


    I still blame academia. :-)

    bill

    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From Mayer Goldberg@mayer.goldberg@gmail.com to comp.lang.cobol on Mon Oct 1 19:22:55 2018
    From Newsgroup: comp.lang.cobol

    On Monday, October 1, 2018 at 4:34:27 PM UTC+3, docd...@panix.com wrote:
    In article <bdbff74e-30c6-4ce6-90d6-237bca4b38ca@googlegroups.com>,
    Richard <riplin@azonic.co.nz> wrote:
    On Monday, October 1, 2018 at 4:36:49 PM UTC+13, pete dashwood wrote:
    On 30/09/2018 5:12 AM, Mayer Goldberg wrote:
    Hello:

    [snip]

    Is there an option to clear the screen or tell it not to replace the old one?


    As Pete says: WITH BLANK SCREEN will do it.

    It is starting to sound like Mr Goldberg has inherited a system and is beginning to realise the depths of 'sure, I can handle that...'

    DD
    Not at all. Mr Goldberg is learning cobol for fun and interest, not planning on earning a living through cobol, and is managing quite nicely with screen sections. :-) I inherited no system... I wish I had access to a mainframe and could have played with cics too, but screens will have to do for now.
    Mayer
    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From Mayer Goldberg@mayer.goldberg@gmail.com to comp.lang.cobol on Mon Oct 1 19:23:18 2018
    From Newsgroup: comp.lang.cobol

    On Monday, October 1, 2018 at 4:42:18 PM UTC+3, Bill Gunshannon wrote:
    On 10/01/2018 09:34 AM, docdwarf@panix.com wrote:
    In article <bdbff74e-30c6-4ce6-90d6-237bca4b38ca@googlegroups.com>,
    Richard <riplin@azonic.co.nz> wrote:
    On Monday, October 1, 2018 at 4:36:49 PM UTC+13, pete dashwood wrote:
    On 30/09/2018 5:12 AM, Mayer Goldberg wrote:
    Hello:

    [snip]

    Is there an option to clear the screen or tell it not to replace the old one?


    As Pete says: WITH BLANK SCREEN will do it.

    It is starting to sound like Mr Goldberg has inherited a system and is beginning to realise the depths of 'sure, I can handle that...'


    I still blame academia. :-)

    bill

    What for? :-)
    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From Richard@riplin@azonic.co.nz to comp.lang.cobol on Mon Oct 1 21:30:19 2018
    From Newsgroup: comp.lang.cobol

    On Tuesday, October 2, 2018 at 3:22:56 PM UTC+13, Mayer Goldberg wrote:
    On Monday, October 1, 2018 at 4:34:27 PM UTC+3, docd...@panix.com wrote:
    In article <bdbff74e-30c6-4ce6-90d6-237bca4b38ca@googlegroups.com>,
    Richard <riplin@azonic.co.nz> wrote:
    On Monday, October 1, 2018 at 4:36:49 PM UTC+13, pete dashwood wrote:
    On 30/09/2018 5:12 AM, Mayer Goldberg wrote:
    Hello:

    [snip]

    Is there an option to clear the screen or tell it not to replace the old one?


    As Pete says: WITH BLANK SCREEN will do it.

    It is starting to sound like Mr Goldberg has inherited a system and is beginning to realise the depths of 'sure, I can handle that...'

    DD

    Not at all. Mr Goldberg is learning cobol for fun and interest, not planning on earning a living through cobol, and is managing quite nicely with screen sections. :-) I inherited no system... I wish I had access to a mainframe and could have played with cics too, but screens will have to do for now.

    I never bothered with SCREEN SECTION, too tedious (and anyway my systems were originally developed in COBOL 74. You can DISPLAY working-storage items UPON CRT
    (or however). I would setup a 2000 character screen image in W-S and then redefine this naming just the input fields. Set the colour to background, display the whole screen, set the colour to foreground and display the input fields then for each input field set the colour to input display and accept the field AT linecol.
    I then (this is early 80s) wrote a screen generator that would take a text file of the layout with a list of the input/output fields and generate the W-S and the COBOL code to display the screen and accept the fields.
    The 'list of input/output fields' included the field's name, order of entry (zero if it was just a display field), a prompt to be displayed at the foot of the screen, a paragraph name to be used to validate the field, other stuff.
    Then I shifted to using Flexus SP2 which is even nicer.
    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From Bill Gunshannon@bill.gunshannon@gmail.com to comp.lang.cobol on Tue Oct 2 07:20:21 2018
    From Newsgroup: comp.lang.cobol

    On 10/01/2018 10:23 PM, Mayer Goldberg wrote:
    On Monday, October 1, 2018 at 4:42:18 PM UTC+3, Bill Gunshannon wrote:
    On 10/01/2018 09:34 AM, docdwarf@panix.com wrote:
    In article <bdbff74e-30c6-4ce6-90d6-237bca4b38ca@googlegroups.com>,
    Richard <riplin@azonic.co.nz> wrote:
    On Monday, October 1, 2018 at 4:36:49 PM UTC+13, pete dashwood wrote: >>>>> On 30/09/2018 5:12 AM, Mayer Goldberg wrote:
    Hello:

    [snip]

    Is there an option to clear the screen or tell it not to replace the old one?


    As Pete says: WITH BLANK SCREEN will do it.

    It is starting to sound like Mr Goldberg has inherited a system and is
    beginning to realise the depths of 'sure, I can handle that...'


    I still blame academia. :-)

    bill

    What for? :-)


    The continuing attempt to murder COBOL. A language designed for
    a specific purpose which it still performs very well. And which
    is still in a much wider use than many (including here) refuse
    to accept.

    bill
    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From halfmaddad@halfmaddad@gmail.com to comp.lang.cobol on Tue Oct 2 17:26:43 2018
    From Newsgroup: comp.lang.cobol

    Not sure why you didn't post to the GnuCOBOL forum, you would have had help in under an hour but the solution is very simple, you are not blanking your screen.

    Just do this

    screen section.
    your code..

    01 blank-screen blank screen.

    procedure division.

    display blank-screen

    display your-screen
    display blank-screen
    display another-screen

    etc
    --- Synchronet 3.20a-Linux NewsLink 1.114
  • From Bob Wolfe@rtwolfe78@gmail.com to comp.lang.cobol on Wed Oct 3 04:07:13 2018
    From Newsgroup: comp.lang.cobol

    On Tuesday, October 2, 2018 at 12:30:20 AM UTC-4, Richard wrote:
    On Tuesday, October 2, 2018 at 3:22:56 PM UTC+13, Mayer Goldberg wrote:
    On Monday, October 1, 2018 at 4:34:27 PM UTC+3, docd...@panix.com wrote:
    In article <bdbff74e-30c6-4ce6-90d6-237bca4b38ca@googlegroups.com>, Richard <riplin@azonic.co.nz> wrote:
    On Monday, October 1, 2018 at 4:36:49 PM UTC+13, pete dashwood wrote:
    On 30/09/2018 5:12 AM, Mayer Goldberg wrote:
    Hello:

    [snip]

    Is there an option to clear the screen or tell it not to replace the old one?


    As Pete says: WITH BLANK SCREEN will do it.

    It is starting to sound like Mr Goldberg has inherited a system and is beginning to realise the depths of 'sure, I can handle that...'

    DD

    Not at all. Mr Goldberg is learning cobol for fun and interest, not planning on earning a living through cobol, and is managing quite nicely with screen sections. :-) I inherited no system... I wish I had access to a mainframe and could have played with cics too, but screens will have to do for now.


    I never bothered with SCREEN SECTION, too tedious (and anyway my systems were originally developed in COBOL 74. You can DISPLAY working-storage items UPON CRT
    (or however). I would setup a 2000 character screen image in W-S and then redefine this naming just the input fields. Set the colour to background, display the whole screen, set the colour to foreground and display the input fields then for each input field set the colour to input display and accept the field AT linecol.

    I then (this is early 80s) wrote a screen generator that would take a text file of the layout with a list of the input/output fields and generate the W-S and the COBOL code to display the screen and accept the fields.

    The 'list of input/output fields' included the field's name, order of entry (zero if it was just a display field), a prompt to be displayed at the foot of the screen, a paragraph name to be used to validate the field, other stuff.

    Then I shifted to using Flexus SP2 which is even nicer.
    Richard,
    Thank you for the kind comments!!
    Flexus is still providing user interface tools (including web browser user interface and thin client user interface), printing tools, etc. for COBOL programmers. During the past few years, we have also expanded into the conversions market. We have automated tools which we use in-house to automatically convert older COBOL source code to add GUI screens, web browser user interface screens, etc. We also help programmers move from compilers which are no longer supported (mbp, Realia, etc.) to those which are supported. We support all COBOL compilers for conversion purposes.
    Thank you again....and please forgive me for my opportunism to post a shameless plug!! ;-)
    --- Synchronet 3.20a-Linux NewsLink 1.114