Don't you just hate initializing new tapes? This simple CL will take the hassle out of this boring task, and all you need to do is load the tapes -- job done.
Details for file that contains volume IDS for the tapes.
A R TAP1 A VOLID 6 cl program PGM DCL VAR(&TAP) TYPE(*CHAR) LEN(5) DCLF FILE(yourlib/TAPID) READF: RCVF MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM)) INZTAP DEV(&TAP) NEWVOL(&VOLID) NEWOWNID(your_company) + CHECK(*NO) ENDOPT(*UNLOAD) DLYJOB DLY(20) GOTO READF ENDPGM: ENDPGM
================================== MORE INFORMATION ON THIS TOPIC ==================================
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.
This was first published in February 2002