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 email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
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.