An assembler-language version, A language environment version – IBM SC34-6814-04 User Manual

Page 842

Advertising
background image

An assembler-language version

The sample job in Figure 129 shows the link-edit statements you need for an
assembler-language version of a DFHCSDUP user program.

Notes for the assembler job:

1 Specify the entry name as DFHEXTRA, which is the entry name in the
CICS-supplied stub, DFHEXAI. (See 3.)

2 The CICS-supplied stub, DFHEXAI, is generated with a link to the user program
using a dummy CSECT name (EXITEP). Use the link-edit CHANGE statement to
change the CSECT name from EXITEP to the name of the CSECT in the user
program. In the two CICS-supplied assembler-language sample programs, these
names are:

CREFCSD

The CSECT name in DFH$CRFA, the cross-reference listing user program.

FORMCSD

The CSECT name in DFH$FORA, the DB2-formatting user program.

3 Include DFHEXAI in any assembler-language user program that you write for use
with the DFHCSDUP EXTRACT command. DFHEXAI is the interface stub between
DFHCULIS, a module in DFHCSDUP, and the user program.

4 obj-name is the name of the library member that contains the assembled object
module.

5 progname is the name you want to call the load module; this is the name that you
specify on the USERPROGRAM parameter of the EXTRACT command.

A Language Environment version

The sample job in Figure 130 on page 821 shows the link-edit statements you need
for a DFHCSDUP user program written in a Language Environment-conforming
high-level language.

//DFHCRFA

JOB (accounting information),CLASS=A,MSGCLASS=A,NOTIFY=userid

//* .
//* Assembler job step here
//*

.

//LINK EXEC PGM=IEWL,PARM=’XREF,LIST,LET’
//OBJLIB

DD DSN=object.module.library,DISP=SHR

//SYSLIB

DD DSN=CICSTS32.CICS.SDFHLOAD,DISP=SHR

//SYSLMOD

DD DSN=user.library,DISP=SHR

//SYSUT1

DD UNIT=SYSDA,SPACE=(1024,(100,10))

//SYSPRINT DD SYSOUT=A
//SYSLIN

DD *

ENTRY

DFHEXTRA

1

CHANGE

EXITEP(csectname)

2

INCLUDE

SYSLIB(DFHEXAI)

3

INCLUDE

OBJLIB(obj-name)

4

NAME

progname(R)

5

Figure 129. Link-edit control statements for a DFHCSDUP user program (assembler-language)

820

Customization Guide

Advertising