Open topic with navigation

ibi™ Open Data Hub for Mainframe Connectors 1.0.8

# 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

Note: The RDAAPP application is not intended for use as a production tool.

Procedure
1. To use the IRDAAPPJ JCL, you must first edit the member IRDAAPPJ and add your request details.
   1. 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

          //

   2. Complete the panel as follows.

      Field | Instructions
      --- | ---
          <enter userid>
      | Enter a valid user ID or blank line if the userid of the user who submitted the job is to be used for a trusted connection.
          <enter password>
      | Enter the password for the above userid or a blank line if the userid/password of 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).

   3. After you have made the above edits, submit the JCL for execution.
2. 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)'

3. 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... >>>

Did you find this helpful?

Yes No
Great!
Thanks for taking the time to give us some feedback.
Sorry about that

Why wasn't this helpful? (check all that apply)

Could not find what I was looking for
Instructions confusing or unclear
Instructions did not work

Want to tell us more?

Please select at least one option or provide details about the issue!!

Error occurred while submitting feedback.

Error2 occurred while submitting feedback.

ibi™ Open Data Hub for Mainframe Connectors

Copyright © 2021-2025. Cloud Software Group, Inc. All Rights Reserved.