.title	'Test Help Library Access'

;
;
;		T S T H L P . D B L
;
;

;	Ver/Edit	 Edit Date	By	Reason
;

;.include "$SSDEF" library "sys$library:dblstarlet"
;.include "$HLPDEF" library "sys$library:dblstarlet"

EXTERNAL FUNCTION 
	LBR$OUTPUT_HELP	,%VAL

RECORD
STATUS		,I4		;Status of Forced Exit Call.
PUT		,I4,%XTRNL(LIB$PUT_OUTPUT)
GET		,I4,%XTRNL(LIB$GET_INPUT)

	PROC

AAA_BEGIN_UTILITY,

	XCALL FLAGS (0001000000)

	STATUS = %LBR$OUTPUT_HELP (%VAL(PUT)
&				,
&				,
&				,'HELP.HLB'
&				,
&				,%VAL(GET))

	IF (.NOT.%SUCCESS(STATUS)) XCALL LIB$STOP (%VAL(STATUS))

	STOP