User Exit Reference › ALLOCATE User Exit › Examples › Example 4

Example 4

In this sample user exit, DA0-DA3 are ACS silo drives, and 720 is an external drive. All tape mounts are driven to the ACS drives, except for CA VM:Backup tape copies, which go to the external drive for off-site removal. Before you implement this user exit, follow these steps:

1. Set up the HSC interface with the PRODUCT record.
2. Manually set up the ACS_drive_list and EXT_drive_list as they exist at your site.
3. Program the user exit as shown in the following code:

ALLOCATE User Exit Example 4

/*------------------Set up the drive lists--------------------------*/
ACS_drive_list = 'DA0 ACTIVE DA1 ACTIVE DA2 ACTIVE DA3 ACTIVE 720 EXEMPT' 
EXT_drive_list = 'DA0 EXEMPT DA1 EXEMPT DA2 EXEMPT DA3 EXEMPT 720 ACTIVE'

/*------------------Set external EDL for VM:Backup twin copies--------*/

twin_dsn = 'VMB.MONTHLY.COPY1 VMB.WEEKLY.COPY1 VMB.DAILY.COPY1'

'EXTRACT /MOUNT/'
 if (MOUNT.1='RELEASE') then
exit 0    /* RC = 0, Skip VM:Tape drive ordering */
 if (MOUNT.1 = 'MOUNT') then
 do
   if (find(twin_dsn,MOUNT.4) > 0) then                                 
    'SET EDL' EXT_drive_list
   else
    'SET EDL' ACS_drive_list
 end
exit 0       /* RC = 0, Skip VM:Tape drive ordering */