/* Rexx Lab Exercise 4 (Solution 2) - Session G52-G53 */
/* Find Number of disks accessed and list them */

Call GetDisks

Say 'This user has' NumDisks 'disks accessed.'
Say '  '

Do i = 1 to Numdisks
   Say DiskList.i
End

Say '  '
ADDRESS CMS
'QUERY DISK'

Exit

/*                                                                    */
/* Subroutine: Get list of disks and return number of disks accessed  */
/*                                                                    */
GetDisks:

   'PIPE',
     'CMS QUERY DISK',
     '| Drop 1',
     '| STEM DiskList.',
     '| count lines',
     '| var NumDisks'

Return NumDisks

