WRAP - establish a wrapup routine.

Usage:

external sub
   ...
call wrap(sub, status)

Where:

sub

is a subroutine that is to be called if the program terminates abnormally.

status

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).

Description:

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.