midrange.com code scratchpad
Name:
CL to create MYSQL startup/end library
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
01/04/2010 08:30:17 pm
IP:
Logged
Description:
This creates a library. in the library it creates a MYSQLBASE data area, MYSQL job queue, MYSQL subsystem description, MYSQL job description, class, etc. Everything needed to start a subsystem named MYSQL that'll be used to run MYSQL itself.
Code:
  1. PGM PARM(&MLIB)
  2.  
  3. DCL VAR(&MLIB) TYPE(*CHAR) LEN(10)
  4.  
  5. CRTLIB LIB(&MLIB) TEXT('MySQL')
  6. MONMSG CPF2111
  7.  
  8. CRTSRCPF FILE(&MLIB/QCLSRC) TEXT('MySQL Utils Source')
  9. MONMSG (CPF5813 CPF7302)
  10.  
  11. CRTDTAARA  DTAARA(&MLIB/MYSQLBASE) TYPE(*CHAR) LEN(100) +
  12.            VALUE('/usr/local/mysql/mysql') +
  13.            TEXT('MySQL Base Directory')
  14. MONMSG CPF1023
  15.  
  16. CRTJOBQ JOBQ(&MLIB/MYSQL) TEXT('MySQL JobQ')
  17.  
  18. CRTJOBD JOBD(&MLIB/MYSQL) JOBQ(&MLIB/MYSQL) +
  19.         TEXT('MySQL Job Description') USER(MYSQL) +
  20.         RTGDTA('MYSQL') +
  21.         RQSDTA('CALL' *BCAT &MLIB *TCAT '/STRMYSQL') +
  22.         INLLIBL(&MLIB QGPL QTEMP)
  23.  
  24. CRTCLS CLS(&MLIB/MYSQL) RUNPTY(30) TIMESLICE(9000) +
  25.         TEXT('MySQL Class')
  26.  
  27. CRTSBSD SBSD(&MLIB/MYSQL) POOLS((1 *BASE)) +
  28.         TEXT('MySQL Subsystem')
  29.  
  30. ADDJOBQE SBSD(&MLIB/MYSQL) JOBQ(&MLIB/MYSQL)
  31.  
  32. ADDRTGE  SBSD(&MLIB/MYSQL) SEQNBR(9999) CMPVAL(*ANY) +
  33.           PGM(QCMD) CLS(&MLIB/MYSQL)
  34.  
  35. ADDAJE SBSD(&MLIB/MYSQL) JOB(MYSQLD) JOBD(&MLIB/MYSQL)
  36.  
  37. ENDPGM
  38.  
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css