midrange.com code scratchpad
Name:
CHKTAPPGM
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
09/19/2011 01:15:07 pm
IP:
Logged
Description:
Check the tape mounted
Code:
  1. /* Group Dekko Services, LLC                                        */
  2. /* ALL RIGHTS RESERVED.                                             */
  3. /*                                                                  */
  4. /* This program will retrieve the volume id of a tape.  It will let */
  5. /* our Operations Manager know the volume id currently loaded.      */
  6. /*                                                                  */
  7. /* Modification log:                                                */
  8. /* mm/dd/yy by R.Berendt, CDP   GDS,LLC                             */
  9. /*          Created                                                 */
  10. /* 02/07/02 by R.Berendt, CDP   GDS,LLC                             */
  11. /*          Added Troy Modlin and Mark Plank to receive status.     */
  12. /* 07/23/03 by R.Berendt, CDP   GDS,LLC                             */
  13. /*          Removed Mark Plank due to his layoff yesterday.         */
  14. /* 11/06/06 by R.Berendt, CDP   GDS,LLC                             */
  15. /*          Add Mark Plank back.                                    */
  16. /* 08/14/07 by C. Strong                                            */
  17. /*          Removed Mark Plank again since he left.                 */
  18. /* 01/25/08 by R.Berendt, CDP   GDS,LLC                             */
  19. /*          Added Kevin Reed                                        */
  20. /*                                                                  */
  21. /*                                                                  */
  22. PGM (                                                                +
  23.       &TAPEDRIVE       /* Name of tape drive to check             */ +
  24.     )
  25.  
  26.     DCL  &EMSG        *CHAR 250  /* Email message                    */
  27.     DCL  &MSG         *CHAR 132  /* First level message text         */
  28.     DCL  &MSGDTA      *CHAR 132  /* Message data                     */
  29.     DCL  &MSGID       *CHAR   7  /* Message id                       */
  30.     DCL  &SYSNAME     *CHAR   8  /* Name of 400                      */
  31.     DCL  &SENDER      *CHAR  20  /* Name of 400                      */
  32.     DCL  &SUBJECT     *CHAR  80  /* Subject of email                 */
  33.     DCL  &TAPEDRIVE   *CHAR  10  /* Which tape drive to check        */
  34.     DCL  &VOLID       *CHAR  14  /* Volume id of the tape            */
  35.  
  36.              RTVNETA    SYSNAME(&SYSNAME)
  37.              CHGVAR     VAR(&VOLID) VALUE(*BLANKS)
  38.              CHGVAR     VAR(&SENDER) VALUE(&SYSNAME *TCAT '@dekko.com')
  39.  
  40.  
  41.     /*                                                                         +
  42.      | If there is any errors on the tape drive, just report them also.        +
  43.     */
  44.  
  45.              CHKTAP     DEV(&TAPEDRIVE) ENDOPT(*REWIND)
  46.              MONMSG     MSGID(CPF0000)
  47.              RCVMSG     MSGQ(*PGMQ) MSG(&MSG) MSGDTA(&MSGDTA) MSGID(&MSGID)
  48.              IF         COND(&MSGID = 'CPC6778') THEN(DO) /* Volume &2 found +
  49.                           on device &1. */
  50.              CHGVAR     VAR(&SUBJECT) VALUE(&SYSNAME *TCAT '-' *TCAT &MSG)
  51.              CHGVAR     VAR(&EMSG) VALUE(&SUBJECT)
  52.              ENDDO
  53.              ELSE       CMD(DO)
  54.              CHGVAR     VAR(&SUBJECT) VALUE(&SYSNAME *TCAT '-' *TCAT &MSG)
  55.              CHGVAR     VAR(&EMSG) VALUE(&SUBJECT)
  56.              ENDDO
  57.              SNDEMAIL   ADDRESSEE( +
  58.                           (aaaaa@DEKKO.COM  'Manager of Development' ) +
  59.                           (bbbbb@DEKKO.COM     'God of System i'        ) +
  60.                           (ccccc@DEKKO.COM   'Operations Manager'     ) +
  61.                           (ddddd@DEKKO.COM   'Accounting Analyst'     ) +
  62.                           ) +
  63.                           SENDER(&SENDER) SUBJECT(&SUBJECT) +
  64.                           MESSAGE(&EMSG)
  65.  
  66. END:
  67.  
  68.              ENDPGM 
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css