Contents of registers when Exit 40 gets control

The contents of the registers on entry to this exit are:

Register

Contents

0

Not applicable

1

Pointer to a parameter list with the following structure, mapped by $XPL:

Field Name

Description

XPLID

The eyecatcher

XPLLEVEL

The version level of $XPL

XPLXITID

The exit ID number

X040IND

Indicator byte.

X040SPIN: If this bit setting is on, it is a spin PDDB.
X040NSPN: If this bit setting is on, it is a non-spin PDDB.
X040UNSP: If this bit setting is on, it is an unspun PDDB.

X040COND

Condition byte

X040RESP

Response byte

X040PDDB

Address of $PDDB

X040JQE

Address of $JQE

X040JCT

Address of $JCT or 0. JES2 is unable to supply the address of a $JCT when processing spin PDDBs.

X040DSCT

Address of $DSCT or 0. JES2 only supplies the address of a $DSCT when processing a SYSOUT data set produced by a transaction program.

X040VTXT

A 20-byte EBCDIC field containing variable text to be placed in the $HASP548 message is in place of "INVALID USERID" for NETMAIL output, if the PDB1NSOT flag is turned on by the exit.

2-10

Not applicable

11

Address of $HCT

12

Not applicable

13

Address of $PCE

14

Return address

15

Entry address