TSTHLP           Test Help Library Access                        5-DEC-1990 17:53:14    VAX DIBOL V4.1-00                   Page   1
                 Data  Division                                  5-DEC-1990 17:53:01    DUB0:[DECUS]TSTHLP.DBL;1                    
 
           		.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"
           	
     1     	EXTERNAL FUNCTION 
     2     		LBR$OUTPUT_HELP	,%VAL
           	
     3     	RECORD
     4     	STATUS		,I4		;Status of Forced Exit Call.
     5     	PUT		,I4,%XTRNL(LIB$PUT_OUTPUT)
     6     	GET		,I4,%XTRNL(LIB$GET_INPUT)
           	 
     7     		PROC
           	
     8     	AAA_BEGIN_UTILITY,
           	
     9     		XCALL FLAGS (0001000000)
           	
    10     		STATUS = %LBR$OUTPUT_HELP (%VAL(PUT)
           	&				,
           	&				,
           	&				,'HELP.HLB'
           	&				,
           	&				,%VAL(GET))
           	
    11     		IF (.NOT.%SUCCESS(STATUS)) XCALL LIB$STOP (%VAL(STATUS))
           	
    12     		STOP
No errors detected
DIBOL/NOSTAND/OBJECT/LIS TSTHLP