44 lines
1.6 KiB
Plaintext
44 lines
1.6 KiB
Plaintext
# Property of Four Js*
|
|
# (c) Copyright Four Js 1995, 2019. All Rights Reserved.
|
|
# * Trademark of Four Js Development Tools Europe Ltd
|
|
# in the United States and elsewhere
|
|
#
|
|
# Four Js and its suppliers do not warrant or guarantee that these
|
|
# samples are accurate and suitable for your purposes. Their inclusion is
|
|
# purely for information purposes only.
|
|
|
|
SCREEN -- Can be executed in TUI mode
|
|
{
|
|
This demo can be executed in TUI mode (FGLGUI=0)
|
|
Tab to the fields, change the row count and select
|
|
the fill option or tab to a list and hit CONTROL-F
|
|
----------------------------------------------------
|
|
List 1 List 2
|
|
[c1 ][c2 ]
|
|
[c1 ][c2 ]
|
|
[c1 ][c2 ]
|
|
[c1 ][c2 ]
|
|
[c1 ][c2 ]
|
|
[c1 ][c2 ]
|
|
[c1 ][c2 ]
|
|
[c1 ][c2 ]
|
|
[c1 ][c2 ]
|
|
[c1 ][c2 ]
|
|
----------------------------------------------------
|
|
Rows in list1: [f1 ]
|
|
Rows in list2: [f2 ]
|
|
}
|
|
END
|
|
|
|
ATTRIBUTES
|
|
EDIT c1 = FORMONLY.col1 TYPE VARCHAR;
|
|
EDIT c2 = FORMONLY.col2 TYPE VARCHAR;
|
|
EDIT f1 = FORMONLY.nbrows1 TYPE INTEGER;
|
|
EDIT f2 = FORMONLY.nbrows2 TYPE INTEGER;
|
|
END
|
|
|
|
INSTRUCTIONS
|
|
SCREEN RECORD sr1 (FORMONLY.col1);
|
|
SCREEN RECORD sr2 (FORMONLY.col2);
|
|
END
|