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.
Home | Contact Us    
About Us | Products | FAQ | zVIEW Demo | zPRO Demo | Customer Area | Education | Linux Hints & Tips | Presentations | News | Industry and Events | Employment Opportunities

.... 


/************************************************************/
/**   (c) Copyright  Velocity Software, Inc.      1990,1994 */
/************************************************************/
/*                                                          */
/*    ESAMAP/VMPAF Extract File Data Extraction Procedure   */
/*                                                          */
/* Usage:  ESAPAFEF  return  mode  variables                */
/*                                                          */
/*  where return    is STACK or the output file name,       */
/*        mode      is the mode of a read/write disk,       */
/*    and variables lists the variables to be extracted     */
/*                  in the form                             */
/*                       fname.ftype.variable [...]         */
/*                                                          */
/* This procedure is invoked by VMPAF and is not intended   */
/* for direct end-user use.                                 */
/*                                                          */
/************************************************************/
 
Parse Upper Arg route fmode varlist
 
Parse Var varlist fname'.'ftype'.'.
fileid = fname ftype '*'
 
Address Command 'ESTATE' fileid
If RC > 0 Then Do
   Say "File '"fileid"' not found on disk."
   Exit 28
End
 
Address Command 'EXECIO 1 DISKR' fileid '(VAR VARIABLES FINIS'
If RC > 0 Then Do
   Say "Error" RC "reading file '"fileid"' from disk."
   Exit RC
End
 
'MAKEBUF'
buffer = RC
Queue varlist
Parse Var variables fn'.'ft'.'.
prefix = fn'.'ft
 
fields = ''
Do While varlist <> ''
   Parse Var varlist .'.'.'.'variable varlist
   If variable = 'TOD' Then variable = 'STOPTIME'
   If variable = 'INTERVAL' Then variable = 'SECONDS'
   field = FIND(variables,prefix'.'variable)
   fields = fields field
End
nf = WORDS(fields)
 
'EXECIO * DISKR' fileid 2 '( STEM DATA. FINIS'
r = RC
If RC > 0 Then Do
   Say "Error" RC "reading file '"fileid"' from disk."
   'DROPBUF' buffer
   Exit r
End
 
Do d = 1 To data.0
   record = ''
   Do f = 1 To nf
      w = WORD(fields,f)
      If w > 0
       Then record = record || WORD(data.d,w) || ' '
       Else record = record || '1E72 '
   End
   Queue record
End
 
If route <> 'STACK'
 Then Do
   'EXECIO' (data.0 + 1) 'DISKW' route 'WORK' fmode '( FINIS'
   r = RC
   If RC > 0 Then Do
      Say "Error" RC "writing file '"route "WORK" fmode"'" ,
          "on disk."
   End
   'DROPBUF' buffer
 End
 
Exit r


See what our customers say

Performance Tuning Guide

Sign up to receive the Velocity Software z/VM Tuning Reference Guide

Have a Velocity Software Sales Account Exec contact me.

IBM Z Ecosystem

Test drive our products
zVPS demo

Follow Velocity Software on LinkedIn!