TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–29
69
70 dim IS DIM
71 normal IS NORMAL
72 hidden IS HIDDEN
73 blink IS BLINK
74 reverse IS REVERSE
75 underline IS UNDERLINE .
76
77
78 INPUT-OUTPUT SECTION.
79
80 SCREEN-CONTROL.
81
82 ERROR-ENHANCEMENT IS reverse IN ALL WITH AUDIBLE ALARM.
83 /
84 DATA DIVISION.
85
86 WORKING-STORAGE SECTION.
87
88 *********************************************************************
89 * IPC HEADER DEFINITIONS. The IPC-HDR must be the first element *
90 * of every send to, and reply from, TISERV. *
91 *********************************************************************
92
93 01 ipc-hdr.
94 * COPY ih-ipc-hdr OF "GCOB".
2< 281 * Definition IPC-HDR created on 12/01/86 at 14:26
2< 282 05 IH-IPC-HDR.
2< 283 10 IH-REQUEST-CODE PIC S9(4) COMP.
2< 284 88 IH-STOP-ON-WARNING Value is -1.
2< 285 88 IH-STOP-ON-ERR Value is -2.
2< 286 88 IH-DO-ALL-UOWS Value is -3.
2< 287 10 IH-PW-REPLY-CODE REDEFINES IH-REQUEST-CODE PIC S9(4) COMP.
2< 288 88 IH-ALL-UOWS-OK Value is 0.
2< 289 88 IH-UOWS-WITH-WARNING Value is 1.
2< 290 88 IH-UOWS-WITH-ERR Value is 2.
2< 291 88 IH-RQST-ERR Value is 3.
2< 292 10 FILLER PIC X.
2< 293 10 IH-VERSION-CODE.
2< 294 15 IH-LETTER PIC A value "B".
2< 295 15 IH-REV-NUMBER PIC 99 value 40.
2< 296 10 IH-IPC-RETN-CODE PIC S9(4) COMP
2< 297 VALUE 0.
2< 298 88 IH-IPC-OK Value is 0.
2< 299 88 IH-INVALID-VERSION-CODE Value is 1.
2< 300 88 IH-INVALID-SESSION-ID Value is 2.
2< 301 88 IH-SERVICE-DENIED Value is 3.
2< 302 88 IH-INVALID-UOW-HDR Value is 4.
2< 303 88 IH-RQST-TOO-LONG Value is 5.
2< 304 88 IH-REPLY-TOO-LONG Value is 6.
2< 305 88 IH-RQST-TOO-SHORT Value is 7.
2< 306 88 IH-INVALID-REQUEST-CODE Value is 8.
2< 307 88 IH-E-BAD-TRANSACTION VALUE 4010.
2< 308 88 IH-E-ERR-PROFILE-FILE VALUE 4902.
2< 309 88 IH-E-ERR-SESSION-FILE VALUE 4904.
2< 310 88 IH-E-ERR-ITEMDESC-FILE VALUE 4906.
2< 311 88 IH-E-ERR-ITEMDATA-FILE VALUE 4908.
2< 312 88 IH-E-ERR-RECIP-FILE VALUE 4910.
2< 313 88 IH-E-ERR-FOLDER-FILE VALUE 4912.
2< 314 88 IH-E-ERR-DLIST-FILE VALUE 4914.
2< 315 88 IH-E-ERR-READY-FILE VALUE 4916.
2< 316 88 IH-E-ERR-TIME-FILE VALUE 4918.
2< 317 88 IH-E-ERR-NET-FILE VALUE 4920.
2< 318 88 IH-E-ERR-INV-FOLDER-FILE VALUE 4922.
2< 319 88 IH-E-ERR-QUEUE-FILE VALUE 4924.
2< 320 88 IH-E-IO-TIMEOUT VALUE 4990.
2< 321 88 IH-E-TEXT-SERVICE VALUE 5800.
2< 322 88 IH-E-WAITMANAGER-UNAVAIL VALUE 6006.
2< 323 * FOR IPC-RETN-CODE = E-BAD-TRANSACTION OR E-ERR-FILE-XXXX, THIS