TRANSFER Reference Manual

GET-ITEM-DESCR
TISERV UOW Descriptions
069139, Update 1 to 40969 Tandem Computers Incorporated 2–289
GET-ITEM-DESCR
(UOW Code 122)
GET-ITEM-DESCR retrieves fields from an item descriptor.
DEF get-item-descr-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 122.
02 item-id.
03 dummy PIC X(12).
END.
DEF get-item-descr-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 122.
02 retn-code TYPE BINARY 16.
02 retn-code-detail TYPE BINARY 16.
02 update-control PIC S9(4) COMP.
02 item-type PIC 9(4) COMP.
02 parent-count TYPE BINARY 16 UNSIGNED.
02 compnt-count TYPE BINARY 16 UNSIGNED.
02 item-descr-flags.
03 is-pkg-hdr TYPE BOOLEAN.
03 unalterable TYPE BOOLEAN.
03 submitted TYPE BOOLEAN.
03 canceled TYPE BOOLEAN.
03 cloned TYPE BOOLEAN.
03 rel-date-earliest TYPE BOOLEAN.
03 rel-date-latest TYPE BOOLEAN.
03 rel-date-expiration TYPE BOOLEAN.
03 reserved-8 TYPE BOOLEAN VALUE "N".
03 reserved-9 TYPE BOOLEAN VALUE "N".
03 reserved-10 TYPE BOOLEAN VALUE "N".
03 reserved-11 TYPE BOOLEAN VALUE "N".
03 reserved-12 TYPE BOOLEAN VALUE "N".
03 reserved-13 TYPE BOOLEAN VALUE "N".
03 reserved-14 TYPE BOOLEAN VALUE "N".
03 reserved-15 TYPE BOOLEAN VALUE "N".
02 creation-date.
03 year PIC 9(4).
03 month PIC 9(2).
03 day-of-month PIC 9(2).
03 hour PIC 9(2).
03 minute PIC 9(2).
03 second PIC 9(2).
02 creator-name PIC X(120).