Don't you just hate initializing new tapes? This simple CL will take the hassle out of this boring task, and all...
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.
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.