WRAP - establish a wrapup routine.
call wrap(sub, status)
- is a subroutine that is to be called if the program
- is an integer variable where the abort reason code is
stored before "sub" is called.
"status" is then passed as an argument to
"sub". In TSS this is taken from word 20
(.LABRT); in batch it comes from word 11 (.XABT1).
WRAP declares a wrapup routine that will be called if a
program terminates abnormally. When the wrapup actions are
complete, "sub" should exit with a RETURN statement.
- expl f77 lib atcall, expl f77 lib ntcall
- for an alternate method of specifying program wrapup that
allows multiple wrapup routines.
Copyright © 1996, Thinkage Ltd.