IBM SC34-6814-04 - Manual (Page 843)

Notes for the Language Environment job:
1 Specify the entry name as DFHEXTRA, which is the entry name in the
CICS-supplied stub, DFHEXLE (see 3).
2 The CICS-supplied stub, DFHEXLE, 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 specified on the PROC
statement in the user program.
3 Include DFHEXLE in any LE-conforming user program that you write for use with
the DFHCSDUP EXTRACT command. DFHEXLE is the interface stub between
DFHCULIS, a module in DFHCSDUP, and the Language Environment user
program.
4 obj-prog is the name of the object program.
5 progname is the name you want for the load module; this is the name that you
specify on the USERPROGRAM parameter of the EXTRACT command.
Invoking DFHCSDUP from a user program
It is possible to invoke DFHCSDUP from a user program. This method enables you
to create a flexible interface to the utility. By specifying the appropriate entry
parameters, your program can cause DFHCSDUP to pass control to an exit routine
at any of five exit points. The exits can be used, for example, to pass commands to
DFHCSDUP, or to respond to messages produced by DFHCSDUP processing.
You can run your user program:
v In batch mode
v Under TSO.
Note:
1. In a TSO environment, it is normally possible for the terminal operator
to interrupt processing at any time by means of an ATTENTION
interrupt. In order to protect the integrity of the CSD file, DFHCSDUP
does not respond to such an interrupt until after it has completed the
processing associated with the current command. It then writes
//DFHCRFA JOB (accounting information),CLASS=A,MSGCLASS=A,NOTIFY=userid
//* .
//* Compile job step here
//*
.
//LINK EXEC PGM=IEWL,PARM=’XREF,LIST,LET’
//SYSLIB
DD DSN=PP.ADLE370.OS39025.SCEELKED
//CICSLIB DD DSN=CICSTS32.CICS.CICS.SDFHLOAD,DISP=SHR
//OBJLIB DD DSN=object.module.library,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(prof-id) 2
INCLUDE CICSLIB(DFHEXLE) 3
INCLUDE OBJLIB(obj-prog) 4
NAME progname(R) 5
Figure 130. Link-edit control statements for a DFHCSDUP user program (Language Environment)
Chapter 34. User programs for the system definition utility program (DFHCSDUP) 821