d$!{DO} FIND {file or GO} {NO or ALL} $! Find the directories that contain the file ,$! $! Set default to the last directory found, if no qualifier was $! specified. X$! $! If the file has a type, find that type, else take the $! default type specified in the find.toc. $! $! Enter: $ INFO FIND topic for specific information L$! $! For additional information see: $! x$! Default_directory Table_of_Contents Usage. $! @$! ..note.. uses: SCI_USR:findtoc.vxx to direct the search. $! ..note.. the last directory found is stored in SCI_FIND $! and $FIND GO will SET DEFAULT to that directory l$! ..note.. The global symbol 'FF :== the last file found $! so the CMD... 'FF will assess it. 4$! $! -end.of.info- $ ` $ if(p1.eqs."") then Inquire p1 "_Find" $ if( p1.nes."" ) then goto notff ( $ write sys$output " 'FF :== ","''ff'" $ exit $ T $notff: $ if(p1.eqs."GO") then goto gotoit  $ SCI_FIND :== "" $ open/read/err=notoc toc SCI_USR:findtoc.vxx H $ on control then goto ctlfini $ goto scinxt $ $notoc: $ write sys$output "Generating findtoc.vxx $ @SCI_COM:alldir/out=sci_usr:findtoc.vxx $ goto notff $ $scinxt: h$ read/err=fini toc line $ if( line.eqs."$".and. p2.nes."ALL" ) then goto fini 0$ ipos = 'f$locate("/",line) $ iloc = ipos+1 $ type := "''f$extract(iloc,100,line) \$ line := "''f$extract(0,ipos,line) $ if( 'f$locate(".",p1) .ne.'f$length(p1) ) then type := "" $$ open/read/err=scinxt fil 'line''p1''type' $ close fil $ write sys$output " ",line,p1,type P$ SCI_FIND :== 'line $ FF :== 'line''p1''type' $ goto scinxt |$ $fini: D$ close toc $ $gotoit: d$ if( SCI_FIND.eqs."" ) then exit $ write sys$output ": ",SCI_FIND," $Set def" ,$ set def 'SCI_FIND $ exit $ X$ctlfini: $ close toc