`/* List DB2 tables with more than 10K rows,`
`using the dynamic SQL interface */`

`arg db user password`

`/* Connect the target database. Exit if connect fails. */`
`"REXXSQL CONNECT" user "IDENTIFIED BY" password "TO" db`
`if sqlcode < 0 then exit 8`

`/* Prepare and execute a SELECT on SYSCATALOG. */`
`s = "SELECT CREATOR,TNAME,ROWCOUNT FROM SYSTEM.SYSCATALOG" ,`
`"WHERE ROWCOUNT >= 10000 ORDER BY ROWCOUNT DESC"`
`"REXXSQL" s`

`/* Check for SQL errors. */`
`if SQLCODE <> 0 then signal SQL_error`

`/* Show the result stems CREATOR, TNAME and ROWCOUNT */`
`do i = 1 to _NROWS`
`tablename = strip(creator.i)"."strip(tname.i)`
`say "Table" tablename "has" rowcount.i "rows"`
`end`

`/* Terminate */`
`"REXXSQL COMMIT"`
`exit`

`/* Show SQLCODE, SQLERRM and related help text */`
`SQL_error:`
`call REXXSQLH sqlcode sqlerrm`
`exit 8`