The SQLCSR Operand

Describes the SQLCSR operand.
RLX
TBDISPL can also process SQL query results loaded into ISPF tables via native SQL and ISPEXEC calls. The following sample illustrates the name based linkages established by
RLX
TBDISPL to the statements in which the ISPF table is created and the SQL query result is DECLAREd.
Address RLX ---> "RLX DECLARE SQLTYPES CURSOR FOR", | "SELECT INTEGER, SMALLINT, DEC55, CHAR5", | "WHERE INTEGER BETWEEN :LOW AND :HIGH", | "ORDER BY INTEGER" | |--> "TBCREATE DATATYPE", | "NAMES(INTEGER SMALLINT DEC55 CHAR5) NOWRITE" | | "RLX OPEN SQLTYPES" | "RLX FETCH SQLTYPES INTO :INTEGER, :SMALLINT, :DEC55, :CHAR5" | | DO WHILE SQLCODE = 0 | "TBADD FRUITTBL" | "RLX FETCH SQLTYPES INTO :INTEGER, :SMALLINT, :DEC55, :CHAR5" | END | | "RLX CLOSE SQLTYPES" | | DO WHILE RC = 0 --- "RLX TBDISPL DATATYPE PANEL(RLX) SQLCSR(SQLTYPES)" END
The SQLCSR operand tells
RLX
to search for a DECLARE CURSOR statement.
RLX
always confirms that the ISPF table to be displayed does in fact exist.
RLX DECLARE SQLTYPES CURSOR FOR A | -------------------------------- | | | ISPEXEC TBCREATE DATATYPE | A | | | | | RLX TBDISPL DATATYPE PANEL(RLX) SQLCSR(SQLTYPES)