$!----------------------------------------------------------------------------+
$!	SYSGENCOMP - Compare active SYSGEN params with AUTOGENerated values   |
$!----------------------------------------------------------------------------+
$!	Author: Harry Flowers
$!
$	SAVERIFY = 'F$VERIFY(0)'
$	CLOSE/NOLOG TMPFIL
$	WR = "WRITE SYS$OUTPUT"
$	ARCH_NAME = F$GETSYI("ARCH_NAME")
$	IF ARCH_NAME .EQS. "VAX"
$	THEN	VAX = ""
$		ALP = "!"
$	ELSE	VAX = "!"
$		ALP = ""
$	ENDIF
$'VAX'	SEARCH/OUTPUT=SYSGENCOMP.TMP SYS$SYSTEM:SETPARAMS.DAT "PARAMETER SET "
$'ALP'	SEARCH/OUTPUT=SYSGENCOMP.TMP SYS$SYSTEM:SETPARAMS.DAT "SET "
$	OPEN/READ TMPFIL SYSGENCOMP.TMP
$	WR "SYSGEN Parameter      Active Value   Setparams Value"
$	WR "----------------   ---------------   ---------------"
$ LOOP:
$	READ/END=FINISHED TMPFIL LINE
$'VAX'	PARAM = F$ELEMENT(2," ",LINE)
$'ALP'	PARAM = F$ELEMENT(1," ",LINE)
$	VALUE = F$EXTRACT(F$LOCATE(PARAM,LINE)+F$LENGTH(PARAM)+1,255,LINE)
$	CURVAL = F$GETSYI(PARAM)
$	IF F$TYPE(VALUE) .EQS. "INTEGER"
$	THEN	IF 'VALUE' .NE. CURVAL THEN -
		WR F$FAO("!16AS   !15UL   !15UL",PARAM,CURVAL,'VALUE')
$	ELSE	IF 'VALUE' .NES. F$EDIT(CURVAL,"TRIM") THEN -
		WR F$FAO("!16AS   !15AS   !15AS",PARAM,CURVAL,'VALUE')
$	ENDIF
$	GOTO LOOP
$ FINISHED:
$	CLOSE/NOLOG TMPFIL
$	DELETE/NOCONFIRM/NOLOG SYSGENCOMP.TMP;*
$	EXIT 1 + 0*F$VERIFY(SAVERIFY)