zOs/REXX/ERR0

/* copy err0 begin *** simple error handling **************************/
/*--- error routine: abend with message ------------------------------*/
err:
    parse arg ggTxt
    parse source . . s3 .              /* current rexx */
           res = res 'in' s3':' msg
    say 'error in' s3':' ggTxt
    say 'errorhandler exiting with exit(12)'
    exit 12
endSubroutine err
/* copy err0 end   *** simple error handling **************************/