QSTBOX |
Qstbox declares a question box while allowing you to manage this OBJect automatically.
[ Local] Qstbox exprg_list [Titled title_exp] Using variable
|
Element |
Description |
Restrictions |
|
exprg_list |
List of generalized expressions separated by the comma (,) |
The expressions must be alphanumeric and their number limited to 255. |
|
title_exp |
Alphanumeric expression of the box title |
length <= 50 |
|
variable |
Numeric variable_name that includes the number of the button selected |
The variable must exist. |
# Extracted from an "exit" process
of an application. The message
# displayed is defined in an application
message file.
Local Libelle REP
Qstbox mess(2, 5, 1) - nomap Using [L]REP
Case [L]REP
When 1: Call SORTIE
When 2: Call SUITE
Endcase
Qstbox allows you to declare a box to display a question with entry of a button for the answer and "Yes" and "No" as possible selections.
The Qstbox instruction includes the text of the question to be displayed as the first parameter. It is given in the form of a list of alphanumeric expressions, each element of the list constituting one line of text. If one of the expressions is a variable that was sized with no index or index interval precision, then all of the variable's elements are used. The precision of an index or of an index interval determines the elements to be considered. If you give an index interval in such a way that there is no corresponding element, for example TEXTE(1..0), the box will not be displayed.
Text given with a number of lines too large for the size of the screen will be truncated.
Next, you may give a group of optional clauses:
The Titled clause provides a title for the question box - different from the standard title.
The Using clause allows you to assign the variable for which the name follows with the value of the button entered. The possible values are one (1) for "Yes" and two (2) for "No."
The question boxes are closed as soon as you click on one of the two buttons. The Close instruction does not exist for a Qstbox.
|
Error |
Description |
|
ERMODE (10) |
- The variable of the Using clause
is not numeric. |
|
ERINDI (8) |
Range Error for Indexes |
|
ERDIM (55) |
Too many dimensions given |
|
PLUMEM (31) |
No more memory available |
|
ERTRWD (79) |
Too many screen-OBJects open |
INPBOX - DLGBOX - MESBOX - ERRBOX - INFBOX - WRNBOX - SELBOX - STATUS
|
|