DBSQL   JApPRBMGBRADLEY 0
INCLUDE SQLCA
BEGIN DECLARE SECTION
END DECLARE SECTION
WHENEVER SQLWARNING continue
PREPARE stmt INTO :pSqlDa  FROM :pszSqlCommandBuffer
EXECUTE stmt
PREPARE stmt INTO :pSqlDa  FROM :pszSqlCommandBuffer
DECLARE c1 CURSOR FOR stmt
OPEN c1
CLOSE c1
FETCH c1 USING DESCRIPTOR :pSqlDa 
COMMIT WORK
ROLLBACK WORK
pszSqlCommandBuffer