Home > IT Answers > AS/400 > CL script required for tape automation process
venkatktata
275 pts.
 CL script required for tape automation process
AS/400 - DDS, AS/400 backup, AS/400 BRMS, AS/400 hardware, AS/400 programming
Hi All, allocated with LT04 tape unit in the physical 3584 tape library. The following scenarios to test:  • Tape properly loaded  • Improperly loaded  • No tape  • Incorrect Category  • Aborted, try to restart. CL script required for tape automation process to check the above 5 scenarios. Any help will be appreciated. Thanks GK

Software/Hardware used:
V5R4M5
ASKED: December 14, 2011  3:36 PM
UPDATED: February 28, 2012  3:04 PM
RELATED QUESTIONS
Answer Wiki:
<pre> &Day can be equal to whatever you set it to be /*-------------------------------------------------------------------*/ /* Check for correct tape */ /*-------------------------------------------------------------------*/ CHKTAP: CHKTAP DEV(&DEVICE) ENDOPT(*REWIND) MONMSG MSGID(CPF6760 CPF6718) EXEC(Goto Error) /* GET VOLUME ID */ RCVMSG MSGQ(*PGMQ) MSGTYPE(*LAST) RMV(*NO) + MSGDTA(&MSGDTA) CHGVAR VAR(&LABEL4) VALUE(%SST(&MSGDTA 11 4)) /* WRONG TAPE FOUND */ IF COND(&LABEL4 *NE &DAY) THEN(Goto Error)</pre>
Last Wiki Answer Submitted:  December 14, 2011  3:42 pm  by  CharlieBrowne   33,730 pts.
All Answer Wiki Contributors:  CharlieBrowne   33,730 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _