To UNLOAD A TAPE
PGM
PARM(&DEV &VOL1)
DCL VAR(&DEV ) TYPE(*CHAR) LEN( 10)
DCL VAR(&VOL1
) TYPE(*CHAR) LEN( 10)
DCL VAR(&MSG ) TYPE(*CHAR) LEN( 256)
CHKTAP DEV(&DEV) VOL(&VOL1)
ENDOPT(*UNLOAD)
MONMSG MSGID(CPF0000)
CHGVAR VAR(&MSG) VALUE('Restores completed. Tape ' +
*CAT &DEV *CAT ' Unloaded. Thanks')
SNDMSG MSG(&MSG) TOUSR(*SYSOPR)
END: ENDPGM
No comments