!*** MODULE $MSGHLPDEF IDENT X-4 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER MSGHLP$M_NOSORT = '00000001'X
	PARAMETER MSGHLP$M_BRIEF = '00000002'X
	PARAMETER MSGHLP$M_MACHINE = '00000004'X
	PARAMETER MSGHLP$M_NOSUBSTRING = '00000008'X
	STRUCTURE /MSGHLPDEF/
	    PARAMETER MSGHLP$S_NOSORT = 1
	    PARAMETER MSGHLP$V_NOSORT = 0		 !  Do *NOT* sort the output 
	    PARAMETER MSGHLP$S_BRIEF = 1
	    PARAMETER MSGHLP$V_BRIEF = 1		 !  Give only the names of the messages 
	    PARAMETER MSGHLP$S_MACHINE = 1
	    PARAMETER MSGHLP$V_MACHINE = 2		 !  Return the text in machine-readable format 
	    PARAMETER MSGHLP$S_NOSUBSTRING = 1
	    PARAMETER MSGHLP$V_NOSUBSTRING = 3	 !  Match only entire words, no abreviations 
	    INTEGER*2 %FILL
	    BYTE      MSGHLP$B_WORK_FILES		 !  How many workfiles for /SORT?
	BYTE %FILL (1)
	END STRUCTURE	! MSGHLPDEF
!DEC$ END OPTIONS