TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
9–30 069138, Update 1 to 040970 Tandem Computers Incorporated
2< 324 * FIELD CONTAINS THE GUARDIAN ERROR CODE THAT DESCRIBES THE PROBLEM.
2< 325 * FOR IPC-RETN-CODE = E-IO-TIMEOUT, THIS FIELD CONTAINS THE FILE
2< 326 * CODE OF THE FILE ON WHICH THE TIMEOUT OCCURRED.
2< 327 * FOR IPC-RETN-CODE = E-TEXT-SERVICE, THIS FIELD CONTAINS THE
2< 328 * PRIMARY ERROR CODE RETURNED BY THE TEXT SERVER.
2< 329 * FOR OTHER VALUES OF IPC-RETN-CODE, THIS FIELD IS UNDEFINED.
2< 330 10 IH-IPC-RETN-CODE-DETAIL PIC S9(4) COMP
2< 331 VALUE 0.
2< 332 10 IH-SESSION-ID.
2< 333 15 IH-DUMMY PIC X(18).
2< 334 10 IH-UOWS-TO-PROCESS PIC 9(4) COMP.
2< 335 10 IH-UOWS-RETURNED PIC 9(4) COMP
2< 336 VALUE 0.
2< 337 10 IH-LOG-THIS-IPC PIC A.
2< 338 10 FILLER PIC X.
95
96 *********
97 /
98 *********************************************************************
99 * UOW DEFINITIONS. The DDL-generated definitions for the UOWs *
100 * used in this program are copied into the WORKING-STORAGE Section *
101 * from the files named GCOB and GLNK, supplied by Tandem. *
102 *********************************************************************
103
104 01 start-session-uow.
105 * 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).
106
107 01 start-session-rsp.
108 * 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.