RE: TAATOOL Pricing and PRTLIBANL

I am a little lost. How would you use this function described below? (for
what purpose?)

Thanks.




From:
rob@xxxxxxxxx
To:
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date:
08/27/2008 06:05 AM
Subject:
RE: TAATOOL Pricing and PRTLIBANL



Yeah. Just pop this into iNav's Run SQL Scripts.

Also, if you use the new QCMDEXC in STRSQL on screen you must page down to

the end for the command to execute on each.

Change library ROUTINES to something applicable for your environment.

-- Generate SQL
-- Version: V5R4M0 060210
-- Generated on: 02/22/08 10:10:48
-- Relational Database: GDIHQ
-- Standards Option: DB2 UDB iSeries

SET PATH *LIBL ;

CREATE FUNCTION ROUTINES.QCMDEXC (
CMD VARCHAR(32702) )
RETURNS CHAR(256)
LANGUAGE SQL
SPECIFIC ROUTINES.QCMDEXC
NOT DETERMINISTIC
MODIFIES SQL DATA
CALLED ON NULL INPUT
DISALLOW PARALLEL
NOT FENCED
SET OPTION ALWBLK = *ALLREAD ,
ALWCPYDTA = *YES ,
COMMIT = *NONE ,
DECRESULT = (31, 31, 00) ,
DFTRDBCOL = *NONE ,
DLYPRP = *NO ,
DYNDFTCOL = *NO ,
DYNUSRPRF = *USER ,
SRTSEQ = *HEX
BEGIN
DECLARE RETCMD CHAR ( 256 ) ;
DECLARE SQLCODE INTEGER ;

DECLARE CONTINUE HANDLER FOR SQLEXCEPTION

BEGIN
SET RETCMD = 'ERROR SQLCODE=' || TRIM ( CAST ( SQLCODE AS CHAR ( 10 ) ) )
|| ' ' || CMD ;
END ;
BEGIN
DECLARE CMDLEN DEC ( 15 , 5 ) ;
SET RETCMD = CMD ;
SET CMDLEN = LENGTH ( TRIM ( CMD ) ) ;
CALL QCMDEXC ( CMD , CMDLEN ) ;
END ;
SET RETCMD = CONCAT ( RETCMD , CMD ) ;
RETURN ( RETCMD ) ;
END ;

Rob Berendt