IDENT CEASE
ENTRY CEASE
TITLE CEASE - TERMINATE TASK EXECUTION.
*COMMENT CEASE - TERMINATE TASK EXECUTION.
COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
SPACE 4
*** CEASE - TERMINATE TASK EXECUTION.
* J.C. BOHNHOFF. 72/07/09.
*CALL COMKMAC
SPACE 4
*** CALL FORMAT -
*
* FORTRAN EXTENDED
* CALL CEASE(A)
* COBOL
* ENTER CEASE USING A
*
* WHERE
* (A) .LT. - 1 RESERVED FOR CDC.
* = -1 IF NORMAL CEASE AND TERMINAL IS NOT TO
* BE UNLOCKED.
* = 0 IF NORMAL CEASE.
* = 1 IF ABNORMAL CEASE WITHOUT DUMP.
* .GT. 1 IF ABNORMAL CEASE WITH DUMP.
*
*
* MACROS SYSTEM.
CEASE PS ENTRY
ZR X1,CEA1 IF NO PARAMETER
SA1 X1
CEA1 CEASE X1
JP CEASE RETURN
END