Use of the task token ueptstok, Temporary storage exec interface program exits 200 – IBM SC33-1683-02 User Manual

Page 232

Advertising
background image

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 7. 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.

Table 8. READQ 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

SET

DATA-AREA, PTR

output

Arg2

INTO

DATA-AREA

output

Arg3

LENGTH

BIN(15)

input/output

Arg4

NUMITEMS

BIN(15)

output

Arg5

ITEM

BIN(15)

input

Arg6

*

*

Arg7

SYSID

CHAR(4)

input

temporary storage EXEC interface program exits

200

CICS TS for OS/390: CICS Customization Guide

||||

||||

Advertising