Table of Contents
Advertisement
v Issues an EXEC CICS INQUIRE FILE command to check the access method
v For a VSAM ESDS:
v For BDAM:
v For any other combination of access method and type:
v Normal exit from the program:
v Error exit from the program:
Related concepts:
"The file control recovery program sample exit programs" on page 19
Front End Programming Interface exits XSZARQ and XSZBRQ
Exits XSZARQ and XSZBRQ are invoked from the Front End Programming
Interface (FEPI), if FEPI is installed.
– An eye-catcher 'DFH$FCLD ENTRY'
– The unmarked file control request data
– The file control portion of the log record.
and type to confirm that the file is a VSAM ESDS or BDAM data set. The logical
delete exit should have been invoked only if the file is one of these types.
– Flags the record (whose address is passed to the exit in UEPFDATA) as
logically deleted. The sample adopts what is probably the most common
convention, which is to flag the first byte with a logical delete mark of X'FF'.
– Takes the normal exit from the program.
– Flags the record (whose address is passed to the exit in UEPFDATA) as
logically deleted. The sample adopts a convention for BDAM of flagging the
first byte with a logical delete mark of X'C0'.
– Takes the normal exit from the program.
– Does not process the request, and the record is not flagged as deleted
– Takes the error exit from the program.
– Makes a user trace entry if tracing is active for file control. This has trace
point id X'01F1' and traces:
- An eye-catcher 'DFH$FCLD EXIT OK'
- An eye-catcher 'RECORD MARKED AS DELETED'
- The marked file control request data
- The file control portion of the log record.
– Returns to CICS with return code UERCLDEL, which instructs CICS to rewrite
the marked record and therefore to logically delete it.
– Makes a user exception trace entry regardless of the trace setting. This has
trace point id X'01F2' and traces:
- An eye-catcher 'USEREXC'
- An eye-catcher 'DFH$FCLD EXIT FAIL'
- The unmarked file control request data
- The file control portion of the log record.
– Returns to CICS with return code UERCFAIL, which instructs CICS to regard
the logical delete as having failed. (The return code UERCNORM is not
intended for use by this exit. Returning UERCNORM has the same effect as
UERCFAIL.)
Chapter 1. Global user exit programs
137
Advertisement
Chapters
Table of Contents
