Can someone familiar with Rexx tell me where I am going wrong here with the prepare statement???
SIGNAL ON ERROR
ERRLOC = 'UPDATE_ERROR'
UPDATE_STMT = 'UPDATE library/file ',
'SET NAME = a name ',
'SET EMAIL = an email address '
ADDRESS EXECSQL,
'PREPARE S1 FROM :UPDATE_STMT'
ADDRESS EXECSQL,
'EXECUTE S1'
/* Commit changes */
ADDRESS EXECSQL,
'COMMIT'
ERRLOC = 'REPORT_ERROR'
SIGNAL ON ERROR
ERRLOC = 'UPDATE_ERROR'
UPDATE_STMT = 'UPDATE library/file ',
'SET NAME = a name ',
'SET EMAIL = an email address '
ADDRESS EXECSQL,
'PREPARE S1 FROM :UPDATE_STMT'
ADDRESS EXECSQL,
'EXECUTE S1'
/* Commit changes */
ADDRESS EXECSQL,
'COMMIT'
ERRLOC = 'REPORT_ERROR'
Comment