gtpi1m2zSystem Installation Support Reference

Communications Source Common

This exit routine, UCS1, is activated by communications source programs before normal processing but not if entered after processing by other communications source programs (that is, only one exit per input message). This exit can be used to examine the input message origin.

Input

R0
Contains CIAA to show activation from CIAA

R1
Pointer to input message block.

R4
Address of the WGTA entry for the message origin

D0
Message block in communication message format

D1
The AAA record, if in use

D3
The RCB record, if in use

EBW042
Set to X'08' if the input was from a 3270, otherwise set to X'00'.

Input

R0
Contains CITT to show activation from CITT

R1
Pointer to input message block

R2
Pointer to RVT1 entry

R3
Pointer to RVT2 entry

D0
Message block in communication message format

EBW000
Input RCPL.

Programming Considerations