🚀 go-pugleaf

The following batch works for the first table that is returned via the
TblPtr cursor. (Using the MESSAGE 'TblName = ', TblName TO CLIENT;
statement without the EXECUTE IMMEDIATE statement shows that the cursor
returns all tables of concern.) The error is ASA Error-180: Cursor not
open. Any suggestions as to why this does not work or alternative
methods of adding a column to all tables in a given database using a
script would be greatly appreciated.

BEGIN
  DECLARE TblPtr CURSOR FOR
    SELECT Table_Name
        FROM SYS.SYSTABLE
       WHERE Creator=1 AND
             Table_Type='BASE'
       ORDER BY Table_Name;
  DECLARE TblName LONG VARCHAR;
  CREATE VARIABLE TblNum INTEGER;
  CREATE VARIABLE NumTbls INTEGER;
  SET TblName='';
  SET TblNum=0;
  SELECT COUNT(*)
    INTO NumTbls
    FROM SYS.SYSTABLE
    WHERE Creator=1 AND
          Table_Type='BASE';
  OPEN TblPtr;
  TableLoop:
  WHILE TblNum<NumTbls LOOP
    SET TblNum=TblNum+1;
    FETCH NEXT TblPtr INTO TblName;
    EXECUTE IMMEDIATE 'ALTER TABLE ' || TblName || ' ADD NewCol000
TIMESTAMP;';
  END LOOP TableLoop;
  CLOSE TblPtr;
  DROP VARIABLE TblNum;
  DROP VARIABLE NumTbls;
END;