IBM SC34-6814-04 User Manual

v

Share a GWA between global user exit programs, thereby making the information
it contains available to more than one program, and overcoming limitations on
the size of GWAs.

v

Access information held in a global user exit program’s GWA.

The GWA sample programs and copy books are:

A sample global user exit program, designed to be invoked at the
XPCFTCH exit.

CICS also provides copy book DFH$PCGA for use in this sample program.

A sample global user exit program, designed to be invoked at the XZCATT
exit.

CICS also provides copy book DFH$ZCGA for use in this sample program.

DFH$PCPI is designed to be invoked during program list table post
initialization (PLTPI) processing, and is described in “The DFH$PCPI
program.”

DFH$PCPL is a dummy program, invoked by DFH$PCPI, that causes the
XPCFTCH user exit to be driven.

DFH$PCPI consists of three main sections:

1. Section 1 obtains and processes any parameters passed to DFH$PCPI on the

INITPARMS system initialization parameter.

2. Section 2 shows how to use standard CICS facilities to obtain system

information, and make that information available to a global user exit program. It
performs the following processing:

v

Uses the EXEC CICS ENABLE command to enable the XPCFTCH sample
user exit program, DFH$PCEX, and allocate it a global work area.

v

Uses the EXEC CICS EXTRACT EXIT command to obtain the address of
DFH$PCEX’s global work area.

v

Obtains CICS system information, and places it in DFH$PCEX’s global work
area. The information obtained includes:

– Job name

– Applid

– Sysid

– CICS release

– Date in various formats, including DATFORM

– The address of the common work area (CWA)

– CICS startup type (COLD, WARM).

Most of the above information is obtained using EXEC CICS API commands
such as:

– INQUIRE SYSTEM

– ASSIGN

– ADDRESS

– ASKTIME

– FORMATTIME.

Customization Guide