WRAP - establish a wrapup routine.


external sub
call wrap(sub, status)


is a subroutine that is to be called if the program terminates abnormally.
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.

See Also:

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.