There are three methods of getting the commands or VOLSERs to the CTSSYNC utility: PARM= on the EXEC statement, through SYSIN control statements, or passed in a parameter list through register 1. The easiest way to perform a single command is through use of the PARM statement on the EXEC command.
//STEP1 EXEC PGM=CTSSYNC,PARM='EJECT,123456'
This causes cartridge 123456 to be ejected from the 3495/3494 robotics device. Likewise, the same value could have been used as input from the SYSIN control statements.
//SYSIN DD *
EJECT,123456
The command can also be passed in a parameter list pointed to by register 1. This would be used if another program; for example, the security exit, wanted to call the synchronization program passing it the command. The format of the parameter list pointed to by register 1 is as follows:
R1 ==> A(addr1) ==> CL8'EJECT' A(addr2) ==> CL8'123456'
It is possible to use the SYSIN control statement in addition to either of the two parameter methods. For example;
//STEP1 EXEC PGM=CTSSYNC,PARM='BULK' //SYSIN DD * EJECT,123456 EJECT,100001 EJECT,001234
In this example, the BULK command applies to all subsequent commands. Therefore, the EJECT of tapes 123456, 100001, and 001234 would be directed to the bulk location. If a volume command is issued without a VOLSER, all subsequent VOLSERs would then be processed.
//STEP1 EXEC PGM=CTSSYNC //SYSIN DD * SYNC A00001-A00100 100002 102030 100202
In this example, this range and the three listed volumes (100002, 102030, and 100202) would have their statuses synchronized between the tape management system and the 3495/3494 LCS database. This could just as easily be a list of tapes to be ejected to the BULK location (as a post process to the vaulting system for example).
//STEP1 EXEC PGM=CTSSYNC //EXPORT DD DSN=EXPORT.TAPE.LIST, // UNIT=VTAPE,TRTCH=NOCOMP,DISP=(,CATLG) //SYSIN DD * EXPORT,LV1234,OFFSITE1 /* comments */ EXPORT,LV2345,OFFSITE1
In this example, the logical volumes LV1234 and LV2345 are to be removed. An export list volume is created and the 3495/3494 LCS schedules the list to be exported. When the export function is completed, logical volumes LV1234 and LV2345 are stacked on to a physical volume and the physical volume is put in export hold status, waiting to be removed from the 3495/3494.
//STEP1 EXEC PGM=CTSSYNC //IMPORT DD DSN=IMPORT.TAPE.LIST, // UNIT=VTAPE,TRTCH=NOCOMP,DISP=(,CATLG) //SYSIN DD * IMPORT,PV0001,LV1234 IMPORT,PV0001,LV2345-LV2348 /* range of logical volumes */
In this example, logical volumes LV1234 and LV2345 thru LV2348 are imported from physical volume PV0001. An import list volume is created and the 3495/3494 LCS schedules the list to be imported.
//STEP1 EXEC PGM=CTSSYNC //IMPORT DD DSN=IMPORT.TAPE.LIST, // UNIT=VTAPE,TRTCH=NOCOMP,DISP=(,CATLG) //SYSIN DD * IMPORT,PV0001
In this example, all logical volumes on physical volume PV0001 will be imported. An import list volume is created and the 3495/3494 LCS schedules the list to be imported.
The CTE3495 member in CAI.CTAPEARL can be used to help generate a list of VOLSERs as input to CTSSYNC.
//STEP1 EXEC PGM=CTSSYNC,PARM='SCRATCH,ABDLMT=12' //IMPORT DD DSN=IMPORT.TAPE.LIST, // UNIT=VTAPE,TRTCH=NOCOMP,DISP=(,CATLG) //SYSIN DD * 012345 /* SINGLE TAPE WITH COMMENT */ ABC017-ABC052 /* SCRATCH ALL TAPES IN THIS RANGE */ SYNC XYZ100-XYZ299
In this example, the EXEC PARM is used to set 'SCRATCH' as a global command and to ABEND CTSSYNC if the highest return code is greater than or equal to 12. The VOLSER 012345 and the range of VOLSERs ABC017 through ABC052 will be scratched through the global command. The range of VOLSERs XYZ100 thru XYZ299 will be synchronized with the tape management system.
|
Copyright © 2014 CA.
All rights reserved.
|
|