$!
$! Link command for VMS$PASSWORD_POLICY
$!
$!	If you have a user-written policy module with only 2 entry points
$!	(policy_plaintext and policy_hash), call this as
$!	@VMS$PASSWORD_POLICY_LNK.COM OLD
$!
$	OPT = F$EDIT(P1,"TRIM,UPCASE")
$	IF OPT .EQS. "OLD" THEN GOTO TWO_PROC
$	IF OPT .NES. ""
$	THEN
$	  WRITE SYS$OUTPUT "Invalid P1 value:"
$	  WRITE SYS$OUTPUT "  P1 = """"	Link policy modules with 3 entry points"
$	  WRITE SYS$OUTPUT "  P1 = ""OLD""    Link older policy modules with 2 entry points"
$	  EXIT
$	ENDIF
$!
$	LINK/SHAREABLE/SYSEXE/MAP VMS$PASSWORD_POLICY.OBJ+SYS$INPUT:/OPTIONS
SYMBOL_VECTOR = ( -
POLICY_PLAINTEXT=PROCEDURE,-
POLICY_HASH=PROCEDURE, -
POLICY_CHANGES=PROCEDURE)
GSMATCH=LEQUAL,1,1
$	EXIT
$!
$  TWO_PROC:
$	LINK/SHAREABLE/SYSEXE VMS$PASSWORD_POLICY+SYS$INPUT:/OPTIONS
SYMBOL_VECTOR = ( -
POLICY_PLAINTEXT=PROCEDURE,-
POLICY_HASH=PROCEDURE)
$	EXIT