Subroutines code example

Example: 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');