TRANSFER Reference Manual

GET-AGENT-SELECT
TISERV UOW Descriptions
2–226 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-AGENT-SELECT
(UOW Code 207)
GET-AGENT-SELECT retrieves agent selection criteria for a depot.
DEF get-agent-select-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 207.
02 corr-name PIC X(80) VALUE SPACES.
02 group-name REDEFINES corr-name.
02 agent-rec-num TYPE BINARY 16 UNSIGNED.
02 action TYPE CHARACTER 1.
02 filler TYPE CHARACTER 1.
END.
DEF get-agent-select-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 207.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 corr-name PIC X(80).
02 filler TYPE CHARACTER 1.
02 action TYPE CHARACTER 1.
02 agent-rec-num TYPE BINARY 16 UNSIGNED.
02 agent-name TYPE CHARACTER 80.
02 agent-type TYPE CHARACTER 1.
02 agent-flag TYPE CHARACTER 1.
02 applic-id-for-logon PIC 9(4) COMP.
02 applic-id-low PIC 9(4) COMP.
02 applic-id-high PIC 9(4) COMP.
02 agent-sel-low PIC 9(4) COMP.
02 agent-sel-high PIC 9(4) COMP.
02 agent-data TYPE CHARACTER 80.
END.
HDR
is the UOW header. The UOW-CODE value is 207.