CL script required for tape automation process

285 pts.
Tags:
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

Answer Wiki

Thanks. We'll let you know when a new response is added.

<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>

Discuss This Question:  

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following