Creating a Tape Volume Entry:

The CREATE VOLUMEENTRY command creates tape volume entries.

This example creates a tape library entry for a volume with volser AL0001.

//CREATVOL JOB  ...
//STEP1    EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=A
//SYSIN    DD   *
     CREATE VOLUMEENTRY -
           (NAME(VAL0001) -
           LIBRARYNAME(ATLLIB1) -
           STORAGEGROUP(*SCRTCH*) -
           USEATTRIBUTE(SCRATCH) -
           NOWRITEPROTECT -
           LOCATION(LIBRARY) -
           SHELFLOCATION(10098SHELF) -
           OWNERINFORMATION('JOHN SMITH,RMKD222') -
           ENTEREJECTDATE(1990-03-18) -
           EXPIRATIONDATE(2000-12-31) -
           WRITEDATE(1991-01-02) -
           MOUNTDATE(1991-01-02))
/*