/* REXX */ Address Syscall 'pipe p.' /* create a pipe */ 'ls -iR>&'||p.2 /* send command output to pipe */ address syscall 'close' p.2 /* close pipe for output */ address mvs 'execio * diskr' p.1 '(stem s.' /* read pipe */ do i=1 to s.0 if words(s.i) = 1 then dir = s.i /* get directory name */ else do j=1 to words(s.i) by 2 /* process pairs of input */ say dir||word(s.i,j+1) word(s.i,j) /* display file inode */ end j end i address syscall 'close' p.1 exit 0