!
! Test CLD file for HOW_INVOKED
!
define verb invoke
	image sys$disk:[]how_invoked
	parameter	p1