(15,2) hvBonuses = 0; /* tot bonuses rtnd by DSN8ES2*/ 01190000 short int niBonuses = 0; /* Indic var for hvBonuses */ 01200000 01210000 long int hvSqlErrCd = 0; /* Err SQLCODE from DSN8ES2 */ 01220000 short int niSqlErrCd = 0; /* Indic var for hvSqlErr...
*/ parse arg AVstmt ; rcod=0; "EXECIO * DISKR DB2SSID (OPEN FINIS STEM TEMP."; parse var TEMP.1 ssid . ; say 'Issuing...' AVstmt; CALL SQLDBS 'ATTACH TO' ssid; call SQLEXEC "EXECUTE IMMEDIATE :AVSTMT"; if result<0 then do; say 'Trouble activating the native ...