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

ESASLRUJ EXEC

 
/*********************************************************/
/*   (c) COPYRIGHT  Velocity Software, Inc.         1996 */
/*********************************************************/
/*   Update the JCL files (well, filetype $JCL, actually), replacing
     any existing ones.  Log files (UPDATES, UPDLOG) are erased if all
     updates are successful.
     Syntax:
              ESASLRUJ  ctl_fn  ( NOERase
 
     where the default ctl_fn is ESASLR.  If the NOERASE is specified,
     the xxx UPDATES and xxx UPDLOG files are not erased.
*/
   Parse Arg ctl_fn rest '(' opt optrest
   If rest <> '' Then Call Msg 'Extra parm(s) <'rest'> ignored.'
   erase_flg = ^Abbrev('NOERASE',Translate(opt),4)
   If erase_flg & opt <> '' Then Call Msg 'Option <'opt'> ignored.'
   If optrest <> '' Then Call Msg 'Option(s) <'optrest'> ignored.'
 
/*   Find input files.  Use ESASLREJ as a key, since we know it exists */
   'pipe command LISTFILE ESASLREJ $JCL * (NOH |',
      'take 1 |',                     /* First disk only */
      'spec w3 1.1 |',                /* The filemode (letter only) */
      'var mode'
 
   If ctl_fn = '' Then ctl_fn = 'ESASLR'
   ctl_fn = Translate(ctl_fn)
   Address Command 'ESTATE' ctl_fn 'CNTRL *'
   If Rc <> 0 Then Call Exit Rc,"File '"ctl_fn" CNTRL *' not found."
 
   'pipe (end %)',
      'COMMAND LISTFILE * $JCL' mode '|',   /* Identify $JCL files */
      'stem files. |',                /* Save the file ids */
      'spec /EXEC EXECUPDT/ 1',       /* Build the EXECUPDT command */
           'w1 nw',
           '/JCL/ nw',
           '/'mode'/ nw',
           '/ (CTL' ctl_fn '/ nw |',
      'cms'
 
   If Rc = 0 & erase_flg Then
      'pipe',
         'stem files. |',
         'spec /ERASE/ 1',
              'w1 nw',
              '/UPDATES/ nw',
              '/'mode'/ nw',
           'write',
              '/ERASE/ 1',
              'w1 nw',
              '/UPDLOG/ nw',
              '/'mode'/ nw |',
         'command'
 
   Call Exit 0
 
Exit:
   Parse Arg xRc,xMsg
   If xMsg <> '' Then Call Msg xMsg
   Exit xRc
 
Msg:
   Parse Arg mMsg
   Say mMsg
   Return 0


Need Support or Password Reset?


Performance Tuning Guide


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


Have a Velocity Software Sales Account Exec contact me.


See what our customers say


IBM Z Ecosystem


Test drive our products
zVPS demo


Follow Velocity Software on LinkedIn!