Re: Using REXX/VM

[Wilson, Roger]

This is the value stored in FFF LOG A

 

COMP       .17  .104  .093   1.1    .5   .5    .4     .0   .0   .0  EME

 

________________________________

From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of Wilson, Roger
Sent: Friday, December 19, 2008 1:43 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: Using REXX/VM

 

Ok I have a second request

 

I have this exec that generates a one line file

 

I'd like to send the first 2 values to a webpage via BBVMCLNT. 

 

Rich back in 2001 wrote some execs that up IP to send the values of cpu
and spooling to Big Brother. I'm looking to include that in what I have
here.....

 

Any help would be appreciated. I end up storing the values in FFF LOG A

 

________________________________

  PARSE ARG WHERE                                                

   IF WHERE = '' THEN WHERE = 'PERFSVM '                         

parse var color.fff                                              

'PIPE (END ?) VMC ' WHERE ' USER ',                              

   '|O: FANOUT',  /* MAKE A SECOND COPY OF THE DATA */           

      '| ALL /COMP/' ,                                           

      '|SPECS X05 1 W1 NEXT X05 NEXT W2 NEXT' ,                  

      '| LITERAL'  RUNDATE DATE()    TIME(),                     

      '| >> COLOR FFF A'                                         

QUEUE 'XEDIT FCX112 RESULTS A'                                   

     QUEUE '/COMP'                                               

      QUEUE 'PUT'                                                

      QUEUE 'QQUIT'                                              

      QUEUE 'GET'                                                

      QUEUE 'FILE'                                               

            'XEDIT FFF LOG A (NOM'                               

Exit