19 lines
508 B
SQL
19 lines
508 B
SQL
SET PATH *LIBL ;
|
|
|
|
CREATE OR REPLACE VARIABLE CISTOOLS.SL_CREDS
|
|
VARCHAR( 20)
|
|
DEFAULT ( QSYS2 . RPAD ( ( SELECT SFLIB . SFENVC . SEVT01
|
|
FROM SFLIB . SFENVC
|
|
WHERE SFLIB . SFENVC . SEKEY = 'LRPSLUSR' ) , 10 , '' ) || ( SELECT SFLIB . SFENVC . SEVT01
|
|
FROM SFLIB . SFENVC
|
|
WHERE SFLIB . SFENVC . SEKEY = 'LRPSLPWD' ) ) ;
|
|
|
|
GRANT ALTER , READ , WRITE
|
|
ON VARIABLE CISTOOLS.SL_CREDS
|
|
TO AMAPICS WITH GRANT OPTION ;
|
|
|
|
GRANT READ , WRITE
|
|
ON VARIABLE CISTOOLS.SL_CREDS
|
|
TO PUBLIC ;
|
|
|