IBM SC33-1683-02 User Manual

Page 462

Advertising
background image

The macro required for a user “ENTRY” routine is:

This macro must be immediately followed by user “ENTRY” routine code, starting
with the label “TEPENTRY” and ending with a BR 14 instruction.

The macro required for a user “EXIT” routine is:

This macro must be immediately followed by user “EXIT” routine code, starting with
the label “TEPEXIT” and ending with a BR 14 instruction.

DFHTEPM TYPE=ERRPROC–replacing error processors

The macro necessary to replace error processors supplied with the sample
DFHTEP with user-written error processors is:

TYPE=ERRPROC

indicates that a CICS-supplied error processor routine is to be replaced with the
user-written error processor that immediately follows the macro. This macro is
optional; if used, it must follow the DFHTEPM TYPE=INITIAL macro. One
DFHTEPM TYPE=ERRPROC macro must precede each user-written error
processor source routine.

CODE=errcode

is used to identify the error code assigned to the appropriate error condition.
These codes are listed in Figure 22 on page 443. For example, the TCAM
invalid destination would be entered as code ‘9F’.

DFHTEPM TYPE=FINAL–ending the sample DFHTEP module

The macro to terminate the sample DFHTEP module is:

This is followed by an END DFHTEPNA statement.

DFHTEPM macro examples

1. The following is an example of the minimum number of statements required to

generate a sample DFHTEP module:

DFHTEPM

TYPE=INITIAL

DFHTEPM

TYPE=FINAL

END DFHTEPNA

This example generates a sample DFHTEP module with CICS-supplied error
processors and all default options. This is equivalent to the CICS-supplied
sample terminal error program.

2. Figure 19 on page 431 is an example of a more tailored sample DFHTEP

module. In this example no 3270 support is generated, but TCAM support is
provided. All default types of information except for TACP and TEP actions are

DFHTEPM TYPE=ENTRY

DFHTEPM TYPE=EXIT

DFHTEPM TYPE=ERRPROC

,CODE=errcode

(followed by the appropriate error

processor source statements)

DFHTEPM TYPE=FINAL

the sample terminal error program

430

CICS TS for OS/390: CICS Customization Guide

Advertising