Contents

The CA VM:Account/CA VM:Tape interface provides two functions that enable you to:

  • Charge users for tape mounts
  • Charge users for storing tape volumes

This interface allows you to maintain control of tape usage and storage, thereby controlling costs that would usually be allocated as overhead. It also helps in the effort to recycle tapes by indicating tapes owned by and charged to users that are not being used. These tapes can be scratched and returned to general use.

Details on how each function works, any restrictions or requirements that apply, and instructions about how to implement each function are presented in the sections that follow.

Charging for Tape Mounts

The CA VM:Account/CA VM:Tape interface enables you to charge users for tape mounts. The CA VM:Tape VMTEXIT4 user exit can be used to create accounting records for tape mounts. These accounting records are subsequently used to charge users for the tape mounts.

Restrictions and Requirements

None.

Implementation

  1. Verify that there is an OPTION ACCT record in the VMTAPE directory entry.
  2. Log on to VMTAPE.
  3. Enter the END command to shut down VMTAPE.
  4. Implement the VMTEXIT4 exit. There is a prototype exit named VMTEXIT4 5ASSEMBL on the product materials VMSES/E sample disk.
    Note: For more information, see the CA VM:Tape Administration Guide.
    • Edit the user exit using XEDIT; the text in the file tells you what modifications are necessary.
    • File the VMTEXIT4 5ASSEMBL file, change the filetype to ASSEMBLE, and assemble the file.
    • Place the changed ASSEMBLE file and resulting TEXT file on the CA VM:Tape 191 (LOCAL) minidisk.
  5. Make sure that there is a USEREXIT USREXIT4 VMTEXIT4 record in the VMTAPE CONFIG file. This configuration file record specifies the name of the user exit that receives control after attaching the successfully mounted tape to the us.
  6. Enter the PROFILE command to restart VMTAPE.
  7. Enter the #CP DISCONN command to leave VMTAPE running disconnected.
  8. Log on to VMACCT.
  9. Enter the END command to shut down VMACCT.
  10. Make sure that there is a PRODUCT VMTAPE VMTAPE record in the VMACCT CONFIG file. This configuration file record provides CA VM:Account with the CA VM:Tape service virtual machine user ID and enables the tape input/output feature. This record activates the CA VM:Account side of the interface.
  11. Enter the PROFILE command to restart VMACCT.
  12. Enter the #CP DISCONN command to leave VMACCT running disconnected.
  13. Use the CA VM:Account full-screen UPDATE command to add a cost per mount record to the TAPMOUNT COSTABLE file. CA VM:Account uses this file to apply charges to tape mount accounting records (datatype A6) created by the CA VM:Tape VMTEXIT4 user exit.

Charging for Tape Volume Storage

With this function of the CA VM:Account/CA VM:Tape interface, you can charge users for storing tape volumes. Accounting records for tape volume storage (datatype A3) are created by executing the CA VM:Account VMJTVA tape storage accounting utility. VMJTVA generates one accounting record for each user who owns a tape (or tapes). This record reflects the number of days for tape volume storage.

Restrictions and Requirements

To ensure that accurate accounting records are generated, execute the CA VM:Account VMJTVA utility before the CA VM:Tape SCRATCH command is run.

Implementation

  1. Log on to VMANAGER.
    Ensure that VMANAGER has a link to the CA VM:Tape Tape Management Catalog (TMC) on the CA VM:Tape 1B0 minidisk (CMSTMC).
  2. Create an EXEC called TVCHG EXEC that invokes the VMJTVA utility.
    /*******************************************************
    *                                                      *
    *                    TVCHG EXEC                        *
    *                                                      *
    * This EXEC uses VMJTVA to charge users for storage    *
    *     of tape volumes.                                 *
    *                                                      *
    * Requires:  Access to the CA VM:Tape TMC.             *
    *            Access to the VMJTVA utility.             *
    *            Modification to VMJTVA command line.      *
    *                                                      *
    *******************************************************/
    Address 'COMMAND'
    'CP SPOOL CONSOLE * START'
    'CP LINK VMTAPE 1B0 199 RR'
    'ACCESS 199 C'
    'FILEDEF TVA DISK VMTAPE TMC C'
    'VMJTVA TVA (option-list)'/* specify utility options  */
    If rc <> 0 Then 
         $reason = 'FAILED'
    Else
         $reason = 'COMPLETED'
    'CP SPOOL CONSOLE CLOSE STOP'
    'CP MSG * VMJTVA' $reason
    If rc <> '0' Then 'CP LOGOFF'
    Exit
    
    If VMANAGER is already linked to the CA VM:Tape CMSTMC (1B0) minidisk, delete this line from the TVCHG EXEC:
    'CP LINK VMTAPE 1B0 199 RR'
    
    If you delete this line, change the FILEDEF line in the EXEC to read as follows, where x is the access mode of the CA VM:Tape CMSTMC minidisk:
    'FILEDEF TVA VMTAPE TMC x'
    
  3. Log on to VMACCT.
  4. Enter the END command to shut down VMACCT.
  5. Make sure there is a PRODUCT VMTAPE VMTAPE record in the VMACCT CONFIG file. This configuration file record provides CA VM:Account with the CA VM:Tape service virtual machine user ID. This record activates the CA VM:Account side of the interface.
  6. Make sure there is a SPECIAL TAPEVOLS VMANAGER record in the VMACCT CONFIG file. This configuration file record identifies VMANAGER to CA VM:Account as the user ID that executes the VMJTVA utility.
  7. Enter the PROFILE command to restart VMACCT.
  8. Enter the #CP DISCONN command to leave VMACCT running disconnected.
  9. Use the CA VM:Account full-screen UPDATE command to add a charge rate per day record to the VOLUMES COSTABLE file. CA VM:Account uses this file to apply costs to the accounting records that the VMJTVA utility creates.