GPFDLL035AYfICEHUSERID  0
INCLUDE SQLCA
INCLUDE SQLDA
BEGIN DECLARE SECTION
END DECLARE SECTION
DECLARE cur CURSOR FOR st 
DECLARE C0 CURSOR FOR         SELECT NAME,CREATOR,REMARKS         FROM SYSIBM.SYSTABLES         WHERE (CREATOR <> 'SYSIBM' AND         CREATOR <> 'QRWSYS')
OPEN C0
CLOSE C0
COMMIT WORK
SELECT CREATOR          INTO :SYSTABLES_CREATOR          FROM SYSIBM.SYSTABLES          WHERE (CREATOR <> 'SYSIBM' AND          CREATOR <> 'QRWSYS' AND          NAME = :SYSTABLES_NAME)
OPEN cur 
FETCH cur USING DESCRIPTOR :sqldap  
CLOSE cur 
COMMIT WORK
ROLLBACK
PREPARE st INTO :sqlda_tmp  FROM :stmbuf 
PREPARE st INTO :sqldap  FROM :stmbuf 
EXECUTE st 
GRANT EXECUTE ON PROGRAM GPFDLL03 TO PUBLIC
stmbuf
SYSTABLES_NAME
SYSTABLES_CREATOR