Main Program
Expand/Collapse source code of procedure Main Program Source Code
LOCAL lcOldError
lcOldError = ON('ERROR')
ON ERROR *
=SYS(1037)
ON ERROR &lcOldError