We hope everyone is having a great week so far! Remember you can always send us an email with ideas or tips you would like to see in a future iTips newsletter!

Enjoy this week's iTip and have a great holiday weekend!

z/XML-Host™: Easy SOA and Web Services

Never mind what your mother told. It's OK to talk to strangers - in fact, it's essential!

z/XML-Host makes it Easy for your mainframe 3270 applications to talk with any other platform using XML and SOAP-based Web services.  This includes .NET and Java applications-even Microsoft Excel can access your mainframe data Easily.

And since z/XML-Host runs directly on your mainframe, you can meet strangers on the same day you complete the Easy installation.

YES! I want to talk to strangers!

View more information on z/XML-Host

Finally...internet-enabling your mainframe can be Easy.

This Week's iTip!

Stacking Files on Increased Capacity Tapes

So you have these new 3592 tape drives and now you need to effectively utilize the capacity of the cartridges.  With CA-DYNAM (EPIC has the same capability) you can stack datasets.  You can define your stacked datasets to the DYNAM catalog with the following job.  This is the manual way of stacking datasets and the datasets must be created in this order.

DYNAM Dataset Define Job

* $$ JOB JNM=DYNCATD,DISP=D,PRI=7,CLASS=0                              

* $$ LST DISP=D,CLASS=Q,FNO=1WID                                       

// JOB DYNCATD      * SYSTEMS * DYNAM CATALOG UTILITY                  

// ON $CANCEL GOTO ABEND                                               

// ON $ABEND  GOTO ABEND                                                

/. STEP01                                                              

* ** STEP 01   * DYNCAT   * DYNAM CATALOG UTILITY - DEFINE           * 

// EXEC DYNCAT,SIZE=128K                                               

DEF 'WKLY.CSP200.BKUP' NGEN=7  COM='WEEKLY FCOPY VOLUME BACKUPS'       

DEF 'WKLY.CSP201.BKUP' PF='WKLY.CSP200.BKUP'                           

DEF 'WKLY.CSP202.BKUP' PF='WKLY.CSP201.BKUP'                           

DEF 'WKLY.CSP203.BKUP' PF='WKLY.CSP202.BKUP'                           

/*                                                                     

// GOTO GOODEOJ                                                        

/. ABEND                                                               

*  ******************************************************************* 

*  OPERATOR:  JOB DYNCATDF HAS TERMINATED ABNORMALLY.                * 

*  ******************************************************************* 

// PAUSE                                                                

/*                                                                     

/. GOODEOJ                                                             

/&                                                                     

* $$ EOJ                                                                

 Once you have run the job to define the datasets, you can use something like the following Backup job to create the datasets on a single tape.

Note the DYNAM options on the TLBL.  P indicates that dynamic lub allocation is prohibited, N indicates No rewind, and H means to hold the assignment.

Weekly Volume Backup Job

* $$ JOB JNM=WKLYVOLS,CLASS=0,DISP=H,PRI=7                             

* $$ LST DISP=K,CLASS=Q                                                 

// JOB WKLYVOLS    * SYSTEMS * WEEKLY SYSTEM VOLUME BACKUPS          * 

// ON $CANCEL GOTO ABEND                                               

// ON $ABEND  GOTO ABEND                                               

/. STEP01                                                               

* ** STEP 01   * FCOPY    * VOLUME BACKUP OF CSP200                  * 

// SETPFIX LIMIT=1024K                                                 

// ASSGN SYS004,DISK,VOL=DOSRES,SHR                                     

// TLBL UOUT,'WKLY.CSP200.BKUP,(P,N,H)'                                

// EXEC TDYNASN,SIZE=128K                                              

// ASSGN SYS005,DUMMY                                                  

/*                                                                      

// EXEC FCOPY,SIZE=900K                                                

   DUMP VOLUME NOVERIFY NOPROMPT                                       

/*                                                                      

/. STEP02                                                              

* ** STEP 02   * FCOPY    * VOLUME BACKUP OF CSP201                  * 

// SETPFIX LIMIT=1024K                                                 

// ASSGN SYS004,DISK,VOL=CSP201,SHR                                    

// TLBL UOUT,'WKLY.CSP201.BKUP,(P,N,H)'                                

// EXEC FCOPY,SIZE=900K                                                

   DUMP VOLUME NOVERIFY NOPROMPT                                        

/*                                                                     

/. STEP03                                                              

* ** STEP 03   * FCOPY    * VOLUME BACKUP OF CSP202                  * 

// SETPFIX LIMIT=1024K                                                 

// ASSGN SYS004,DISK,VOL=CSP202,SHR                                    

// TLBL UOUT,'WKLY.CSP202.BKUP,(P,N,H)'                                

// EXEC FCOPY,SIZE=900K                                                 

   DUMP VOLUME NOVERIFY NOPROMPT                                       

/*                                                                     

/. STEP04                                                              

* ** STEP 04   * FCOPY    * VOLUME BACKUP OF CSP203                  * 

// SETPFIX LIMIT=1024K                                                 

// ASSGN SYS004,DISK,VOL=CSP203,SHR                                    

// TLBL UOUT,'WKLY.CSP203.BKUP,(P,N,H)'                                 

// EXEC FCOPY,SIZE=900K                                                

   DUMP VOLUME NOVERIFY NOPROMPT                                       

/*                                                                     

// GOTO GOODEOJ

/. ABEND                                                               

*  ******************************************************************* 

*  OPERATOR:  JOB WKLYVOLS HAS TERMINATED ABNORMALLY.                * 

*  ******************************************************************* 

// PAUSE                                                               

/*                                                                     

/. GOODEOJ                                                             

/&

* $$ EOJ

Do you have something to add to this tip? Add it to the VSEWiki page!

z/IPMon^® - Now with New Advisor™ Facility!

Experience a Live VSE System Running z/IPMon Today!

Your wishes have been granted, TCP/IP users! z/IPMon, the only full function performance and problem manager for your critical VSE TCP/IP systems, can now tell you when something is wrong in your TCP/IP environment. The new z/IPMon Advisor feature takes the guesswork out of managing your VSE TCP/IP System. Advisor processes your Retrospect data according to a range of time you specify, and then will automatically suggest and set Alerts based on changes in your system. Using mathematically and statistically sound principles, Advisor will determine what type of change is significant enough to create an Alert. What this means is z/IPMon determines what is important automatically, watches your network performance and then TELLS you that you potentially have an issue, all without you having to do anything at all.

What's more, the Release 2.0 of z/IPMon now ships with a complete Report Writer capability called z/IPUtil™. You can select any of the fields of data that are captured and create a report with any of the fields, in any order, complete with subtotal and sorting abilities. Rather than create "canned" reports which may be too limiting, we gave you the ability to report on whatever you need, with simple, easy to understand "select"  type statements in the JCL.

Log On to a Live VSE System with z/IPMon to SEE What You've Been Missing!

View our Video Demo today to get a feel for how it works!

Download a FREE - yes, we said FREE - trial of z/IPMon

Understanding Your TCP/IP System - A White Paper

We Want to Hear From YOU!