/* CgiDie Identical to CgiError, but also quits with the passed error message. This appears to work on SunOS. On AIX 3.2 it appears to be necessary to enter an extra carriage return if cgidie is called from a REXX script initiated from the command line. */ CgiDie: PROCEDURE PARSE ARG Title, Body Fail=CgiError(Title, Body) Pid=_GETPID() Kill=_KILL(Pid,9) SAY 'Kill='Kill SAY 'Error killing process id', Pid', system error:' _errno() SAY _sys_errlist(_errno()) SAY 'Process not killed.' EXIT