fgl_scr_size()
fgl_scr_size() accepts as its argument the name of a screen array in the currently opened form and returns an integer that corresponds to the number of screen records in that screen array.
fgl_scr_size() takes an array as its argument, which must be placed between double speech marks. The array argument is an identifier for the screen array, which will be used in the INSTRUCTIONS section of the form that is current. It may, as an alternative, take a CHAR or VARCHAR variable, which contains the array identifier.
fgl_scr_size() function returns the declared size of a specified screen array at runtime. In the following example, a form specification file declares two screen arrays, called s_rec1 and s_rec2:
4gl code
MAIN
DEFINE y INT
DEFINE ch CHAR(10)
OPEN WINDOW w1 AT 2,3 WITH FORM "fgl_key_form" ATTRIBUTE (BORDER)
CALL fgl_scr_size("s_rec1") RETURNING y
DISPLAY "Columns in s_rec1=", y AT 2, 2
LET y = fgl_scr_size("s_rec1") -- Can also be called
DISPLAY "Columns in s_rec1=", y AT 3, 2
LET ch = "s_rec2"
LET y = fgl_scr_size(ch)
DISPLAY "Columns in ",ch clipped,"=", y AT 4, 2
call fgl_getkey()
CLOSE WINDOW w1
END MAIN
.per form code
DATABASE FORMONLY
SCREEN
{
[f1 ] [f2 ]
[f1 ] [f2 ]
[f1 ] [f2 ]
[f3 ] [f4 ]
[f3 ] [f4 ]
}
ATTRIBUTES
f1=FORMONLY.a;
f2=FORMONLY.b;
f3=FORMONLY.c;
f4=FORMONLY.d;
INSTRUCTIONS
SCREEN RECORD s_rec1 (
FORMONLY.a,
FORMONLY.b
)
SCREEN RECORD s_rec2 (
FORMONLY.c,
FORMONLY.d
)
DELIMITERS "[]"
The proper value is returned even though the array dimension is not specified in the form file.
An error is returned if no form is open or if the specified array is not in the form currently open.