$!  CMS REPLACEMENT HISTORY, Element DIR_EXAMPLE.COM
$!   1I1  25-APR-2006 16:16:04 MYTH "V56 baselevel code freeze"
$!   1H1  13-JUN-2004 15:35:39 MILLIGAN "V55 baselevel code freeze"
$!   1G1  11-MAY-2003 23:05:09 TIBBERT "V54 baselevel code freeze"
$!   1F1  22-JAN-2002 18:32:09 SYSTEM "V53 baselevel code freeze"
$!   1E1   2-MAY-2001 04:44:07 MILLIGAN "V52 baselevel code freeze"
$!   1D1  11-DEC-2000 23:04:01 MYTH "V51 baselevel code freeze"
$!   1C1  12-MAY-2000 05:51:16 MUGGERIDGE "V51IFT baselevel code freeze"
$!   1B1  28-OCT-1998 21:12:47 MUGGERIDGE "V50SSB baselevel code freeze"
$!   1A1  18-JUN-1998 07:58:53 MUGGERIDGE "V50IFT baselevel code freeze"
$!  *1     9-OCT-1997 19:18:44 GEMIGNANI "Initial population of IPv6 source"
$!  CMS REPLACEMENT HISTORY, Element DIR_EXAMPLE.COM
$    SET NOON
$    IF F$TRNLNM("RPC") .EQS. ""
$    THEN
$        DEFINE /PROCESS RPC TCPIP$RPC:
$        RPC_LOCALLY_DEFINED = 1
$    ELSE
$        RPC_LOCALLY_DEFINED = 0
$    ENDIF
$
$    WRITE SYS$OUTPUT "Building RPC version of DIR program ..."
$    RPCGEN DIR.X
$    CC/DECC/WARNING=DISABLE=(IMPLICITFUNC) DIR_XDR
$
$    WRITE SYS$OUTPUT "   ... building DIR (RLS) client ..."
$    CC/DECC/WARNING=DISABLE=(IMPLICITFUNC) RLS
$    CC/DECC/WARNING=DISABLE=(IMPLICITFUNC) DIR_CLNT
$    LINK RLS,SYS$INPUT/OPTIONS
DIR_CLNT
DIR_XDR
SYS$SHARE:TCPIP$RPCXDR_SHR/SHARE
SYS$SHARE:DECC$SHR/SHARE
$    RLS :== $SYS$DISK:[]RLS.EXE
$
$    WRITE SYS$OUTPUT "   ... building DIR server ..."
$    CC/DECC/WARNING=DISABLE=(IMPLICITFUNC) DIR_SVC
$    CC/DECC/WARNING=DISABLE=(IMPLICITFUNC) DIR_SERVER
$    LINK DIR_SVC,SYS$INPUT/OPTIONS
DIR_SERVER
DIR_XDR
SYS$SHARE:TCPIP$RPCXDR_SHR/SHARE
SYS$SHARE:DECC$SHR/SHARE
$
$    IF RPC_LOCALLY_DEFINED
$    THEN
$        DEASSIGN /PROCESS RPC
$    ENDIF
$    EXIT