TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–37
2< 1600 15 rsp-gid-UOW-CODE PIC 9(4) COMP.
2< 1601 10 rsp-gid-RETN-CODE PIC S9(4) COMP.
2< 1602 88 rsp-gid-OK VALUE 0.
2< 1603 88 rsp-gid-E-ITEM-NOT-FOUND VALUE 4035.
2< 1604 88 rsp-gid-E-INVALID-ITEM VALUE 4062.
2< 1605 88 rsp-gid-W-ITEM-NOT-RETURNED VALUE -4063.
2< 1606 10 rsp-gid-RETN-CODE-DETAIL PIC S9(4) COMP.
2< 1607 10 rsp-gid-UPDATE-CONTROL PIC S9(4) COMP.
2< 1608 10 rsp-gid-ITEM-TYPE PIC 9(4) COMP.
2< 1609 * 88 TANDEM-ASSIGNED values 100 thru 999.
2< 1610 88 rsp-gid-ORIGINAL-PACKAGE value 109.
2< 1611 88 rsp-gid-REPLY-PACKAGE value 110.
2< 1612 88 rsp-gid-FORWARD-PACKAGE value 111.
2< 1613 88 rsp-gid-ORIGINAL-TTEXT-PKG value 112.
2< 1614 88 rsp-gid-REPLY-TTEXT-PKG value 113.
2< 1615 88 rsp-gid-FORWARD-TTEXT-PKG value 114.
2< 1616 88 rsp-gid-UNFORMATTED-TEXT-ITEM value 120.
2< 1617 88 rsp-gid-TTEXT-ITEM value 121.
2< 1618 88 rsp-gid-DATA-ITEM value 130.
2< 1619 88 rsp-gid-PCDATA-ITEM value 131.
2< 1620 88 rsp-gid-OBJECT-ITEM value 140.
2< 1621 88 rsp-gid-DOCUMENT-ITEM value 150.
2< 1622 88 rsp-gid-COMPOSITE-ITEM value 355.
2< 1623 88 rsp-gid-FACSIMILE-ITEM value 358.
2< 1624 10 rsp-gid-PARENT-COUNT PIC 9(4) COMP.
2< 1625 10 rsp-gid-COMPNT-COUNT PIC 9(4) COMP.
2< 1626 10 rsp-gid-ITEM-DESCR-FLAGS.
2< 1627 15 rsp-gid-IS-PKG-HDR PIC A.
2< 1628 15 rsp-gid-BYTE REDEFINES rsp-gid-IS-PKG-HDR PIC X.
2< 1629 15 rsp-gid-UNALTERABLE PIC A.
2< 1630 15 rsp-gid-SUBMITTED PIC A.
2< 1631 15 rsp-gid-CANCELED PIC A.
2< 1632 15 rsp-gid-CLONED PIC A.
2< 1633 15 rsp-gid-REL-DATE-EARLIEST PIC A.
2< 1634 15 rsp-gid-REL-DATE-LATEST PIC A.
2< 1635 15 rsp-gid-REL-DATE-EXPIRATION PIC A.
2< 1636 15 rsp-gid-RESERVED-8 PIC A
2< 1637 VALUE "N".
2< 1638 15 rsp-gid-RESERVED-9 PIC A
2< 1639 VALUE "N".
2< 1640 15 rsp-gid-RESERVED-10 PIC A
2< 1641 VALUE "N".
2< 1642 15 rsp-gid-RESERVED-11 PIC A
2< 1643 VALUE "N".
2< 1644 15 rsp-gid-RESERVED-12 PIC A
2< 1645 VALUE "N".
2< 1646 15 rsp-gid-RESERVED-13 PIC A
2< 1647 VALUE "N".
2< 1648 15 rsp-gid-RESERVED-14 PIC A
2< 1649 VALUE "N".
2< 1650 15 rsp-gid-RESERVED-15 PIC A
2< 1651 VALUE "N".
2< 1652 10 rsp-gid-CREATION-DATE.
2< 1653 15 rsp-gid-YEAR PIC 9(4).
2< 1654 15 rsp-gid-MONTH PIC 9(2).
2< 1655 15 rsp-gid-DAY-OF-MONTH PIC 9(2).
2< 1656 15 rsp-gid-HOUR PIC 9(2).
2< 1657 15 rsp-gid-MINUTE PIC 9(2).
2< 1658 15 rsp-gid-SECOND PIC 9(2).
2< 1659 10 rsp-gid-CREATOR-NAME PIC X(120).
2< 1660 *
2< 1661 * The following fields are always returned.
2< 1662 * If the item is NOT a package header, they will contain binary zeros.
2< 1663 *
2< 1664 10 rsp-gid-SUBMITTED-DATE.
2< 1665 15 rsp-gid-YEAR PIC 9(4).
2< 1666 15 rsp-gid-MONTH PIC 9(2).
2< 1667 15 rsp-gid-DAY-OF-MONTH PIC 9(2).
2< 1668 15 rsp-gid-HOUR PIC 9(2).