Subroutines
Sub RowCount(pRowTable)
Let RC.Rows = Num(NoOfRows('$(pRowTable)'),'#,##0');
Trace ---------------- $(pRowTable): $(RC.Rows) rows;
RC.Rows=;
End Sub;
Fact:
Load
Rand() as Random
AutoGenerate
(1000);
Temp:
Load
Chr(IterNo()) as Char
AutoGenerate
(1)
While
IterNo() <= 2;
Outer Join(Fact)
Load
Char
Resident
Temp;
Drop Table Temp;
CALL RowCount('Fact');