TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–13
347 01 UOW-SS-01.
348 * COPY UOW-SS-START-SESSION-UOW OF "GCOB".
2< 2700 * Definition START-SESSION-UOW created on 12/01/86 at 14:31
2< 2701 05 uow-ss-START-SESSION-UOW.
2< 2702 10 uow-ss-HDR.
2< 2703 15 uow-ss-SELF-IDENT PIC AA
2< 2704 VALUE "UW".
2< 2705 15 uow-ss-UOW-CODE PIC 9(4) COMP value 101.
2< 2706 10 uow-ss-APPLIC-ID PIC 9(4) COMP.
2< 2707 10 uow-ss-CORR-NAME PIC X(120).
2< 2708 10 uow-ss-PASSWORD PIC X(16).
2< 2709 10 uow-ss-CURR-LOCAL-TIME.
2< 2710 15 uow-ss-YEAR PIC 9(4).
2< 2711 15 uow-ss-MONTH PIC 9(2).
2< 2712 15 uow-ss-DAY-OF-MONTH PIC 9(2).
2< 2713 15 uow-ss-HOUR PIC 9(2).
2< 2714 15 uow-ss-MINUTE PIC 9(2).
2< 2715 15 uow-ss-SECOND PIC 9(2).
2< 2716 10 uow-ss-REDEF-LOCAL-TIME REDEFINES uow-ss-CURR-LOCAL-TIME.
2< 2717 15 uow-ss-CENTURY PIC 9(2).
2< 2718 15 uow-ss-ACCEPT-DATE PIC 9(6).
2< 2719 15 uow-ss-ACCEPT-TIME PIC 9(6).
349
350 01 RSP-SS-01.
351 * COPY RSP-SS-START-SESSION-RSP OF "GCOB".
2< 2721 * Definition START-SESSION-RSP created on 12/01/86 at 14:32
2< 2722 05 rsp-ss-START-SESSION-RSP.
2< 2723 10 rsp-ss-HDR.
2< 2724 15 rsp-ss-SELF-IDENT PIC AA
2< 2725 VALUE "UW".
2< 2726 15 rsp-ss-UOW-CODE PIC 9(4) COMP.
2< 2727 10 rsp-ss-RETN-CODE PIC S9(4) COMP.
2< 2728 88 rsp-ss-OK VALUE 0.
2< 2729 88 rsp-ss-W-CONCURRENT-SESSION VALUE -4005.
2< 2730 88 rsp-ss-E-CONCURRENT-SESSION VALUE 4005.
2< 2731 88 rsp-ss-E-BAD-TRANSACTION VALUE 4010.
2< 2732 88 rsp-ss-E-NO-DEPOT-FOR-CORR VALUE 4013.
2< 2733 88 rsp-ss-E-RESTRICTED-OPERATION VALUE 4017.
2< 2734 88 rsp-ss-E-LOGON-DISALLOWED VALUE 4007.
2< 2735 88 rsp-ss-E-INVALID-PASSWORD VALUE 4015.
2< 2736 88 rsp-ss-E-INVALID-APPLIC-ID VALUE 4055.
2< 2737 88 rsp-ss-E-INVALID-DATE-TIME VALUE 4073.
2< 2738 88 rsp-ss-E-INVALID-ZONE-OFFSET VALUE 4021.
2< 2739 88 rsp-ss-E-ALREADY-IN-SESSION VALUE 4019.
2< 2740 88 rsp-ss-E-CONTEXT-ERR VALUE 4201.
2< 2741 88 rsp-ss-E-CORR-NOT-FOUND VALUE 5601.
2< 2742 88 rsp-ss-E-CORR-BAD-NAME VALUE 5602.
2< 2743 88 rsp-ss-E-CORR-BAD-SUFFIX VALUE 5624.
2< 2744 88 rsp-ss-E-CORR-BAD-TYPE VALUE 5603.
2< 2745 88 rsp-ss-E-CORR-NSRV-ERR VALUE 5600.
2< 2746 88 rsp-ss-E-CORR-SECURITY VALUE 5605.
2< 2747 88 rsp-ss-E-CORR-NO-SUCH-NODE VALUE 5604.
2< 2748 88 rsp-ss-E-CORR-NSRV-NOT-FOUND VALUE 5606.
2< 2749 88 rsp-ss-E-CORR-NSRV-DOWN VALUE 5607.
2< 2750 88 rsp-ss-E-CORR-NET-DOWN VALUE 5611.
2< 2751 88 rsp-ss-E-CORR-AMBIGUOUS-NAME VALUE 5623.
2< 2752 88 rsp-ss-E-CORR-NOT-SAME-NODE VALUE 5622.
2< 2753 88 rsp-ss-E-TEXT-SERVICE VALUE 5800.
2< 2754 10 rsp-ss-RETN-CODE-DETAIL PIC S9(4) COMP.
2< 2755 10 FILLER PIC X.
2< 2756 10 rsp-ss-SERVER-VERSION.
2< 2757 15 rsp-ss-LETTER PIC A value "B".
2< 2758 15 rsp-ss-REV-NUMBER PIC 99 value 40.
2< 2759 10 rsp-ss-TIME-ZONE-DIFF PIC S9(4) COMP.
2< 2760 10 rsp-ss-RESOLVED-NAME PIC X(120).
352
353 01 UOW-ES-01.
354 * COPY UOW-ES-END-SESSION-UOW OF "GCOB".
2< 1451 * Definition END-SESSION-UOW created on 12/01/86 at 14:29