> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[EMAIL PROTECTED] On Behalf Of Lizette Koehler
> Sent: Wednesday, July 09, 2008 3:23 PM
> To: [email protected]
> Subject: Re: Listing of current ROOT with Mount Points
>
> Absolutely correct.
>
> Lizette
Unless I really screwed up, the following REXX program should do what
you want:
/* rexx */
call bpxwunix "df | awk '{ print $1;}' | grep '/' |
sort",,stdout.,stderr.
lrm=stdout.2
llrm=length(lrm)
do i=3 to stdout.0
if lrm=left(stdout.i,llrm) then iterate
lrm = stdout.i
llrm=length(lrm)
say lrm
end
This program will run as a TSO REXX or UNIX REXX command.
--
John McKown
Senior Systems Programmer
HealthMarkets
Keeping the Promise of Affordable Coverage
Administrative Services Group
Information Technology
The information contained in this e-mail message may be privileged
and/or confidential. It is for intended addressee(s) only. If you are
not the intended recipient, you are hereby notified that any disclosure,
reproduction, distribution or other use of this communication is
strictly prohibited and could, in certain circumstances, be a criminal
offense. If you have received this e-mail in error, please notify the
sender by reply and delete this message without copying or disclosing
it.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
