How to determine if the screen is BLANK... 2

[XPPROGRAMMER]

Hello,

I am using windows xp pro with microfocus netexpress.
can you please tell me how to determine if the screen
is Blank in a character-base cobol program?
I would like to test for BLANK screen before displaying
any information with the display syntax.

thanks for your help.

 

[PHV]

Take a look at the CBL_GET_SCR_SIZE and CBL_READ_SCR_CHARS library routines.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[JairGcob]

Ok, my brother, try this: (use ctrl-c / ctrl-v ) )

       Working-storage section.
       01 wBUFFER pic x(2000) value spaces.
       01 wPOS.
          02 wLINE pic 9(2) comp-x value 00.
          02 wCOL  pic 9(2) comp-x value 00.
       01 wSIZE pic 9(4) comp-x value 2000.

       Procedure division.

           call "CBL_READ_SCR_CHARS" using wPOS
                                           wBUFFER 
                                           wSIZE
           if wBUFFER = spaces
              display "Ok - your screen is blank" 
           else
              display "There are anything in your screen"
           end-if

           exit program
           stop run.

Jair