>* >* FAILED ON ERROR COMMAND >* by Kenneth Downs >* ken.downs@msginet.com >* >CLOSE ALL > >* Get a table open under >* an alias different from >* its Stem >* >CREATE TABLE NoError1 (Field1 C(5)) >USE >USE NoError1 ALIAS IAmNoError1 > >* Get another table open >* >SELE 0 >CREATE TABLE NoError2 (Field1 C(5)) > >* Create a simple flag that >* will go to -1 if the >* command fails on an error >* >LOCAL lnError,lcError >lcError = ON("ERROR") >ON ERROR lnError = -1 >lnError = 0 > >* Attempt to copy the 2nd table >* to the first, triggering >* an error, which does NOT >* get triggered >* >SELE NoError2 >COPY TO NoError1 >