Velocity Software, Inc. is recognized as a leader in the performance measurement of z/VM and Linux on z. The Velocity Performance Suite consist of a set of tools that enable installations running z/VM to manage Linux and z/VM performance. In addition, many components of server farms can be measured and analyzed. Performance data can be viewed real-time through the use of either 3270 or a browser. The CLOUD Implementation (zPRO) component is designed for full cloud PaaS implementation as well as to extend the capabilities of the z/VM sysprog (system programmer) to the browser world. This feature moves system management to the point-and-click crowd. Archived data and reports can be kept available of long term review and reporting usine zMAP. The zVPS, formally ESALPS, components consist of: zMON (formally ESAMON - real-time display of performance data), zTCP (formally ESATCP - SNMP data collection), zMAP (formally ESAMAP - historical reporting and archiving), zVWS (formally ESAWEB - z/VM based web server), zTUNE (a subscription service), zVIEW (formally SHOWCASE - web based viewing of performance data), zPRO (new to the quality line of Velocity Software Products). Velocity continues to work with other software vendors to ensure smooth interface with or from other products such as VM:Webgateway, CA-Webgateway, EnterpriseWeb, MXG, MICS. Velocity software remains the leader and inovator in the z/VM performance, Linux performance, Managing cloud computing arenas.
About Us | Products | FAQ | Demo | Customer Area | Education | Linux Hints & Tips | Presentations | News | Industry and Events | Employment Opportunities
Home | Contact Us | License Info | Newsletter    

ESASLR EXEC

 
/************************************************************/
/**   (c) COPYRIGHT  Velocity Software, Inc.   1993-1996   **/
/************************************************************/
/*                                                          */
/*               ESAMAP/ESAMON SLR Interface                */
/*                                                          */
/* Usage:  ESASLR   function  operands  "(" options )]      */
/*                                                          */
/*    Function: GENERATE | ASSEMBLE | UPDATE | COLLECT      */
/*    Operands: NODE | FTYPE                                */
/*    Options:  TEST                                        */
/*                                                          */
/************************************************************/
 
 
Parse Upper Arg function operands '(' options ')' .
 
If function = ''
 Then Call Exit 24 'No function specified'
 
If WORDPOS('TEST', options) > 0
 Then netid = '*' /* So send stuff back to me*/
 Else Do
   'MAKEBUF'
   buffer = RC
   'IDENTIFY ( LIFO'
   If RC = 0
    Then Parse Pull . . . . netid .
   'DROPBUF' buffer
 End
 
opts  = 'S      C   D       U'
types = 'System CPU Devices User'
fns   = 'SYS    CPU DEV     USER'
 
node = ''
If function = 'GENERATE'
 Then Parse var operands ftype .
 Else Parse var operands node ftype .
 
If ftype = '' Then ftype = 'HISTORY'
If node  = '' Then node  = 'MVS'
 
Do i = 1 to 1;
 option = word(opts ,i)
 type   = word(types,i)
 fn     = word(fns  ,i)
 esafn  = 'ESA' || fn
 
 Select
 
  When function = 'GENERATE'
   Then Do
    Address Command 'ESTATE' esafn ftype '*'
    If Rc <> 0 Then Call Exit 8,
             'No history file found with filetype' ftype
 
       /* build assemble files for slr tables*/
       Say 'Building tables for' esafn ftype
       'pipe < ESA'fn ftype '| SEGGEN' esafn ftype
 
       Say 'SLR' type 'log table definition created.'
   End
 
  When function = 'ASSEMBLE'
   Then Do
     'CP SPOOL PUNCH CONT TO' netid
     'CP TAG DEV PUNCH' node 'JOB'
 
     'PIPE ',
      '< segment list ',
      '| locate /*/ ',                   /* Only selected segments */
      '| locate 10-12 /'type'/ ',        /* from the named file */
      '| spec \(stagesep !)',
        ' < ESASLRJ'Left(type,1) 'JCL ',
        '! \ 1 \append       < ESASLRPA JCL ',
        '! \ nw \append literal //L     EXEC  GASM,M=',
          '\ nw 1-6 next \L',
        '! \ next \append       < ESASLRSI JCL ',
        '! \ nw   \append       <',
          '\ nw 1-6 ',
          '  nw \l ASSEMBLE ',
        '! \ next \append       < ESASLREJ JCL ',
        '! \ nw   \append literal //S     EXEC  GASM,M=\',
          '\ nw 1-6 next \S',
        '! \ next \append       < ESASLRSI JCL ',
        '! \ nw   \append       <\ nw 1-6 nw \s ASSEMBLE ',
        '! \ next \append       < ESASLREJ JCL ',
        '! \ nw   \punch 00D ',
        '! \ nw   \take 0 ',
        '! cp close 00D\ nw ',
      '| runpipe ',
      '| console'
 
     'CP CLOSE 00D'
 
     'CP SPOOL PUNCH NOCONT CLOSE'
     Say 'SLR' type 'table assembly job submitted.'
  End
 
 When function = 'UPDATE'
  Then Do
    'CP SPOOL PUNCH CONT TO' netid
    'CP TAG DEV PUNCH' node 'JOB'
    'PIPE',
      '< segment list ',
      '| locate /*/ ',                   /* Only selected segments */
      '| locate 10-12 /'fn'/ ',        /* from the named file */
      '| spec \(stagesep !)',
       '  < ESASLRJ'Left(type,1) 'JCL ',
       '! \ 1    \append       < ESASLRPS JCL ',
       '! \ nw   \append       <\ nw 1-6 nw \ TBLUPDT ',
       '! \ next \append       < ESASLREJ JCL ',
       '! \ nw   \punch 00D ',
       '! \ nw   \take 0 ',
       '! cms sp pun close\ nw',
      '| runpipe ',
      '| console'
 
    'CP CLOSE 00D'
 
    'CP SPOOL PUNCH NOCONT CLOSE'
    Say 'SLR table update job submitted.'
  End
 
 When function = 'COLLECT'
  Then Do
    'CP SPOOL PUNCH CONT TO' netid
    'CP TAG DEV PUNCH' node 'JOB'
 
    'PIPE <' esafn type ,
      '| segcoll' esafn type
 
    'PIPE',
      '< segment list ',
      '| locate /*/ ',            /* Only selected segments */
      '| locate 10-12 /'type'/',  /* from the named file */
      '| runcoll' esafn type ,
      '| CP close 00D'
 
 
    'CP SPOOL PUNCH NOCONT CLOSE'
    Say 'SLR' type 'log collection job submitted.'
  End
 
 Otherwise
  Call Exit 24 'Function "'function'" not recorgnized'
 
End
 
Call Exit 0
 
Exit:
   Parse Arg xRc xMsg
   If xMsg <>'' Then Say xMsg
   Exit xRc



Don't miss Velocity Software's Performance Seminars