# 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