What does TMSTPPRO do?

Products

• CA 1 Flexible Storage
• CA 1 Tape Management - Copycat Utility
• CA 1 Tape Management - Add-On Options

Issue/Introduction

Could we use TMSTPPRO utility to read the header label ? It is the best utility to read the header label ?

Resolution

 

The TMSTPPRO utility can be used to perform one of the following functions: 

-  Verifies tape header labels.

- Constructs TMC records on the TMC from tape header label information and can be used to build the initial TMC.

-  Erases sensitive data from scratched tape data sets. 

-  Constructs TMC records on an output file from tape header label information.

So , yes we can use it read and verify the header label of the tapes 

 For each tape mounted, TMSTPPRO reads the tape header label, constructs a TMC formatted record from the tape header label information, then performs the processing requested by the user in the PARM field.

 TMSTPPRO will request the first tape mount, and after the first mount, it will continue to make requests for another tape to be mounted until the STOP command is issued (and then the last mount will terminate the job);

You would then need to mount another tape after the STOP command is issued.

For this reason, unfortunately, TMSTPPRO is not very user-friendly in an automated device, and we recommend to use:

- CTSTMAP utility of CA1

//TMAP     EXEC PGM=CTSTMAP, 

//  PARM='MAP TEST01,TEST02,TEST03,TEST04,TEST05,TEST06 UNIT=3490'  

//* PARM='MAP TEST01 UNIT=CART'  

//* PARM='MAP TEST01 UNIT=/2E80'  

//*        STEPLIB REQUIRED IF CAI.CTAPLINK NOT IN LINKLST        */  

//STEPLIB  DD DISP=SHR,DSN=CAI.CTAPLINK       /* CAI.CTAPLINK     */  

//SYSUDUMP DD SYSOUT=*                        /* OPTIONAL         */   

//     

OR 

TAPEMAP function of COPYCAT if copycat is installed:

  //TAPEMAP JOB 

//STEP1 EXEC PGM=COPYCAT,PARM='LANG=ITA' 

//STEPLIB DD DSN=CAI.CAILNK,DISP=SHR 

//SYSPRINT DD SYSOUT=* 

//CCRPT DD SYSOUT=* 

//SYSUSNAP DD SYSOUT=* 

//SYSUDUMP DD SYSOUT=* 

//SYSIN DD * 

TAPEMAP 

INUNIT=CART 

LIST=NO 

HEXMAP=NO 

INPUT=* 

760130 

/*

 OR 

an IEBGENER program:

 //COPY1 EXEC PGM=IEBGENER  

//SYSPRINT DD SYSOUT=*  

//SYSUT1 DD DSN=xxxxxxxx,UNIT=(xxxx,,DEFER),DISP=OLD, change DSN and UNIT  

// VOL=SER=vvvvvv,LABEL=(1,BLP,EXPDT=98000), change the VOL=SER  

// DCB=(RECFM=F,LRECL=80,BLKSIZE=80)  

//SYSUT2 DD SYSOUT=*  

//SYSIN DD DUMMY  

//*