Example 8: Automatically initialize 50 scratch enhanced capacity cartridges

In Figure 1, an automatic run of EDGINERS is used to initialize 50 scratch enhanced capacity cartridges defined to DFSMSrmm in the previous job step, and initialize them for use in a non-system managed tape library. This example assumes that no other volumes in the pool need to be initialized.

Figure 1. Initialize 50 scratch enhanced capacity cartridges

   //LABEL7  JOB ...
   //STEP1 EXEC PGM=IKJEFT01
   //SYSTPRINT  DD  SYSOUT=A
   //SYSTSIN  DD  *
     RMM ADDVOLUME A00100 STATUS(SCRATCH) INIT(Y) -
             COUNT(50) LOCATION(SHELF) MEDIATYPE(ECCST)
   /*
   //STEP2 EXEC PGM=EDGINERS,
   //    PARM='COUNT(50),POOL(A*),INITIALIZE,NOVERIFY'
   //SYSPRINT  DD  SYSOUT=A
   //TAPE  DD  UNIT=(tape,1,DEFER)

Control statement description:

SYSTSIN DD includes commands to define required volumes.
TAPE DD allocates a drive capable of labeling enhanced capacity cartridges.