This example opens a log file, displays the contents of a
       procedure, invokes the procedure, closes the log file with
       a CTRL/Z exit from DEC DATATRIEVE, and uses the OpenVMS TYPE
       command to display the contents of the log file:

       DTR> OPEN LOG
       DTR> !THIS IS A TEST OF THE OPEN COMMAND.
       DTR> READY YACHTS
       DTR> SHOW SELL_BOAT
       PROCEDURE SELL_BOAT
       FIND YACHTS WITH BUILDER EQ *.BUILDER AND MODEL EQ *.MODEL
       PRINT ALL
       IF *."Y IF BOAT SOLD" EQ "Y" THEN ERASE ALL ELSE
              PRINT "SELL IT NOW!"
       END_PROCEDURE

       DTR> :SELL_BOAT
       Enter BUILDER: ALBIN
       Enter MODEL: VEGA

                                      LENGTH
                                       OVER
       MANUFACTURER   MODEL     RIG    ALL   WEIGHT BEAM  PRICE

        ALBIN       VEGA       SLOOP   27     5,070  08  $18,600

       Enter Y IF BOAT SOLD: N

       SELL IT NOW!
       DTR> <CTRL/Z>
       $ TYPE LOG.LIS
       DTR> !THIS IS A TEST OF THE OPEN COMMAND.
       DTR> READY YACHTS
       DTR> SHOW SELL_BOAT
       PROCEDURE SELL_BOAT
       FIND YACHTS WITH BUILDER EQ *.BUILDER AND MODEL EQ *.MODEL
       PRINT ALL
       IF *."Y IF BOAT SOLD" EQ "Y" THEN ERASE ALL
       PRINT "SELL IT NOW !"
       END_PROCEDURE

       DTR> :SELL_BOAT
       Enter BUILDER: ALBIN
       Enter MODEL: VEGA
                                      LENGTH
                                       OVER
       MANUFACTURER   MODEL     RIG    ALL   WEIGHT BEAM  PRICE

        ALBIN       VEGA       SLOOP   27     5,070  08  $18,600

       Enter Y IF BOAT SOLD: N

       SELL IT NOW!

       $