Example

 $       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