How to test Double Open Support (PTFs SO12211 & SO12212)
search cancel

How to test Double Open Support (PTFs SO12211 & SO12212)

book

Article ID: 206807

calendar_today

Updated On:

Products

CA 1 Flexible Storage

Issue/Introduction

We have just recently applied PTFs SO12211 and SO12212 which allows for double open support without installing TMSXITF. We have 1 job that only runs once a year that requires double open support. We are unable to test the PTFs because the job we have, the input tape has been scratched. Does Broadcom have a way we can test double open support?

Environment

Release : 14.0

Component : CA 1 Tape Management

Resolution

1) You can run a CTSTAPER to create a file.

//STEP1    EXEC PGM=CTSTAPER                               
//SYSPRINT DD SYSOUT=*                                                                       
//OU01SL01 DD DSN=dsn,   
//            DISP=(NEW,CATLG,DELETE),UNIT=dddd,          
//            LABEL=(1,SL)                                 

 

2) Once you create that file you will need to run TMSUPDTE to NI FLAG1=40 and REP BLKCNT=HEXZEROS.

//TUPDTE  EXEC  PGM=TMSUPDTE  
//TMSRPT   DD   SYSOUT=*                                                                         
//SYSIN    DD   *                                              
VOL vvvvvv,NOCHAIN,NODSN                  (using the volser from step1 above)                        
NI  FLAG1=40                                                   
REP BLKCNT=HEXZEROS                                            



3) Then rerun another CTSTAPER pointing to that volser for output  with DISP=NEW and you should see the IECTMS3 NS64

//STEP3    EXEC PGM=CTSTAPER ,PARM='ABEND'                                                               
//TMSRPT  DD  SYSOUT=*                                                                                
//OU01TAP1 DD DSN=same.dsn.as.on.tape,VOL=SER=vvvvvv,      (volser from above)                            
//            DISP=(NEW,CATLG,DELETE),UNIT=dddd,                                       
//            LABEL=(1,SL,EXPDT=99000)                              
//SYSPRINT DD  SYSOUT=*