Skip to main content
Display LABEL "Test"

             SIZE 40 CELLS centered    

             LINE 03 COL 01

Above logic I have written,  but i dont have clue how to close the label screen logically. ?

 

 

 

Display LABEL "Test"

             SIZE 40 CELLS centered    

             LINE 03 COL 01

Above logic I have written,  but i dont have clue how to close the label screen logically. ?

 

 

 

Please help me on this. ( I mean what is the syntax for destroy label?)

Display LABEL "Test"

             SIZE 40 CELLS centered    

             LINE 03 COL 01

Above logic I have written,  but i dont have clue how to close the label screen logically. ?

 

 

 

When you mean close the label - are you stating that you no longer want the label at all, or perhaps make it invisible? Using a Procedural Display like you are doing the label needs to have a handle. In the syntax I'm providing my-lb-handle is defined in working-storage ... 01 my-lb-handle usage handle.

Display LABEL "Test"

             SIZE 40 CELLS centered    LINE 03 COL 01

Should be

Display LABEL "Test"

             SIZE 40 CELLS centered     LINE 03 COL 01 handle my-lb-handle  

Now you can Destroy my-lb-handle. That will remove it from the screen. Or if you want to change properties of the label, you could Modify my-lb-handle visible my-vis-variable.   my-vis-variable is defined in working-storage.

 

When you mean close the label - are you stating that you no longer want the label at all, or perhaps make it invisible? Using a Procedural Display like you are doing the label needs to have a handle. In the syntax I'm providing my-lb-handle is defined in working-storage ... 01 my-lb-handle usage handle.

Display LABEL "Test"

             SIZE 40 CELLS centered    LINE 03 COL 01

Should be

Display LABEL "Test"

             SIZE 40 CELLS centered     LINE 03 COL 01 handle my-lb-handle  

Now you can Destroy my-lb-handle. That will remove it from the screen. Or if you want to change properties of the label, you could Modify my-lb-handle visible my-vis-variable.   my-vis-variable is defined in working-storage.

 

Yes, i dont want label due to some condition.

I have tried below your logic.

01 my-lb-handle usage handle

Display LABEL "Test"

             SIZE 40 CELLS centered     LINE 03 COL 01 handle my-lb-handle.

Destroy  my-lb-handle .

=================

Result shows label still exist....but, "Test " word is getting destroyed..

I want to destroy the label based on my condition.

 

 

Yes, i dont want label due to some condition.

I have tried below your logic.

01 my-lb-handle usage handle

Display LABEL "Test"

             SIZE 40 CELLS centered     LINE 03 COL 01 handle my-lb-handle.

Destroy  my-lb-handle .

=================

Result shows label still exist....but, "Test " word is getting destroyed..

I want to destroy the label based on my condition.

 

 

How do you know the label is still there.Attaching simple program, I have added a color to the label. white foreground, black background. When the label handle is destroyed the label is no longer there.

WORKING-STORAGE SECTION.
01 my-lb-handle usage handle.
01 Screen1-Handle usage handle.
******************************************************************
PROCEDURE DIVISION.

Main Section.

DISPLAY Standard GRAPHICAL WINDOW
SCREEN LINE 22, SCREEN COLUMN 22,
LINES 22, SIZE 24, CELL HEIGHT 10,
CELL WIDTH 10, AUTO-MINIMIZE, COLOR IS 65793,
LABEL-OFFSET 0, LINK TO THREAD, MODELESS, NO SCROLL,
WITH SYSTEM MENU,
TITLE "Screen", TITLE-BAR, NO WRAP,
HANDLE IS Screen1-Handle.

Display LABEL "Test"
SIZE 12 CELLS centered COLOR IS 48
LINE 03 COL 02 handle my-lb-handle.
accept omitted.
Destroy my-lb-handle .
accept omitted.

Exit Program.
Stop Run.

Terms & ConditionsAccessibility statement