Code:
- /* Group Dekko Services, LLC */
- /* ALL RIGHTS RESERVED. */
- /* */
- /* This program will retrieve the volume id of a tape. It will let */
- /* our Operations Manager know the volume id currently loaded. */
- /* */
- /* Modification log: */
- /* mm/dd/yy by R.Berendt, CDP GDS,LLC */
- /* Created */
- /* 02/07/02 by R.Berendt, CDP GDS,LLC */
- /* Added Troy Modlin and Mark Plank to receive status. */
- /* 07/23/03 by R.Berendt, CDP GDS,LLC */
- /* Removed Mark Plank due to his layoff yesterday. */
- /* 11/06/06 by R.Berendt, CDP GDS,LLC */
- /* Add Mark Plank back. */
- /* 08/14/07 by C. Strong */
- /* Removed Mark Plank again since he left. */
- /* 01/25/08 by R.Berendt, CDP GDS,LLC */
- /* Added Kevin Reed */
- /* */
- /* */
- PGM ( +
- &TAPEDRIVE /* Name of tape drive to check */ +
- )
-
- DCL &EMSG *CHAR 250 /* Email message */
- DCL &MSG *CHAR 132 /* First level message text */
- DCL &MSGDTA *CHAR 132 /* Message data */
- DCL &MSGID *CHAR 7 /* Message id */
- DCL &SYSNAME *CHAR 8 /* Name of 400 */
- DCL &SENDER *CHAR 20 /* Name of 400 */
- DCL &SUBJECT *CHAR 80 /* Subject of email */
- DCL &TAPEDRIVE *CHAR 10 /* Which tape drive to check */
- DCL &VOLID *CHAR 14 /* Volume id of the tape */
-
- RTVNETA SYSNAME(&SYSNAME)
- CHGVAR VAR(&VOLID) VALUE(*BLANKS)
- CHGVAR VAR(&SENDER) VALUE(&SYSNAME *TCAT '@dekko.com')
-
-
- /* +
- | If there is any errors on the tape drive, just report them also. +
- */
-
- CHKTAP DEV(&TAPEDRIVE) ENDOPT(*REWIND)
- MONMSG MSGID(CPF0000)
- RCVMSG MSGQ(*PGMQ) MSG(&MSG) MSGDTA(&MSGDTA) MSGID(&MSGID)
- IF COND(&MSGID = 'CPC6778') THEN(DO) /* Volume &2 found +
- on device &1. */
- CHGVAR VAR(&SUBJECT) VALUE(&SYSNAME *TCAT '-' *TCAT &MSG)
- CHGVAR VAR(&EMSG) VALUE(&SUBJECT)
- ENDDO
- ELSE CMD(DO)
- CHGVAR VAR(&SUBJECT) VALUE(&SYSNAME *TCAT '-' *TCAT &MSG)
- CHGVAR VAR(&EMSG) VALUE(&SUBJECT)
- ENDDO
- SNDEMAIL ADDRESSEE( +
- (aaaaa@DEKKO.COM 'Manager of Development' ) +
- (bbbbb@DEKKO.COM 'God of System i' ) +
- (ccccc@DEKKO.COM 'Operations Manager' ) +
- (ddddd@DEKKO.COM 'Accounting Analyst' ) +
- ) +
- SENDER(&SENDER) SUBJECT(&SUBJECT) +
- MESSAGE(&EMSG)
-
- END:
-
- ENDPGM
|
|