IBM SC34-6814-04 - Page 842

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