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. ?
AcuGT cobol -clarifications on Display LABEL logic
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.
Recent badge winners
Sign up
Already have an account? Login
Welcome to the Rocket Forum!
Please log in or register:
Employee Login | Registration Member Login | RegistrationEnter your E-mail address. We'll send you an e-mail with instructions to reset your password.
77 4th Avenue
Waltham, MA 02451 USA
