Re: V6R1 (QGPL/QUSRSYS) question.

[rob@xxxxxxxxx]

And if you don't like "one off" programs I always use this cool UDF from 
SQL (modify the DSPDBR to ADDTCPHTE):


The following QCMDEXC function is defined by Group Dekko, as an SQL 
function on GDISYS and GDIHQ.  You may not want to depend on it in a 
production program, since it could be lost during system changes or 
something similar, but it is useful for quick commands that need to be run 
against an outfile.  QCMDEXC basically executes the QCMDEXC API behind the 
scenes, so you just have to format a CL command inside of the quotes to 
repeatedly execute against some query result.

Please note that if you run this interactively, that you need to view all 
the results, because its the behavior of SQL to only execute enough of a 
list to show it on the screen.  Doing something like the following is a 
good workaround (ORDER BY 1 and going to the bottom of the list)


           select QCMDEXC('DSPDBR FILE(' || trim(UFLIB) || '/' 
||trim(UFOBJ)||
                  ') OUTPUT(*OUTFILE) OUTFILE(QTEMP/DSPDBR) +
                  OUTMBR(*FIRST *ADD)')
                  from QTEMP/DLTOBSF ORDER BY 1






SOURCE, from operations navigator.  This could be used to recreate the 
function, if required.
--  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