Here is a example from my program:
Has you can see I use 3 screens, but when I'm in screen 2 push the button with the text "einde" I have to push it twice because the button is from screen 1.
How can I solve this?
Code:
SCREEN SECTION.
01 INVOER-SCHERM.
03 BLANK SCREEN.
03 LABEL TITLE "Datum aanvraag" RIGHT
LINES 2 CELLS SIZE 18 CELLS
LINE 2 COL 5.
03 LABEL VALUE jjjj-e
COL + 2.
03 LABEL VALUE mm-e
COL + 2.
03 LABEL VALUE dd-e
COL + 2.
03 LABEL TITLE "Aanvraagnummer" RIGHT
LINES 2 CELLS SIZE 18 CELLS
COL + 10.
03 LABEL VALUE WS-REGI-NR
COL + 2.
03 LABEL TITLE "Naam klant" RIGHT
LINES 2 CELLS SIZE 18 CELLS
LINE 6 COL 5.
03 SCR-NAAM ENTRY-FIELD
VALUE ws-aanvr-naam
COL + 2
AFTER PROCEDURE 1-zoek-naam.
03 PUSH-BUTTON LINE 38 COL 30
TITLE "&Opslaan"
LINES 2 CELLS SIZE 12 CELLS
EXCEPTION PROCEDURE 2-OPSLAAN.
03 PUSH-BUTTON LINE 38 col 45
LINES 2 CELLS SIZE 12 CELLS cells size 10 cells
TITLE "&Einde"
EXCEPTION-VALUE 30.
01 INVOER-SCHERM2.
03 LIST-BOX-NAAM LIST-BOX
VALUE ws-aanvr-voornaam
LINES 5 CELLS SIZE 15 CELLS
LINE 6 COL 45
AFTER PROCEDURE 1-ZOEK-KLUS.
01 INVOER-SCHERM3.
03 LABEL LINE 12 COL 5
TITLE "Gewenste klus" RIGHT
LINES 2 CELLS SIZE 18 CELLS.
03 LIST-BOX-KLUS LIST-BOX
LINES 3 CELLS SIZE 16 CELLS
COL + 2
VALUE ws-aanvr-klusnaam.
03 LABEL LINE 16 COL 5
TITLE "Dag" RIGHT
LINES 2 CELLS SIZE 18 CELLS.
03 LIST-BOX-DAG LIST-BOX UNSORTED
LINES 5 CELLS SIZE 16 CELLS
COL + 2
VALUE ws-aanvr-dag.
03 UUR-FRAME FRAME
"Uur" TITLE-POSITION 1
COL + 6
LINES 4.5 CELLS SIZE 9.5 CELLS.
03 RADIO-BUTTON TITLE "9 - 12"
LINE + 1.5 COL 46
LINES 1 CELLS SIZE 8 CELLS
VALUE ws-aanvr-uur
GROUP 1 GROUP-VALUE 1
AFTER PROCEDURE 1-ZOEK-PERS.
03 RADIO-BUTTON TITLE "13 - 16"
LINE + 1.5 COL 46
LINES 1 CELLS SIZE 8 CELLS
VALUE ws-aanvr-uur
GROUP 1 GROUP-VALUE 2
AFTER PROCEDURE 1-ZOEK-PERS.
01 INVOER-SCHERM4.
03 klus-frame frame
"Klusser" title-position 1
line 17 col 24
lines 4 cells size 38 cells.
03 label title "Naam" right
lines 1 cells size 8 cells
line + 1 col 27.
03 label value ws-aanvr-PERS-naam
col + 2.
03 label title "Telefoon" right
lines 1 cells size 8 cells
line + 1 col 27.
03 label value ws-aanvr-telefoon
col + 2.
******************************************************************
PROCEDURE DIVISION.
MAIN SECTION.
0-OVERZICHT.
COMPUTE ZWART-OP-WIT = BCKGRND-WHITE + BLACK
COMPUTE BLAUW-OP-WIT = BCKGRND-WHITE + BLUE
ACCEPT F1 FROM STANDARD OBJECT "LARGE-FONT"
OPEN I-O KLAN-BEST
OPEN I-O AANVR-BEST
OPEN INPUT PERS-BEST
OPEN INPUT KLUS-BEST
DISPLAY FLOATING WINDOW
COLOR ZWART-OP-WIT
LINE 2 COL 2
LINES 40 SIZE 80
TITLE IS "Aanvraag klussen"
AUTO-RESIZE
SYSTEM MENU
HANDLE IS INVOERVENSTER
PERFORM 3-LAATSTE-NR
DISPLAY INVOER-SCHERM
PERFORM WITH TEST AFTER UNTIL STATUS-VELD = 30
MODIFY LIST-BOX-NAAM RESET-LIST = 1
ACCEPT INVOER-SCHERM
ON EXCEPTION CONTINUE
END-ACCEPT
END-PERFORM
DESTROY INVOERVENSTER
CLOSE KLAN-BEST
CLOSE AANVR-BEST
CLOSE PERS-BEST
CLOSE KLUS-BEST
EXIT PROGRAM
STOP RUN.
******************************************************************
1-ZOEK-NAAM.
MOVE WS-AANVR-NAAM TO KLAN-NAAM
INITIALIZE KLAN-STAT
IF KLAN-NAAM NOT = " "
START KLAN-BEST KEY IS = KLAN-NAAM
INVALID KEY
DISPLAY MESSAGE BOX "DE NAAM KOMT NIET VOOR IN HET KL
- "ANTEN BESTAND!"
MOVE 1 TO ACCEPT-CONTROL
MOVE 0 TO CONTROL-VALUE
NOT INVALID KEY
DISPLAY INVOER-SCHERM2
PERFORM WITH TEST AFTER UNTIL KLAN-STAT NOT = "02" OR
STATUS-VELD = 30
READ KLAN-BEST NEXT
MODIFY LIST-BOX-NAAM
ITEM-TO-ADD = KLAN-VNAAM
END-PERFORM
ACCEPT INVOER-SCHERM2
ON EXCEPTION CONTINUE
END-ACCEPT
END-START
END-IF.
1-ZOEK-KLUS.
MOVE 0 TO sw-klus
DISPLAY INVOER-SCHERM3
PERFORM UNTIL sw-klus = 1
READ KLUS-BEST NEXT
AT END
MOVE 1 TO sw-klus
NOT AT END
MODIFY list-box-klus
ITEM-TO-ADD = klus-naam
END-READ
END-PERFORM
MODIFY LIST-BOX-DAG
ITEM-TO-ADD = multiple dag-el
ACCEPT INVOER-SCHERM3.
Has you can see I use 3 screens, but when I'm in screen 2 push the button with the text "einde" I have to push it twice because the button is from screen 1.
How can I solve this?