#pragma module OVERLAY "OVERL-1-X"

/*
**++
**  FACILITY:  
**
**  MODULE DESCRIPTION:
**
**      This module is example of external module, which is supposed to activating by
**	LIB$FIND_IMAGE_SYMBOL from a main modules.
**
**	CC  overl.c
**
**	Link on ALPHA:
**	    CC	overl.c
**	    LINK/SHARE    overl/SYS$INPUT:/OPT
**	    SYMBOL_VECTOR=(OVERL_RTN=PROCEDURE)
**	    <ctrl/Z>
**	Link on VAX:
**	    LINK/SHARE	overl,SYS$INPUT:/OPT
**	    UNIVERSAL=OVERL_RTN
**	    <ctrl/Z>
**
**  AUTHORS:
**
**      Ruslan R. Laishev
**
**  CREATION DATE:  3-FEB-2000
**
**--
*/


/*
**
**  INCLUDE FILES
**
*/

#include    <starlet.h>
#include    <libdef.h>
#include    <lib$routines.h>
#include    <descrip.h>


/*
**++
**  FUNCTIONAL DESCRIPTION:
**
**      OVERL_RTN()
**
**  FORMAL PARAMETERS:
**
**      input_arg:
**          input number,longword,by value
**       
**      out_buf:
**          output buffer, descriptor, by references
**	 
**      out_len:
**          length of data in output buffer, word, by references
**
**  RETURN VALUE:
**
**      VMS condition code, longword
**
**--
*/
int OVERL_RTN	(   int		input_arg,
    struct dsc$descriptor_s *	out_buf,
	    unsigned short *	out_len
		)
{
int status;
$DESCRIPTOR(fao_dsc,"!UL, !XL, !OL");

    status = sys$fao(&fao_dsc,out_len,out_buf,input_arg,input_arg,input_arg);
    if ( !(1 & status) )
	return	status;

    return lib$put_output(out_buf);
}