Hi Tom. That looks to be just what I need, unfortunately, I can't download things here. As an update though, here's what the final product looks like:
/* rexx */ 'SET FILESP CONLOG' 'PIPE <' MALINUX CTRL A ' | sort | STEM rec.' Do i = 1 to rec.0 parse var rec.i vmname usernm ipaddr TOTBLK = 0 'SET CMSTYPE HT' 'ACCESS .'usernm' K' 'CMS LISTFILE * * K (alloc noheader | STEM sfsrec.' Do j = 1 to sfsrec.0 parse var SFSREC.j FNAME FTYPE FMODE FRECL FLEN FREC FBLK TOTBLK = TOTBLK + FBLK End SET CMSTYPE RT' say usernm ' Total Blocks: ' TOTBLK End 'RELEASE K' Exit; MALINUX CTRL file looks like: VMLPAR LINUX1 9.1.1.1 VMLPAR LINUX2 9.1.1.2 etc. Note that this does not work with Address Command. :( Thanks everyone. It's very nice to have rexx success. MA On Thu, Jun 12, 2008 at 12:33 PM, Huegel, Thomas <[EMAIL PROTECTED]> wrote: > Oops should be: > 'pipe cms listfile * * k (date noh | tabulate by 1-8 sum 40-44 | console' > > -----Original Message----- > From: Linux on 390 Port [mailto:[EMAIL PROTECTED] Behalf Of > Mary Anne Matyaz > Sent: Thursday, June 12, 2008 8:20 AM > To: LINUX-390@VM.MARIST.EDU > Subject: Vexxing Rexx > > > Ok, first off, I know it's spelled vexing. But that doesn't look as nice. > :) > > > I'm having fun with rexx today. First, I'll tell you the problem I'm trying > to solve, in case theres a better way, then I'll > tell you the problem I'm having in my rexx exec. > > Problem: I have 50 some linuxes all sending their logs to > vmsysu:conlog:*linuxname. > *As it gets fuller, I'd like to know > which linux is spewing the most log. Right now I do a dirlist and go in to > each one looking for who has the most records. > I'd like to be able to total it up. Maybe even (gasp) write a report. > So I start with an itty bitty rexx exec. I'm just going to look at linux1 > and try to total it. With apologies to Kris for my > atrocious rexx coding, here it is: > > totrec = 0 > SET FILESP CONLOG > ACCESS .LINUX1 K > 'pipe (endchar ?)', > 'CMS FLIST * * K (NOCLEAR | STEM SFSREC.'; > Do i = 1 to sfsrec.0 > parse var SFSREC.i FNAME FTYPE FMODE FRECL FLEN FREC FBLK FDT FTM > totrec = totrec + FREC > End > say 'LINUX1 Total Records: ' totrec > RELEASE K > Exit; > > It seemed pretty simple to me. Of course it didn't work. So I tried some > PIPE commands in CMS. > PIPE CMS LISTF * * A | > file list a works. Creates the file named > FILE > LIST A > However, > PIPE CMS FLIST * * A | > file list a doesn't work. Doesn't put it in > the file, but does display it on my screen. > > Normally, I'd just go with the output of listf. However, it doesn't have > size info. > > Any suggestions? Does FLIST not work in Pipes? How would I know that? > (Looked thru the rexx manual, pipes manual, cms cmds manual.) > > Thanks as always! > Mary Anne > > ---------------------------------------------------------------------- > For LINUX-390 subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: INFO LINUX-390 or > visit > http://www.marist.edu/htbin/wlvindex?LINUX-390 > > ---------------------------------------------------------------------- > For LINUX-390 subscribe / signoff / archive access instructions, > send email to [EMAIL PROTECTED] with the message: INFO LINUX-390 or > visit > http://www.marist.edu/htbin/wlvindex?LINUX-390 > ---------------------------------------------------------------------- For LINUX-390 subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: INFO LINUX-390 or visit http://www.marist.edu/htbin/wlvindex?LINUX-390
