Tape Initialization - STK Robot

Products

• CA 1 Flexible Storage

Issue/Introduction

 

How to initialize tapes in the STK robot using SLUADMIN and TMSTPNIT?

 

Resolution

 

//INIT         EXEC PGM=SLUADMIN,PARM=MIXED,TIME=1440
 //STEPLIB     DD   DSN=your.stk.linklib,DISP=SHR
 //LABELDD     DD   UNIT=(2100,,DEFER),DISP=NEW    TMSTPNIT TAPE UNIT DD
 //SLSTAPE     DD   UNIT=AFF=LABELDD               INIT CART TAPE UNIT DD
 //SLSPRINT    DD   SYSOUT=*                       UTILITY MESSAGES.
 //SYSPRINT    DD   SYSOUT=*                       IEHINITT MESSAGES.
 //SYSUDUMP    DD   SYSOUT=*
 //SLSINIT     DD   *                              PROTOTYPE CNTRL STMT.
 INTAPE NUMBTAPE=2,SER=******
 //SLSIN         DD    *                           INIT CARTRIDGE CNTRL STATEMENT
  INITIALIZE PROG(TMSTPNIT) VERIFY(ROBOT) OPT(SCRATCH)
 /*
 //SYSIN         DD    *
 INTAPE SER=000005
 INTAPE SER=000016
 /*
 //

This will initialize 2 tapes with the volsers of 000005 and 000006.