Invoking dfhcsdup from a user program, A language environment version – IBM SC33-1683-02 User Manual

Page 783

Advertising
background image

A Language Environment version

The sample job in Figure 110 shows the link-edit statements you need for a
DFHCSDUP user program written in a Language Environment/370 (LE)-conforming
high-level language.

Notes for the LE 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 LE 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.

//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=CICSTS13.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 110. Link-edit control statements for a DFHCSDUP user program (LE)

DFHCSDUP as a batch program

Chapter 30. User programs for the system definition utility program (DFHCSDUP)

751

|

|
|
|
|

|

|
|

|
|
|
|

|
|
|

|

|
|

Advertising