TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–16 40970 Tandem Computers Incorporated
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).
2< 1669 15 rsp-gid-MINUTE PIC 9(2).
2< 1670 15 rsp-gid-SECOND PIC 9(2).
2< 1671 10 rsp-gid-EARLIEST-DELIV-DATE.
2< 1672 15 rsp-gid-DATE-TIME.
2< 1673 20 rsp-gid-YEAR PIC 9(4).
2< 1674 20 rsp-gid-MONTH PIC 9(2).
2< 1675 20 rsp-gid-DAY-OF-MONTH PIC 9(2).
2< 1676 20 rsp-gid-HOUR PIC 9(2).
2< 1677 20 rsp-gid-MINUTE PIC 9(2).
2< 1678 20 rsp-gid-SECOND PIC 9(2).
2< 1679 15 rsp-gid-DELTA-TIME REDEFINES rsp-gid-DATE-TIME.
2< 1680 20 rsp-gid-QUANTITY PIC 9(4) COMP.
2< 1681 20 rsp-gid-UNITS PIC A.
2< 1682 20 FILLER PIC X.