PROGRAM	hibernate
C
C+ HIBERNATE
C
C This program is used to implement the HIBERNATE foreign command to
C place a process in a sleep state:
C
C	HIBER*NATE :== $HIBERNATE  -or- RUN SYS$SYSTEM:HIBERNATE
C
C The process can then be placed in a sleep state (from DCL) with the
C HIBERNATE command or by doing a RUN SYS$SYSTEM:HIBERNATE.
C
C-
C
	INTEGER*4 sys$hiber,status
C
	status = sys$hiber()
	IF (.NOT.status) CALL LIB$STOP(%VAL(status))
C
	END