Rexx Error - COMMAND USING NOT FOUND
Posted: Mon Nov 07, 2011 7:09 pm
Hi,
I'm trying to execute a program in rexx and i'm getting this error
COMMAND USING NOT FOUND OR REXX IDENTIFIER IS MISSING+
SUPPLY '/* REXX */' AS THE FIRST RECORD TO EXECUTE AS A REXX EXEC OR, FOR AN EX
PLICIT EXEC, SUPPLY THE EXEC KEYWORD ON THE EXEC COMMAND
here's my program
thanks
I'm trying to execute a program in rexx and i'm getting this error
COMMAND USING NOT FOUND OR REXX IDENTIFIER IS MISSING+
SUPPLY '/* REXX */' AS THE FIRST RECORD TO EXECUTE AS A REXX EXEC OR, FOR AN EX
PLICIT EXEC, SUPPLY THE EXEC KEYWORD ON THE EXEC COMMAND
here's my program
/* LIST DB2 TABLES WITH LOCKSIZE ROWS OR PAGE,
USING THE DYNAMIC SQL INTERFACE */
/* REXX */
ARG DB USER PASSWORD
/* CONNECT THE TARGET DATABASE. EXIT IF CONNECT FAILS. */
R = REXXSQL("CONNECT" USER "IDENTIFIED BY" PASSWORD "TO" DB)
IF SQLCODE < 0 THEN EXIT 8
/* PREPARE AND EXECUTE A SELECT ON SYSCATALOG. */
S = "SELECT CREATOR,TNAME,LOCKSIZE FROM SYSTEM.SYSCATALOG" ,
"WHERE LOCKSIZE = ROW"
"OR LOCKSIZE = PAGE"
R = REXXSQL(S)
DSLIST CTMPNLD DBT ISR@D0A0 *DSLIST
/* CHECK FOR SQL ERRORS. */
IF SQLCODE <> 0 THEN SIGNAL SQL_ERROR
/* SHOW THE RESULT STEMS CREATOR, TNAME AND LOCKSIZE */
DO I = 1 TO _NROWS
TABLENAME = STRIP(CREATOR.I)"."STRIP(TNAME.I)
SAY "TABLE" TABLENAME "HAS" LOCKSIZE.I "ROWS"
END
/* TERMINATE */
R=REXXSQL("COMMIT")
EXIT
USING THE DYNAMIC SQL INTERFACE */
/* REXX */
ARG DB USER PASSWORD
/* CONNECT THE TARGET DATABASE. EXIT IF CONNECT FAILS. */
R = REXXSQL("CONNECT" USER "IDENTIFIED BY" PASSWORD "TO" DB)
IF SQLCODE < 0 THEN EXIT 8
/* PREPARE AND EXECUTE A SELECT ON SYSCATALOG. */
S = "SELECT CREATOR,TNAME,LOCKSIZE FROM SYSTEM.SYSCATALOG" ,
"WHERE LOCKSIZE = ROW"
"OR LOCKSIZE = PAGE"
R = REXXSQL(S)
DSLIST CTMPNLD DBT ISR@D0A0 *DSLIST
/* CHECK FOR SQL ERRORS. */
IF SQLCODE <> 0 THEN SIGNAL SQL_ERROR
/* SHOW THE RESULT STEMS CREATOR, TNAME AND LOCKSIZE */
DO I = 1 TO _NROWS
TABLENAME = STRIP(CREATOR.I)"."STRIP(TNAME.I)
SAY "TABLE" TABLENAME "HAS" LOCKSIZE.I "ROWS"
END
/* TERMINATE */
R=REXXSQL("COMMIT")
EXIT
thanks