home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / 3x400 / mdfjobd.lzh / MDFJOBDC.CLP < prev    next >
Text File  |  1990-04-08  |  4KB  |  62 lines
  1. 000100851111             PGM        PARM(&JOBDFULL)
  2. 000200840412             DCL        &JOBDFULL *CHAR LEN(20)
  3. 000300840412             DCL        &JOBD *CHAR LEN(10)
  4. 000400840412             DCL        &JOBDLIB *CHAR LEN(10)
  5. 000500851112             DCL        &OBJLIB *CHAR LEN(10)
  6. 000600851111             DCL        &JOBDNM *CHAR LEN(21)
  7. 000700860107             DCL        &RTNCDE *CHAR LEN(8)
  8. 000800840413             DCL        &INLLIBL *CHAR LEN(275)
  9. 000900851112             DCL        &LEN *DEC LEN(15 5) VALUE(500)
  10. 001000851111             DCL        &CMD *CHAR LEN(500) /* QCAEXEC command */
  11. 001100851111             DCL        &ERRORSW *LGL
  12. 001200851111             DCL        &MSGID *CHAR LEN(7)
  13. 001300851111             DCL        &MSGDTA *CHAR LEN(100)
  14. 001400851111             MONMSG     MSGID(CPF0000) EXEC(GOTO ERROR)
  15. 001500840412             CHGVAR     &JOBD %SST(&JOBDFULL 1 10) /* Extract JOBD */
  16. 001600840413             CHGVAR     &JOBDLIB %SST(&JOBDFULL 11 10) /* Library */
  17. 001700900404             RTVJOBD    JOBD(&JOBDLIB/&JOBD) LIB(&OBJLIB) +
  18. 001800900404                          INLLIBL(&INLLIBL)
  19. 001900900408             CHGVAR     VAR(&JOBDNM) VALUE(&JOBD *TCAT '/' *CAT +
  20. 002000900408                          &OBJLIB)
  21. 002100900404             CALL       PGM(MDFLIBL) PARM(&INLLIBL 'JOBD' &JOBDNM +
  22. 002200900404                          &RTNCDE)
  23. 002300860107             IF         (&RTNCDE *EQ 'GOOD') DO /* INLLIBL modified */
  24. 002400900408             CHGVAR     VAR(&CMD) VALUE('CHGJOBD JOBD(' *CAT &JOBDLIB +
  25. 002500900404                          *TCAT '/' *CAT &JOBD *CAT ') INLLIBL(' *CAT +
  26. 002600900408                          &INLLIBL *CAT ')')
  27. 002700900408             CALL       QCMDEXC PARM(&CMD &LEN)
  28. 002800851231             SNDPGMMSG  MSG('The INLLIBL parameter for job +
  29. 002900900408                          description ' *CAT &JOBD *TCAT '/' *CAT +
  30. 003000900404                          &OBJLIB *TCAT ' was modified') +
  31. 003100851111                          MSGTYPE(*COMP)
  32. 003200840209             RETURN     /* Normal end of program */
  33. 003300851231             ENDDO      /* INLLIBL modified */
  34. 003400860107             IF         (&RTNCDE *EQ 'NOCHG') DO /* No change rqstd */
  35. 003500851231             SNDPGMMSG  MSG('No change was requested to job +
  36. 003600900404                          description ' *CAT &JOBDLIB *TCAT '/' *CAT +
  37. 003700900404                          &OBJLIB) MSGTYPE(*COMP)
  38. 003800851231             RETURN
  39. 003900851231             ENDDO      /* No change rqstd */
  40. 004000900408             IF         (&RTNCDE *EQ 'CF3') SNDPGMMSG +
  41. 004100851231                          MSGID(CPF9898) MSGF(QCPFMSG) +
  42. 004200851231                          MSGTYPE(*ESCAPE) MSGDTA('MDFLIBL +
  43. 004300900408                          was cancelled with CF3 key')
  44. 004400851112             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
  45. 004500851112                          MSGTYPE(*ESCAPE) MSGDTA('MDFLIBL command +
  46. 004600851112                          failed with a return code of ' *CAT +
  47. 004700851112                          &RTNCDE)
  48. 004800851111ERROR:                  /* Standard error handling routine */
  49. 004900851111             IF         &ERRORSW SNDPGMMSG MSGID(CPF9999) +
  50. 005000851111                          MSGF(QCPFMSG) MSGTYPE(*ESCAPE) /* Func chk */
  51. 005100851111             CHGVAR     &ERRORSW '1'
  52. 005200851111ERROR1:      RCVMSG     MSGID(&MSGID) MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
  53. 005300851111             IF         (&MSGID *EQ '       ') GOTO ESCAPE
  54. 005400851111             SNDPGMMSG  MSGID(&MSGID) MSGDTA(&MSGDTA) +
  55. 005500851111                            MSGF(QCPFMSG) MSGTYPE(*DIAG)
  56. 005600851111             GOTO       ERROR1 /* Loop back for addl diagnostics */
  57. 005700851111ESCAPE:      RCVMSG     MSGID(&MSGID) MSGDTA(&MSGDTA) +
  58. 005800851111                            MSGTYPE(*EXCP)
  59. 005900851111             SNDPGMMSG  MSGID(&MSGID) MSGDTA(&MSGDTA) +
  60. 006000851111                            MSGF(QCPFMSG) MSGTYPE(*ESCAPE)
  61. 006100851111             ENDPGM
  62.