This tutorial walks you through the process of invoking a native COBOL program using JCL, and calling programs and stored procedures in a single assembly using data names.
Requirements
In addition to the requirements listed on the Prerequisites topic, you must also complete the
Configure an Enterprise Server Region tutorial, configuring the JCLSPSDN
enterprise server region.
Start
Enterprise Developer as an Administrator
Because you need to make changes to files in your SQL Server installation area, which requires administrator privileges, you must start
Enterprise Developer as an administrator. See
To start
Enterprise Developer as an administrator for details.
Open the SQLCLRTutorialSPCall Solution
- In
Enterprise Developer, click
File > Open > Project/Solution.
- Browse to the
%PUBLIC%\Documents\Micro Focus\Enterprise Developer\Samples\Mainframe\SQL\OpenESQL\JCLCallingSP\SingleProjDataName directory.
- Double-click
SQLCLRTutorialSPCall.sln.
Set Project Properties
- In the Solution Explorer, right-click the SPCall project; then select Properties from the context menu.
- On the
Debug tab (located on the left sidebar), using the drop-down list, set
Active Settings to
JCL.
- Click
(Save).
Build the Solution
- In the Solution Explorer, right-click the solution; then select
Build Solution from the context menu.
Publish SQL CLR Stored Procedures
- In the Solution Explorer, right-click the
SQLCLRTutorial.Publish project; then select
Properties from the context menu.
- On the
Project Settings tab (located on the left sidebar), use the
Target platform drop-down list to select the version of SQL Server used on your deployment machine. In this case, this is the version of SQL Server installed on your local machine.
- Click
(Save).
- In the Solution Explorer, right-click the
SQLCLRTutorial.Publish project; then select
Publish from the context menu.
- On the Publish Database dialog box, click
Edit.
- In the
Server name field, type
. (dot) to represent your local server.
- In the
Select or enter database name field, select
SQLCLR_Test from the drop-down list; then click
OK.
- On the Publish Database dialog box, click
Publish.
When the publishing process is complete, the Data Tools Operations window shows a status of "Publish Completed Successfully."
Associate the JCLSPSDN Region with the SPCall Project
- In Server Explorer, expand
Micro Focus Servers > localhost.
- Right-click
JCLSPSDN; then select
Associate With Project > SPCall from the context menu.
Start the JCLSPSDN Region
- On the Server Explorer list, right-click
JCLSPSDN; then select
Start from the context menu.
- If you are using SQL Server authentication, check
Server is secured; then provide your
Username and
Password.
If you are using Windows authentication, skip this step.
- Click
OK.
Configure SQL Server Debug Properties
- In
Enterprise Developer, click
View > SQL Server Object Explorer.
- Expand
SQL Server.
- In the list of SQL Server instances, expand your SQL Server instance.
Note: If your SQL Server instance is not listed:
- On the SQL Server Object Explorer, right-click
SQL Server; then select
Add SQL Server from the context menu.
- On the Connect to Server dialog box, type
. (dot) into the
Server name field; then click
Connect.
- Repeat this step.
- Expand
Databases; then check the resulting list to ensure that
SQLCLR_Test is listed.
- Right-click your SQL Server instance; then select
Application Debugging to turn it on. When Application Debugging is on, a check mark () appears to its left.
- Right-click your SQL Server instance again; then select
Allow SQL/CLR Debugging to turn it on.
- If prompted, click
Yes.
Debug the Program and Stored Procedure
In this section, you use
Enterprise Developer to debug the native COBOL program and the SQL CLR stored procedure.
- In the Solution Explorer, double-click
SPCall.cbl to open in the COBOL editor.
- In the COBOL Editor, scroll to:
exec sql
call:progname(:countval INOUT)
end-exec
- In the leftmost column on the
exec sql line, click to set a breakpoint.
- From the Solution Explorer, open
SP1.cbl.
- Scroll to:
call progname using by reference lscountval.
and set a breakpoint.
- Click
DEBUG > Start Debugging. This builds the project and puts the debugger in a wait state.
- In Solution Explorer, right-click the
SPCall.jcl file; then select
Submit JCL from the context menu.
The JCL script calls the SPCall program and stops on the breakpoint you set in the
SPCall.cbl file.
- Click
DEBUG > Attach to Process.
- On the Attach to Process dialog box, click
Select.
- On the Select Code Type dialog box, click
Debug these code types; then check the following boxes:
- Managed (v4.5, v4.0)
- T-SQL
- Click
OK.
- On the Attach to Process dialog box, check
Show processes from all users.
- On the
Available Processes list, select the
sqlservr.exe entry that has the
NT Service\MSSQLServer User Name.
- Click
Attach.
Note: If a prompt appears, click
Attach to clear it.
- Click
DEBUG > Step Into.
The debugger steps into the managed SQL CLR stored procedure code. This demonstrates debugging in a mixed native/managed environment.
- To continue debugging, press
F10; when the debugger reaches another breakpoint, press
F10 again.
- Press
F5 to run the program to its completion.
- Click
Stop Debugging
to stop the Debugger.
View JCL Execution Results
- In the
Enterprise Developer Output window, select
Enterprise Server from the
Show output from drop-down list.
- CTRL-click the job output link.
This opens the
JCLSPSDN tab, showing the
Enterprise Server Job Output window.
- Click
SYSOUT.
This shows the output from the SQL CLR Stored Procedure.
- Close the
JCLSPSDN tab.
Stop the JCLSPSDN Enterprise Server Region
- On the Server Explorer, right-click
JCLSPSDN; then select
Stop from the context menu.