*/ 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 nat...
*/ 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 nati...