Tutorial: DSNREXX

Prerequisites

To complete this tutorial, you need the following software in addition to Visual COBOL:

• IBM's DB2 Database for Linux, UNIX, and Windows (LUW). See Additional Software Requirements on Windows for more information.

Creating a DB2 LUW sample database

Catalog the sample database as an ODBC data source

If your sample database has not been cataloged as an ODBC data source, then perform the following steps:

1. Click Start or use the shortcut keys Ctrl+Esc. In the search field, type ODBC.
2. In the results list, select ODBC Data Source Administrator (32-bit) or ODBC Data Sources (32-bit), depending on your version of Windows.

   This opens the 32-bit version of the ODBC Data Source Administrator tool.

3. Click System DSN tab.
4. Click Add.

   This opens the Create New Data Source dialog box.

5. Click IBM DB2 ODBC DRIVER.
6. Click Finish.

   This opens the ODBC IBM DB2 Driver - Add dialog box.

7. In the Data source name field, type SAMPLE
8. In the Database alias list, select the SAMPLE database.
   • Optionally, in the Description field, type a description for your data source.
9. Click OK, and then click OK.

Create an ODBC XA switch module

1. Start an Visual COBOL command prompt (32-bit) as administrator.
2. Change to the %ProgramFiles(x86)%\Micro Focus\Visual COBOL\src\enterpriseserver\xa directory.
3. Enter build odbc
   Note: Make a note of the switch module name created, it is used in subsequent steps.

Create the project's workspace

1. Create the working directory on your machine, for example C:\User\Public\REXXSAMPLE

Import the sample MSS project

To import the sample Mainframe Subsystem (MSS) project:

1. Start Visual COBOL for Eclipse.
2. When prompted for a workspace, specify the path created above C:\Users\Public\REXXSAMPLE
3. Click OK.
4. On the Welcome page, click Open Team Developer Perspective.
5. Click File > Import.

   This opens the Import dialog box.

6. Expand General, and click Existing Projects into Workspace.
7. Click Next.
8. On the Import Projects page, click Browse next to Select root directory.
9. Choose %PUBLIC%\Documents\Micro Focus\Visual COBOL\Samples\Mainframe\SQL\OpenESQL\DSNREXX\Test1
10. Click OK.
11. In the Projects list, check Test1.
12. Check Copy projects into workspace.
13. Click Finish.

Create an MSS-enabled COBOL Server

Now you want to create an enterprise server region with MSS for JCL use:

1. In Application Explorer view, right-click the Test1 project.
2. Click New > Enterprise Server.
   This opens the New Enterprise Server dialog box.

   Note: If you are prompted with an Enterprise Server Sign On dialog box, click OK without specifying any sign-on details. This is a standard security dialog box. Also, if prompted to disable password recovery, click No.
3. In the Name field, type REXX32
4. Click Browse next to the Template field.
5. In the Select template file dialog box, click JCLTemplate.
6. Click Open.
7. In the Associate with projects field, check Test1.
8. Click Finish.

Add an XA resource for REXX procedures pointing to the DB2 LUW SAMPLE database

Now that the enterprise server region is created, you need to set up an XA resource:

1. In Server Explorer, right-click Local [localhost:86].
2. Click Open Administration Page.
3. Click Edit next to the REXX32 region name.
4. Click Server > Properties > XA Resources.
5. Click Add.
6. In the ID field, type DB2T
7. In the Name field, type REXXPROC
8. In the Module field, type the location and name of the ODBC XA switch module created in the earlier steps, for example:

   C:\Program Files (x86)\Micro Focus\Enterprise Developer\src\enterpriseserver\xa\ESODBCXA.dll

   Note: When specifying the location and name of the ODBC XA switch module, do not enter an environment variable such as %ProgramFiles(x86)%. Ensure that you use an expanded path.
9. In the Open string field, type DSN=SAMPLE

   Where SAMPLE is the Data source name specified in the ODBC Data Source Administrator.

   • You may need to add the ID and PASSWORD if connecting to a remote database. See Generic one-phase commit for ODBC xa_open string for more information.
10. Click Add.

See To define an XA resource (XAR) for an enterprise server region for more information.

Configure the program paths for data set catalog

You need to specify the JES program paths so that COBOL Server automatically finds the application files that it needs to run:

1. Click Server > Properties > MSS > JES > General.
2. In the JES Program Path field, leave the default value unchanged, $IDE_LOADLIB.
3. In the System Catalog field, type C:\Users\Public\REXXSAMPLE\Test1\catalog.dat
4. In the Default Allocated Dataset Location field, type C:\Users\Public\REXXSAMPLE\Test1
5. In the System Procedure Library field, leave the default value unchanged, SYS1.PROCLIB
6. Click Apply.

Start the enterprise server region

1. In Server Explorer, expand Local [localhost:86].
2. Right-click REXX32, and then click Start.
   Note: The Enterprise Server Sign On dialog box might prompt you to provide connection details for the server. This is a standard security dialog box. Click OK without specifying any sign-on details. Also, if prompted to disable password recovery, click No.
   • If you receive a Windows Security Alert for the MF Communications Process, click Allow access.

Catalog the directories that have the REXX procedures

You need to specify the catalog file that holds details of the data sets required by the JCL job that run in an enterprise server region. To do this you need to create a Dynamic PDS. See Dynamic PDSs for more information.

1. In Server Explorer, right-click REXX32 under Local [localhost:86].
2. Click Show Catalog.
3. Click List.
4. Click New.
5. In the DS Name field, type USER.TEST.EXEC
6. In the Physical File field, type C:\Users\Public\REXXSAMPLE\Test1\Scripts
7. From the DS Org list, select PO.
8. From the RECFM list, select LSEQ.
9. Check Dynamic PDS.
10. In the PDS Exts field, type rex
11. Click Apply.

To run the JCL job

1. In Application Explorer view, expand the project to show the Test1.jcl file.
2. Right-click the Test1.jcl file, and then click Submit JCL to associated Server.

View the spool output

You can check the result of submitting the JCL job by viewing the spool:

1. In Server Explorer, expand Local [localhost:86].
2. Right-click REXX32.
3. Click Show Spool.
4. Click REXXTEST.

   This provides more information on the job submitted.

5. Click SYSTSPRT for either of the steps to see more information.
   The following message or similar is displayed for STEP10:

                                                                                                                              
   DROPPING REXTEST1 TABLE                                                                                                               
   INSERTING DATA                                                                                                                        
   PREPARING S1                                                                                                                          
   FETCHING DATA                                                                                                                         
   TEST PASSED  -33329.3333                                                                                                              
   INSERTING DATA USING INSQLDA                                                                                                          
   PREPARING S3                                                                                                                          
   FETCHING DATA USING OUTSQLDA                                                                                                          
   TEST PASSED  -33329.3333