Before extending the TMC, verify that sufficient space is available. The IBM IEHLIST or IDCAMS utilities or ISPF Version 3.2 or 3.4 functions may be used to determine the amount of unused space. The Installation Guide may be used to help calculate the space required.
It is strongly recommended, but not required, that TMSPTRS be executed to detect any chaining errors that should be corrected in the TMC. If any of the volumes being added have volume serial numbers that are not six-digit numerics, two user exits are required to perform the alphanumeric to numeric translation described on Formatting a New TMC and Providing Optional Initial Information. For more information on user exits TMSXITU and TMSXITE, see the Programming Guide.
CA 1 must be batch active to extend the TMC. During the extend operation, data can be entered to build Volume records for the new volumes or ranges of volumes being added. Deviations from the following procedure may result in an incorrect or unusable TMC.
If you are planning on extending the TMC with volsers that are alphanumeric then you will need to update your conversion exits, TMSXITE and TMSXITU. This can be done with TMSXITE and TMSXITU or with TMSVOLDF.
Stop tape processing on all CPUs.
Back up the TMC using TMSCOPY.
Batch activate CA 1 on the CPU running TMSFORMT using TMSINIT. Respond to the IEFTMS0 initialization prompt with system.password,BATCH. For all other CPUs sharing the TMC, place CA 1 in an inactive state using TMSINIT. Respond to the IEFTMS0 initialization prompt with system.password. Respond to the CTS address space with a command to RELEASE the TMC.
Note: In a batch active state, such facilities as CA 1 ISPF, TIQ and TMSUPDTE perform relative record updates and do not go through an OPEN. Therefore, make sure that none of these facilities are in use at the time of the TMSFORMT extend process.
Allocate a new TMC unless the original allocation is being used.
DCB=(RECFM=FB,LRECL=340,BLKSIZE=n*340,DSORG=PSU,BUFNO=60)
Note: The BLKSIZE may be any multiple of the LRECL, 340, but not 680. When blocking the TMC, the smallest valid block size is 1020. Also, when formatting a small blocked test TMC, make sure that it consists of at least 2 blocks. A recommended value is BLKSIZE=8840. For small blocksizes, an appropriate BUFNO= value may be added to the DCB parameter to improve performance.
Execute TMSFORMT with the EXTEND control statement using the backup tape from Step 2 as input to the RESTORE DD. If you are formatting an alphanumeric range you will need to add a STEPLIB to the JCL pointing to the new TMSXITE and TMSXITU modules.
If the extend fails because there is insufficient space (SD37 ABEND), allocate a larger new TMC and return to Step 5.
If a new TMC data set name was used, make sure that it is cataloged to all CPUs, and that the TMC data set name parameter (TMCDSN) in the TMOOPTxx member of hlq.CTAPOPTN reflects the same name.
If you formatted the TMC using new exits, they must be loaded into LPA through CAS9 before you start TMSINIT. Change the CARIMPRM control statement in CAS9 for CA 1 to:
PRODUCT(CA 1/MVS) VERSION(L0C6) INIT(L0C6INIT) - PARM(REINIT,LPA=TMSXITE) - LOADLIB(your load library) PRODUCT(CA 1/MVS) VERSION(L0C6) INIT(L0C6INIT) - PARM(REINIT,LPA=TMSXITU) - LOADLIB(your load library)
You need 2 statements so that both exits are loaded. Execute TMSINIT on all CPUs to reactivate CA 1.
If using TMSVOLDF change the CARIMPRM control statement in CAS9 for CA 1 to:
PRODUCT(CA 1/MVS) VERSION(L0C6) INIT(L0C6INIT) - PARM(REINIT,LPA=TMSVOLDF) - LOADLIB(your load library) PRODUCT(CA 1/MVS) VERSION(L0C6) INIT(L0C6INIT) - PARM(REINIT,LPA=TMSXITE) - LOADLIB(your load library) PRODUCT(CA 1/MVS) VERSION(L0C6) INIT(L0C6INIT) - PARM(REINIT,LPA=TMSXITU) - LOADLIB(your load library)
Back up the new TMC using TMSCOPY. Respond to the CTS address space with a command to obtain the TMC.
Note: In a batch active state, facilities as CA 1 ISPF, TIQ and TMSUPDTE perform relative record updates and do not go through an OPEN. Therefore, care must be taken to ensure that none of these facilities are in use at the time of the TMSFORMT EXTEND process.
Steps 1, 4, 6 and 7 are standard system functions. Steps 2, 3, 8 and 9 are CA 1 functions which are explained in this section of the manual under TMSCOPY and TMSINIT. Step 5 is explained in this subsection under the EXTEND control statement.
Note: For more information on CTS address space commands, see the Administration Guide.
If all attempts to extend the TMC fail when the original allocation is used, then restore the TMC with TMSCOPY using a PARM of RESTORE, NOAUDIT. Use the TMC backup from Step 2 and then back up the restored TMC with TMSCOPY.
If all attempts to extend the TMC fail when the original allocation is not used, recatalog the old TMC on all CPUs.
Extending the TMC is a critical process. Immediately after an extend, verify that the TMC has been extended as desired by using CA 1 ISPF or TIQ, TMSBINQ (HEADERS) and CA Earl reports. Also, verify that all CPUs are using the same TMC. If the extended TMC is not as desired, follow the instructions in the previous two paragraphs for restoring or recataloging the original TMC.
The extend procedure may be tested by creating a new TMC, using a different data set name than the production TMC and performing Steps 1 through 6. DO NOT use the existing allocation for the production TMC. Step 8 may then be performed on the CPU executing the extend. You can reference the test TMC by either (1) changing the TMCDSN option in the TMOOPTxx member of hlq.CTAPOPTN, or by (2) renaming the production TMC to a backup name and the test TMC to the production name.
You can verify that the extend operation was successful by using the CA 1 batch or online facilities mentioned above. To reestablish the production TMC, either (1) make sure the TMOOPTxx reference is correct, or (2) rename the production TMC to its proper name and the test TMC to a different name.
Console messages are issued during TMSFORMT EXTEND processing. These messages are documented in the Messages Reference Guide.
|
Copyright © 2013 CA Technologies.
All rights reserved.
|
|