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:
- PGM PARM(&MLIB)
-
- DCL VAR(&MLIB) TYPE(*CHAR) LEN(10)
-
- CRTLIB LIB(&MLIB) TEXT('MySQL')
- MONMSG CPF2111
-
- CRTSRCPF FILE(&MLIB/QCLSRC) TEXT('MySQL Utils Source')
- MONMSG (CPF5813 CPF7302)
-
- CRTDTAARA DTAARA(&MLIB/MYSQLBASE) TYPE(*CHAR) LEN(100) +
- VALUE('/usr/local/mysql/mysql') +
- TEXT('MySQL Base Directory')
- MONMSG CPF1023
-
- CRTJOBQ JOBQ(&MLIB/MYSQL) TEXT('MySQL JobQ')
-
- CRTJOBD JOBD(&MLIB/MYSQL) JOBQ(&MLIB/MYSQL) +
- TEXT('MySQL Job Description') USER(MYSQL) +
- RTGDTA('MYSQL') +
- RQSDTA('CALL' *BCAT &MLIB *TCAT '/STRMYSQL') +
- INLLIBL(&MLIB QGPL QTEMP)
-
- CRTCLS CLS(&MLIB/MYSQL) RUNPTY(30) TIMESLICE(9000) +
- TEXT('MySQL Class')
-
- CRTSBSD SBSD(&MLIB/MYSQL) POOLS((1 *BASE)) +
- TEXT('MySQL Subsystem')
-
- ADDJOBQE SBSD(&MLIB/MYSQL) JOBQ(&MLIB/MYSQL)
-
- ADDRTGE SBSD(&MLIB/MYSQL) SEQNBR(9999) CMPVAL(*ANY) +
- PGM(QCMD) CLS(&MLIB/MYSQL)
-
- ADDAJE SBSD(&MLIB/MYSQL) JOB(MYSQLD) JOBD(&MLIB/MYSQL)
-
- ENDPGM
-
|
|
|