Re: REXX AND ADDRESS EXECSQL

The result of "say sqlcode ':' sqlstate" on a v5r3 system is "-901 :
58004" which indicates that the SQL processor failed due to an
internal\system error. Thus there would appear to be a defect [at least
at that release & unknown PTF level]; a defect which may have been
corrected in a later release, but no obvious APAR\PTF documenting the
error nor its correction. For anyone at a later release with the
necessary PTF level, there is a special "SQL0901 logger" tool which can
have its results queried for more detail.
http://archive.midrange.com/rpg400-l/201002/msg00342.html

David FOXWELL wrote:

Would anyone like to paste this script into a QREXSRC member and
run option 16 to confirm this?

ADDRESS EXECSQL,
EXECSQL 'SET OPTION COMMIT = *NONE'
ADDRESS EXECSQL,
EXECSQL 'CREATE ALIAS QTEMP/A1 FOR QTEMP/T1'
IF RC <> 0 THEN DO
MSGID = "SQL"RIGHT(STRIP(ABS(SQLCODE)),4,'0')
'SNDPGMMSG MSGID(&MSGID) MSGF(QSQLMSG) MSGDTA(&SQLERRMC)',
'MSGTYPE(*ESCAPE)'
END