Bruno,

        This is a script for determining if a volume has split files.  You
could probably modify it to do the reverse - find volumes containing a file
by changing the where clause to search by file name.

del scr file-seg
def script file-seg desc='Show segmented file names on a tape volume'
upd script file-seg '/*  -----------------------------------------*/'
upd script file-seg '/*  Script Name: file-seg                    */'
upd script file-seg '/*  Description: Show segmented files on a   */'
upd script file-seg '/*               tape volume.                */'
upd script file-seg '/*  Parameter:   Volume name                 */'
upd script file-seg '/*  Example:  run file-seg n....n            */'
upd script file-seg '/*  -----------------------------------------*/'
upd script file-seg 'select cast (file_name as character(65)) -'
upd script file-seg '         as "                             File  Name
", -'
upd script file-seg '       cast (volume_name as character(6)) -'
upd script file-seg '         as "Volume", -'
upd script file-seg '       cast (segment as character(5)) as "Seg." -'
upd script file-seg '       from contents -'
upd script file-seg "       where volume_name=upper('$1') -"
upd script file-seg "         and segment <> '1/1' -"
upd script file-seg '       order by 1,3,2'
        Gary L. Ison
        Governor's Office for Technology
        101 Cold Harbor Drive
        Frankfort, Ky.   40601
        Phone:  (502) 564-8724
            Fax:  (502) 564-6856
E-mail: Gary.Ison AT mail.state.ky DOT us <mailto:Gary.Ison AT mail.state.ky 
DOT us>