TRANSFER Reference Manual

GET-ITEM-DES-C20
TISERV UOW Descriptions
2–276 069139, Update 1 to 40969 Tandem Computers Incorporated
GET-ITEM-DES-C20
(UOW Code 187)
GET-ITEM-DES-C20 retrieves fields from an item descriptor.
Note The GET-ITEM-DES-C20 UOW requires two READS of the database, unlike the GET-ITEM-DESCR
UOW, which requires only one READ of the database. Use GET-ITEM-DES-C20 only if you need fields
that are not in GET-ITEM-DESCR.
DEF get-item-des-c20-uow.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 187.
02 item-id
03 dummy PIC X(12).
END.
DEF get-item-des-c20-rsp.
02 hdr.
03 self-ident PIC AA VALUE "UW".
03 uow-code TYPE BINARY 16 UNSIGNED
VALUE 187.
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 x400-orig TYPE BOOLEAN
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".