TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–31
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).
109 /
110 01 end-session-uow.
111 * COPY uow-es-end-session-uow OF "GCOB".
2< 1451 * Definition END-SESSION-UOW created on 12/01/86 at 14:29
2< 1452 05 uow-es-END-SESSION-UOW.
2< 1453 10 uow-es-HDR.
2< 1454 15 uow-es-SELF-IDENT PIC AA
2< 1455 VALUE "UW".
2< 1456 15 uow-es-UOW-CODE PIC 9(4) COMP value 102.
112
113 01 end-session-rsp.
114 * COPY rsp-es-end-session-rsp OF "GCOB".
2< 1458 * Definition END-SESSION-RSP created on 12/01/86 at 14:29
2< 1459 05 rsp-es-END-SESSION-RSP.
2< 1460 10 rsp-es-HDR.
2< 1461 15 rsp-es-SELF-IDENT PIC AA
2< 1462 VALUE "UW".
2< 1463 15 rsp-es-UOW-CODE PIC 9(4) COMP.
2< 1464 10 rsp-es-RETN-CODE PIC S9(4) COMP.
2< 1465 88 rsp-es-OK VALUE 0.
2< 1466 88 rsp-es-E-BAD-TRANSACTION VALUE 4010.
2< 1467 * (RQST-ERR if invalid session id)
2< 1468 10 rsp-es-RETN-CODE-DETAIL PIC S9(4) COMP.
115
116 *********
117 /
118 01 add-subject-count PIC 9(4) COMP.
119
120 * The following UOW, like all other special copies of the
121 * ADD-ITEM-REC UOW, must be hand coded because the size of the
122 * field for client data varies with each special use. The response
123 * to this UOW is fixed in length, however, so the standard
124 * response UOW is used.
125
126 * Special version of ADD-ITEM-REC UOW, for adding the subject text:
127 01 add-subject-rec-uows.
128 03 add-subject-uow OCCURS 0 TO 1 TIMES DEPENDING ON add-subject-count.
129 05 asu-hdr.
130 10 asu-self-ident PIC AA.
131 10 asu-uow-code PIC 9(4) COMP.
132 05 asu-item-key.
133 10 asu-item-id.
134 15 asu-dummy PIC X(12).
135 10 asu-rec-type PIC S9(4) COMP.
136 10 asu-rec-seq-num PIC S9(4) COMP.
137 * We want a 40-byte subject line; however, we cannot set
138 * ASU-DATA-BYTE-COUNT to 40 with a VALUE clause because VALUE is not