TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
9–38 069138, Update 1 to 040970 Tandem Computers Incorporated
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.
2< 1683 20 FILLER PIC X(10).
2< 1684 10 rsp-gid-LATEST-DELIV-DATE.
2< 1685 15 rsp-gid-DATE-TIME.
2< 1686 20 rsp-gid-YEAR PIC 9(4).
2< 1687 20 rsp-gid-MONTH PIC 9(2).
2< 1688 20 rsp-gid-DAY-OF-MONTH PIC 9(2).
2< 1689 20 rsp-gid-HOUR PIC 9(2).
2< 1690 20 rsp-gid-MINUTE PIC 9(2).
2< 1691 20 rsp-gid-SECOND PIC 9(2).
2< 1692 15 rsp-gid-DELTA-TIME REDEFINES rsp-gid-DATE-TIME.
2< 1693 20 rsp-gid-QUANTITY PIC 9(4) COMP.
2< 1694 20 rsp-gid-UNITS PIC A.
2< 1695 20 FILLER PIC X.
2< 1696 20 FILLER PIC X(10).
2< 1697 10 rsp-gid-EXPIRATION-DATE.
2< 1698 15 rsp-gid-DATE-TIME.
2< 1699 20 rsp-gid-YEAR PIC 9(4).
2< 1700 20 rsp-gid-MONTH PIC 9(2).
2< 1701 20 rsp-gid-DAY-OF-MONTH PIC 9(2).
2< 1702 20 rsp-gid-HOUR PIC 9(2).
2< 1703 20 rsp-gid-MINUTE PIC 9(2).
2< 1704 20 rsp-gid-SECOND PIC 9(2).
2< 1705 15 rsp-gid-DELTA-TIME REDEFINES rsp-gid-DATE-TIME.
2< 1706 20 rsp-gid-QUANTITY PIC 9(4) COMP.
2< 1707 20 rsp-gid-UNITS PIC A.
2< 1708 20 FILLER PIC X.
2< 1709 20 FILLER PIC X(10).
2< 1710 10 rsp-gid-SENDER-ZONE-OFFSET PIC S9(4) COMP.
2< 1711 10 rsp-gid-PRIORITY PIC 999 COMP.
2< 1712 10 rsp-gid-APPLIC-ID PIC 9(4) COMP.
2< 1713 10 rsp-gid-AGENT-SELECTOR PIC 9(4) COMP.
2< 1714 10 rsp-gid-DELIV-CONTROL-FLAGS.
2< 1715 15 rsp-gid-CERTIFIED PIC A.
2< 1716 15 rsp-gid-BYTE REDEFINES rsp-gid-CERTIFIED PIC X.
2< 1717 15 rsp-gid-RESERVED-1 PIC A
2< 1718 VALUE "N".
2< 1719 15 rsp-gid-RESERVED-2 PIC A
2< 1720 VALUE "N".
2< 1721 15 rsp-gid-RESERVED-3 PIC A
2< 1722 VALUE "N".
2< 1723 15 rsp-gid-RESERVED-4 PIC A
2< 1724 VALUE "N".
2< 1725 15 rsp-gid-RESERVED-5 PIC A
2< 1726 VALUE "N".
2< 1727 15 rsp-gid-RESERVED-6 PIC A
2< 1728 VALUE "N".
2< 1729 15 rsp-gid-RESERVED-7 PIC A
2< 1730 VALUE "N".
2< 1731 10 rsp-gid-ERR-PKG-SUPPRESS-FLAGS.
2< 1732 15 rsp-gid-INVALID-RECIP PIC A.
2< 1733 15 rsp-gid-BYTE REDEFINES rsp-gid-INVALID-RECIP PIC X.
2< 1734 15 rsp-gid-INVALID-DLIST PIC A.
2< 1735 15 rsp-gid-RESERVED-2 PIC A
2< 1736 VALUE "N".
2< 1737 15 rsp-gid-TOO-LATE-TO-DELIVER PIC A.