IBM SC34-5764-01 User Manual

Page 458

Advertising
background image

A package for the CICSQL program is loaded into the DB2 database under the SQLDBA user. This is
supplied as member CICSQL.A.

If you fail to do this, REXX gives return codes such as -805 whenever an "ADDRESS EXECSQL
command" is issued.

Adapt the following JCL and run DB2 in single user mode, substituting the correct password for user
SQLDBA. The default is SQLDBAPW but this is normally changed as part of the DB2 installation process.

// JOB RELOAD CICSQL PACKAGE
// LIBDEF *,SEARCH=(PRD2.DB2710,PRD1.BASE)
// EXEC PROC=ARIS71DB

*-- STARTER DATABASE IDENTIFICATION

// EXEC PROC=ARISDBSD

*-- RUN DB2 IN SINGLE-USER MODE

CONNECT SQLDBA IDENTIFIED BY password;
RELOAD PROGRAM (SQLDBA.CICSQL) REPLACE KEEP INFILE(SYSIPT BLKSZ(80)
PDEV(DASD));
READ MEMBER CICSQL
/*
COMMIT WORK;
/*
/&

Issue GRANT EXECUTE ON SQLDBA.CICSQL, as required, to enable users to run the package.

PI Configuration

436

CICS TS for VSE/ESA: REXX Guide

Advertising