| 1733 | // |
| 1734 | |
| 1735 | static void gen_dyn_fetch(const act* action) |
| 1736 | { |
| 1737 | const dyn* statement = (const dyn*) action->act_object; |
| 1738 | |
| 1739 | const TEXT* sqlda = statement->dyn_sqlda; |
| 1740 | #ifdef HPUX |
| 1741 | TEXT s2[64]; |
| 1742 | if (sqlda) |
| 1743 | { |
| 1744 | sprintf(s2, "isc_baddress (%s)", sqlda); |
| 1745 | sqlda = s2; |
| 1746 | } |
| 1747 | #endif |
| 1748 | |
| 1749 | TEXT s1[MAX_CURSOR_SIZE]; |
| 1750 | printa(COLUMN, "SQLCODE = %s (isc_status, %s, %s%d%s, %s)", |
| 1751 | ISC_EMBED_DSQL_FETCH, |
| 1752 | make_name(s1, statement->dyn_cursor_name), |
| 1753 | DSQL_I2CONST_1, gpreGlob.sw_sql_dialect, DSQL_I2CONST_2, |
| 1754 | sqlda ? sqlda : NULL_SQLDA); |
| 1755 | |
| 1756 | printa(COLUMN, "IF (SQLCODE .NE. 100) SQLCODE = ISC_SQLCODE (isc_status)"); |
| 1757 | } |
| 1758 | |
| 1759 | |
| 1760 | //____________________________________________________________ |
no test coverage detected