identification division.
program-id. forms$demo_timer_set_timer.
*****************************************************************************
*	DECforms : Display Time of Day, using Asynchronous output 	    *
*****************************************************************************
*
*
*           © Copyright 2005 Hewlett-Packard Development Company, L.P.

* Consistent with FAR 12.211 and 12.212, Commercial Computer Software, 
* Computer Software Documentation, and Technical Data for Commercial 
* Items are licensed to the U.S. Government under vendor's standard 
* commercial license. 
*
AUTHOR. Hewlett-Packard Development Company.
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.