This tutorial walks you through the process of invoking a native COBOL program using JCL, and calling a SQL Server SQL CLR stored procedure that returns the results back to the calling COBOL native program. The SQL CLR stored procedure used in this tutorial was generated using the Generate SPD File tool.
Requirements
Complete the tutorials specified in the
Prerequisites topic.
Open the SQLCLRTutorialSPCall Solution
- Start
Enterprise Developer as an administrator. To do this:
- From your desktop, click
Start > All Programs > Micro Focus Enterprise Developer.
- Right-click
Enterprise Developer for Visual Studio 2012; then click
Run as administrator.
Note: The Start menu is not available on Windows 8, Windows 10, and Windows Server 2012. You use the Start screen to invoke programs. To start
Enterprise Developer as an administrator, go to the
Start page; then right-click the
Enterprise Developer tile and select
Run as administrator at the bottom of the page.
- In
Enterprise Developer, click
File > Open > Project/Solution.
- Browse to the
%PUBLIC%\Documents\Micro Focus\Enterprise Developer\Samples\Mainframe\SQL\hcoss\JCLCallingSP\SPDDemo 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.
Associate the JCLSP Region with the SPCall Project
- In Server Explorer, expand
Micro Focus Servers > localhost.
- Right-click
JCLSP; then select
Associate With Project > SPCall from the context menu.
Start the JCLSP Region
- On the Server Explorer list, right-click
JCLSP; 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.
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 "SP1"
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 "A" 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.
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
JCLSP tab, showing the
Enterprise Server Job Output window.
- Click
SYSOUT.
This shows the output from the SQL CLR Stored Procedure.
- Close the
JCLSP tab.
Stop the JCLSP Enterprise Server Region
- On the Server Explorer, right-click
JCLSP; then select
Stop from the context menu.