identification division.
program-id. forms$demo_timer_comp_routine.
*****************************************************************************
*	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, L.P.
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 is the Completion Routine for the AST SEND.
*
*	It starts another timer for the AST SEND.
*
*
*
data division.
working-storage section.

linkage section.
*
*	NOTE: In this example ls-astprm
*	is not specified or used.

01	ls-astprm		pic s9(9) comp.

procedure division 
	using ls-astprm.

aa-start.


*	Set a timer for the next call to
*	forms$demo_timer_ast_routine.

	call "forms$demo_timer_set_timer".

	exit program.

end program forms$demo_timer_comp_routine.