identification division.
program-id. forms$demo_timer_set_timer.
*****************************************************************************
*	DECforms : Display Time of Day, using Asynchronous output 	    *
*****************************************************************************
*
*
*		    COPYRIGHT (c) 1990 BY
*	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
*
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
* ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
* COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
* OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
* TRANSFERRED.
*
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
* AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
* CORPORATION.
*
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
*
AUTHOR. Digital Equipment Corporation
INSTALLATION.
DATE-WRITTEN. 26-Jan-1990
DATE-COMPILED.
*++
*
* PROGRAM ABSTRACT:
*
*	DECforms : Asynchronous output example.
*
*	[The main program is in FORMS$DEMO_TIMER_AST.COB]
*	[This is one of the subroutines]
*
*	This routine sets a timer to start forms$demo_timer_ast_routine.

data division.
working-storage section.

01	ws-local.
	03	ws-status			pic s9(9) comp.
	03	ws-period			pic x(6)
						value "0 ::01".
	03	ws-delay			pic s9(18) comp.
	03	ast-address			pointer
						value external
						forms$demo_timer_ast_routine.
procedure division.
aa-start.

*	Get relative time in internal format.

	call "sys$bintim"
		using
			by descriptor	ws-period
			by reference	ws-delay
		giving	ws-status
	call "forms$demo_timer_check_status"
		using
			ws-status

	call "sys$setimr"
		using
			omitted
			by reference	ws-delay
			by value	ast-address
			omitted
		giving	ws-status
	call "forms$demo_timer_check_status"
		using
			ws-status
	exit program.
end program forms$demo_timer_set_timer.