Initialize the RDAAPP Application
RDAAPP is an interactive client test application that facilitates the execution of SQL statements and stored procedures on the Unified server. During the installation process, JCL and REXX routines are created in the installation data set as members IRDAAPPJ and IRDAAPPC respectively.
The following installation data set is used for USS deployment.
qualif.WFS.DATA
The following installation data set is used for PDS deployment.
qualif.PDS.WFS.DATA
- Procedure
- To use the IRDAAPPJ JCL,
you must first edit the member IRDAAPPJ and add your request details.
- To edit the member IRDAAPPJ, change the following
field
//SYSIN DD * Put your request here //
to
//SYSIN DD * 1 <userid> <password> S SELECT COUNTRY FROM CAR S SELECT CAR,SEATS FROM CAR Q //
- Complete the panel as follows.
Field
Instructions
<enter userid>
Enter a valid user ID or blank line if the
useridof the user who submitted the job is to be used for a trusted connection.<enter password>
Enter the password for the above
useridor a blank line if theuserid/passwordof the user who submitted the job is to be used for a trusted connection.1
Match a node name in the EDACS3 allocation in the IRDAAPPJ JCL. Default (1) means LOOPBACK.
<enter request>
Enter one of the following values:
S
To enter an SQL SELECT statement. Type the statement after you enter the value S (see the following example).
Q
To quit.
?
For this list of commands.
Q
Quit RDAAPP (It is needed twice).
- After you have made the above edits, submit the JCL to run.
- To edit the member IRDAAPPJ, change the following
field
- Type the following command at the TSO ready prompt to
use the IRDAAPPC REXX routine:
EX 'qualif.WFS.DATA(IRDAAPPC)'or
EX 'qualif.PDS.WFS.DATA(IRDAAPPC)' - After the prompts, enter the same information as specified in the above table.
IRDAAPPC REXX Execution
The following is the screen output from a sample execution of the IRDAAPPC REXX routine:
******************************************************************** ** RDAAPP Client test tool ** ********************************************************************
Allocating environment handle... List of available servers: 1 - LOOPBACK Enter corresponding server entry number or name (default=1):
1 Enter User Name: Enter Password: Allocating connection handle... Attempting connect to the datasource: LOOPBACK ... Connect status = 0
New ODBC Connector Test. Enter Command: S SELECT COUNTRY FROM CAR Alloc stmt ... Return code from alloc stmt is 0 Issuing SQLPrepare call for SELECT COUNTRY FROM CAR Return code from SQLPrepare call is 0 Executing SELECT COUNTRY FROM CAR stmt... Issuing SQLNumResultCols call for SELECT COUNTRY FROM CAR Number of resultset columns is 1 Printing select item descriptions:
Issuing SQLDescribeCol call for colNum=1 item #1 colname = COUNTRY coltype = 1 precision = 10 scale = 0 nullable = 0
Binding columns... Fetching report data... ENGLAND FRANCE ITALY JAPAN W GERMANY <<< 5 record(s) processed. >>>
New ODBC Connector Test. Enter Command: S SELECT CAR,SEATS FROM CAR Alloc stmt ... Return code from alloc stmt is 0 Issuing SQLPrepare call for SELECT CAR,SEATS FROM CAR Return code from SQLPrepare call is 0 Executing SELECT CAR,SEATS FROM CAR stmt... Issuing SQLNumResultCols call for SELECT CAR,SEATS FROM CAR Number of resultset columns is 2 Printing select item descriptions:
Issuing SQLDescribeCol call for colNum=1 item #1 colname = CAR coltype = 1 precision = 16 scale = 0 nullable = 0 Issuing SQLDescribeCol call for colNum=2 item #2 colname = SEATS coltype = 4 precision = 22 scale = 0 nullable = 0
Binding columns... Fetching report data... JAGUAR 2 JAGUAR 5 JENSEN 4 TRIUMPH 2 PEUGEOT 5 ALFA ROMEO 2 ALFA ROMEO 2 ALFA ROMEO 4
MASERATI 2 DATSUN 4 TOYOTA 4 AUDI 5 BMW 5 BMW 4 BMW 5 BMW 5 BMW 5 BMW 5 <<< 18 record(s) processed. >>>
New ODBC Connector Test.
Enter Command:
Q
Committing...
Return code from commit is 0
Disconnecting DBC ...
Freeing DBC handle...
Freeing ENV handle...
<<< RDAAPP : Exiting... >>>