This lesson describes how to set build properties for the
sample COBOL program you created in the previous lesson.
To set build properties for the sample COBOL program, do
these steps:
- Open the JCL Job Card and Data Set Properties
page for member RDZDB2. See Changing the properties of a resource.
- Update the JCL Job Card entry field.
You may need to insert a JOBLIB card.
- Change the JCL Data Set entry field
to point to a valid partitioned data set where your JCL will be written.
- Select the Use DB2 check box on
the Procedures and Steps tab of the COBOL
Settings page.
- Click the plus sign in the ELAXFCOC procedure to expand
it, and double-click the step name COBOL to
open the compiler properties.
- Specify valid data set entries for Listing Output
Data Set, Debug Data Set, Object Deck Data Set, Database Request Module
Location (DBRM), and Data Set Qualifier for
Compile Errors.
- Select the Support Error Feedback check box. The
SYSTSIN Instructions contains the bind instructions for your COBOL
application. The initial values in this entry field are JCL comments.
//*UNCOMMENT AND TAILOR THE FOLLOWING IF YOUR SYSTSIN STATEMENT**
//*CONTAINS BIND INSTRUCTIONS:
//*//SYSTSIN DD *
//* DSN SYSTEM(YOURSUBSYSTEM)
//* BIND PACKAGE(YOURLOCATION.YOURPACKAGE)-
//* OWNER(YOURUSERID) -
//* MEMBER(YOURMEMBER) -
//* LIBRARY('YOUR.DBRM.LIBRARY') -
//* ACTION(REP) -
//* VALIDATE(BIND)
//* BIND PLAN(YOURPLAN) -
//* PKLIST(YOURLOCATION.YOURPACKAGENAME.*)
//* END
//* OR
//*UNCOMMENT AND TAILOR THE FOLLOWING IF YOUR SYSTSIN STATEMENT**
//*POINTS TO A DATA SET CONTAINING BIND INSTRUCTIONS
//*//SYSTSIN DD DSN=USERID.BIND(MEMBER),DISP=SHR
//*
- Remove the comments from the //SYSTSIN DD * to the END
statement, and fill in the values that start with YOUR, as
in the following example.
//*UNCOMMENT AND TAILOR THE FOLLOWING IF YOUR SYSTSIN STATEMENT**
//*CONTAINS BIND INSTRUCTIONS:
//SYSTSIN DD *
DSN SYSTEM(DSN7)
BIND PACKAGE(STPLEX4A_DSN7.MELPKG1)-
OWNER(MEL) -
MEMBER(RDZDB2) -
LIBRARY('MEL.D2.DB2DBRM') -
ACTION(REP) -
VALIDATE(BIND)
BIND PLAN(MELPLN1) -
PKLIST(STPLEX4A_DSN7.MELPKG1.*)
END
//* OR
//*UNCOMMENT AND TAILOR THE FOLLOWING IF YOUR SYSTSIN STATEMENT**
//*POINTS TO A DATA SET CONTAINING BIND INSTRUCTIONS
//*//SYSTSIN DD DSN=USERID.BIND(MEMBER),DISP=SHR
//*
/*
- Click OK to save the compiler properties.
- Open the Link Options properties
page and verify that your load module data set is a valid load module
data set.
- Add the necessary DB2® and Language Environment® (LE)
data sets to your link libraries.
- Open the Run-time Options Properties
page and double-click the step name RUN. The Runtime Step Options window opens.
- Select the Run in batch with debugger radio
button.
- Change the Run Procedure Name to
ELAXFTSO.
- Change the Additional JCL to the
following:
//******* ADDITIONAL RUNTIME JCL HERE ******
//TSOGO.SYSTSIN DD *
DSN SYSTEM(DB2SUBSYSTEMNAME)
RUN PROGRAM(RDZDB2) -
PLAN(PLANNAME) -
LIB('USER33.LOAD')
/*
- Save the properties.
- Right-click the partitioned data set that contains the
member RDZDB2 in the z/OS® Projects
view and open the Assembler Settings property page for the resource.
- Double-click the ASM step name.
- Make sure that the data sets specified exist for the Object
Deck Data Set and the Macro Libraries.
- Right-click the RDZDB2 program in
the z/OS Projects view and
select Generate JCL > For Compile, Link, Go.