Register contents when Exit 60 gets control

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

Register

Contents

0

A code indicating the status of conversion processing

0: Indicates that a JCL statement has been converted to C/I text.
4: Indicates that the converter has completed converting the job to C/I text. This is the final invocation of Exit 60 for the job.

1

Address of a 6-word parameter list

Word 1 (+0)

Address of a 16-byte work area available to the installation.

Word 2 (+4)

If the code passed in R0 is:

0, this word points to the address of a 8192 (2000 hex) byte buffer that contains the C/I text of the converted JCL statement.
4, this word contains the address of the converter's return code.

Word 3 (+8)

Address of the $DTE

Word 4 (+12)

Address of the $JCT

Word 5 (+16)

JES2 sets this to 0 before it passes control to the exit routine.

Word 6 (+20)

Address of the $CIWORK are for this subtask.

2

Parameter list address mapped by $XPL. Register 1 points into this area for compatibility with existing exits that do not understand the $XPL data structure. The parameter list has the following structure:

XPLID

Eyecatcher ('$XPL')

XPLLEVEL

Indicates the version number of Exit 60

XPLXITID

Exit identifier - 60

XPLEXLEV

Version level of the exit

X060IND

Indicator byte

X060TEXT: Internal text exit
X060CEND: End of conversion

X060COND

Condition byte (not used)

X060RESP

Response byte (not used)

X060PLUS

Exit 60 parameter list (register 1 points here)

X060WORK

16 byte work area address

X060ITXT

Internal text image address (when X060IND = X060TEXT)

X060CRET

Address of Converter RC (when X060IND = X060CEND)

X060CNVW

JES2 DTE work area address

X060JCT

JCT address

X060CNMB

Address of message buffer

X060CIW

CIWORK data area address

3-10

Not applicable

11

Address of the $HCT

12

N/A

13

Address of an 18-word OS-style save area

14

Return address

15

Entry address