execsql cA6IHaKJED      0
INCLUDE SQLCA
BEGIN DECLARE SECTION
END DECLARE SECTION
EXECUTE IMMEDIATE :SqlStr
COMMIT WORK 
DBName
SqlStr