DYNSQL  ZBkJLICLDECKKH  0
INCLUDE SQLCA
WHENEVER SQLERROR     CONTINUE
WHENEVER SQLWARNING   CONTINUE
WHENEVER NOT FOUND    CONTINUE
BEGIN DECLARE SECTION
END DECLARE SECTION
prepare st    into :psqlda     from :cmd_sql
declare cur cursor for st
open cur
close cur
fetch cur    using descriptor :psqlda 
cmd_sql