IBM SC34-6814-04 User Manual

Page 241

Advertising
background image

However, you can make minor changes to requests, such as to turn on the
existence bit for SYSID so that the request can be changed into one that is shipped
to a remote system.

The list that follows shows the bits in the EID that can be modified. Any attempt to
modify any other part of the EID is ignored.

TS_BITS1

X'02'

The existence bit for SYSID.

TS_EIDOPT7

A user exit program at XTSEREQ can set the following on or off for all WRITEQ
TS commands:

X'10'

The existence bit for NOSUSPEND.

X'08'

The existence bit for MAIN.

The EID is reset to its original value before return to the application program. That
is, changes made to the EID are retained for the duration of the temporary storage
request only.

Note: Your user exit program is prevented from making major changes to the EID.

However, you must take great care when making the minor modifications
that are permitted.

Use of the task token UEPTSTOK: UEPTSTOK provides the address of a 4-byte
area that you can use to pass information between successive temporary storage
requests in the same task. (By contrast, UEPTQTOK is usable only for the duration
of a single temporary storage request, because its contents may be destroyed at
the end of the request.) For example, if you need to pass information between
successive invocations of the XTSEREQ exit, UEPTSTOK provides a means of
doing this.

Table 10. WRITEQ TS: User arguments and associated keywords, data types, and
input/output types

Argument

Keyword

Data type

Input/output type

Arg1

QUEUE

CHAR(8)

input

Arg1

QNAME

CHAR(16)

input

Arg2

FROM

DATA-AREA

input

Arg3

LENGTH

BIN(15)

input

Arg4

*

*

*

Arg5

ITEM

BIN(15)

input/output

Arg5

NUMITEMS

BIN(15)

output

Arg6

*

*

*

Arg7

SYSID

CHAR(4)

input

Note: The different uses of Arg5 are shown, because Arg5 is used by the ITEM and
NUMITEMS keywords which are alternatives and the argument to the ITEM keyword is an
input field when REWRITE is specified.

Chapter 1. Global user exit programs

219

Advertising