$       XYZ = 0
  $
  $LOOP:
  $       PATH = F$MULTIPATH( "$1$DGA12", "MP_PATHNAME", XYZ )
  $       IF PATH .EQS. "" THEN GOTO EXIT
  $       WRITE SYS$OUTPUT "PATH NAME = ''PATH'"
  $       GOTO LOOP
  $
  $EXIT:
  $       EXIT

      This example shows the use of F$MULTIPATH with the MP_
      PATHNAME item code. Note that the context symbol XYZ has been
      initialized to 0 outside of the loop. The output from this
      command procedure is shown below. When all paths for a given
      multipath device have been returned, the end of the list is
      signaled by the return of a blank path name.

        path name = PGA0.5000-1FE1-0001-5782
        path name = PGA0.5000-1FE1-0001-5783
        path name = PGA0.5000-1FE1-0001-5781
        path name = PGA0.5000-1FE1-0001-5784
        path name = MSCP