midrange.com code scratchpad
Name:
CL program to start MYSQL
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
01/04/2010 08:31:49 pm
IP:
Logged
Description:
This is intended to be used with the subsystem created by the following program: http://code.midrange.com/aa6f8aed17.html
Code:
  1. PGM
  2.  
  3.    DCL VAR(&USER) TYPE(*CHAR) LEN(20) VALUE('mysql')
  4.    DCL VAR(&USERZ) TYPE(*CHAR) LEN(28)
  5.    DCL VAR(&NULL)  TYPE(*CHAR) LEN(1) VALUE(x'00')
  6.    DCL VAR(&BASE)  TYPE(*CHAR) LEN(100)
  7.    DCL VAR(&PGMZ)  TYPE(*CHAR) LEN(116)
  8.  
  9.    RTVDTAARA  DTAARA(MYSQLBASE (1 100)) +
  10.               RTNVAR(&BASE)
  11.    CHGCURDIR DIR(&BASE)
  12.  
  13.    CHGVAR VAR(&USERZ) VALUE('--user=' *CAT &USER *TCAT &NULL)
  14.    CHGVAR VAR(&PGMZ)  VALUE(&BASE *TCAT +
  15.                             '/bin/mysqld_safe' *TCAT &NULL)
  16.  
  17.    CALL PGM(QSYS/QP2SHELL) PARM(&PGMZ &USERZ)
  18.  
  19. ENDPGM
  20.  
© 2004-2019 by midrange.com generated in 0.005s valid xhtml & css