//EXEC   CTTTPI

//SYSIN  DD *

    TYPERUN  [MODE=NORMAL|SIMULATION][,

             PROTECT=ALL|MDB|PROMPT|NOREAD][,

             MDBUPDAT=Y|N][,ADD=N|Y|E|P]

    INITT    SER=volser[,DDNAME=ddname][,OWNER=owner][,

             NUMBTAPE=number][,LABTYPE=AL][,
             ACCESS=char][,ERASE=Y|N][,
             MEDIA=media-type][,VENDOR=vendor-name][,
             VERSION=version-name]

    TAPEMAP  SER=volser[,DDNAME=ddname][,
             NUMERR=number][,STOP=Y|N][,MODE=S|E]

    TAPERAS  SER=volser,[DDNAME=ddname][,
             NUMBTAPE=number][,ERASELBL=Y|N]