TRANSFER Reference Manual

GET-ITEM-COMPNT-A01
TISERV UOW Descriptions
2–272 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-ITEM-COMPNT-A01
(UOW Code 137)
GET-ITEM-COMPNT-A01 retrieves one or more component items in a parent item.
DEF get-item-compnt-a01-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 137.
02 item-id.
03 dummy PIC X(12).
02 start-position TYPE BINARY 16.
02 options.
03 filter-by-item-type TYPE BOOLEAN.
03 filter-by-compnt-type TYPE BOOLEAN.
02 filter-values.
03 item-type PIC 9(4) COMP.
03 compnt-type PIC 9(4) COMP.
02 num-requested TYPE BINARY 16 UNSIGNED
VALUE 10.
END.
DEF get-item-compnt-a01-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 137.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 num-returned TYPE BINARY 16 UNSIGNED
02 compnt-entry OCCURS 0 TO ! num-
10 TIMES requested!
DEPENDING ON
num-returned.
03 item-id.
04 dummy PIC X(12).
03 rel-position TYPE BINARY 16.
03 item-type PIC 9(4) COMP.
03 compnt-type PIC 9(4) COMP.
END.
HDR
is the UOW header. The UOW-CODE value is 137.