TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
9–36 069138, Update 1 to 040970 Tandem Computers Incorporated
2< 2315 88 uow-scn-TTEXT-ITEM value 121.
2< 2316 88 uow-scn-DATA-ITEM value 130.
2< 2317 88 uow-scn-PCDATA-ITEM value 131.
2< 2318 88 uow-scn-OBJECT-ITEM value 140.
2< 2319 88 uow-scn-DOCUMENT-ITEM value 150.
2< 2320 88 uow-scn-COMPOSITE-ITEM value 355.
2< 2321 88 uow-scn-FACSIMILE-ITEM value 358.
2< 2322 * * * VALUE OF NUM-REQUESTED DETERMINES SIZE OF REPLY UOW (range 1:200) * * *
2< 2323 10 uow-scn-NUM-REQUESTED PIC 9(4) COMP
2< 2324 VALUE 20.
214
215 * The response to this SCAN-FOLDER UOW was hand coded to
216 * allow precise control over the maximum number of items
217 * returned (5) in the ITEMS-RETURNED field.
218 01 scan-folder-rsp.
219 02 rsp-scn-hdr.
220 03 rsp-scn-self-ident PIC AA VALUE "UW".
221 03 rsp-scn-uow-code PIC 9(4) COMP.
222 02 rsp-scn-retn-code PIC S9(4) COMP.
223 88 rsp-scn-OK VALUE 0.
224 88 rsp-scn-W-EOF VALUE -4001.
225 88 rsp-scn-W-TOO-MANY-REQUESTED VALUE -4091.
226 88 rsp-scn-E-INVALID-NUM-RQSTD VALUE 4092.
227 88 rsp-scn-E-MUST-BE-YN VALUE 4051.
228 88 rsp-scn-E-RESERVED-MUST-BE-N VALUE 4052.
229 88 rsp-scn-E-FLD-BAD-NAME VALUE 5677.
230 88 rsp-scn-E-FLD-BAD-TYPE VALUE 5678.
231 88 rsp-scn-E-FLD-NOT-FOUND VALUE 5676.
232 88 rsp-scn-E-FLD-NSRV-ERR VALUE 5675.
233 88 rsp-scn-E-FLD-NO-SUCH-NODE VALUE 5679.
234 88 rsp-scn-E-FLD-SECURITY VALUE 5680.
235 88 rsp-scn-E-FLD-NSRV-NOT-FOUND VALUE 5681.
236 88 rsp-scn-E-FLD-NSRV-DOWN VALUE 5682.
237 88 rsp-scn-E-FLD-ALIAS VALUE 5685.
238 88 rsp-scn-E-FLD-NET-DOWN VALUE 5686.
239 88 rsp-scn-E-FLD-NOT-SAME-NODE VALUE 5697.
240 88 rsp-scn-E-FLD-AMBIGUOUS-NAME VALUE 5698.
241 88 rsp-scn-E-FLD-NO-PARENT VALUE 5683.
242 02 rsp-scn-retn-code-detail PIC S9(4) COMP.
243 02 rsp-scn-num-returned PIC 9(4) COMP.
244 02 rsp-scn-items-returned OCCURS 0 TO 5 TIMES
245 DEPENDING ON rsp-scn-num-returned OF
246 scan-folder-rsp.
247 03 rsp-scn-dummy PIC X(12).
248 *********
249 /
250 01 get-item-descr-uow.
251 * COPY uow-gid-get-item-descr-uow OF "GCOB".
2< 1581 * Definition GET-ITEM-DESCR-UOW created on 12/01/86 at 14:29
2< 1582 05 uow-gid-GET-ITEM-DESCR-UOW.
2< 1583 10 uow-gid-HDR.
2< 1584 15 uow-gid-SELF-IDENT PIC AA
2< 1585 VALUE "UW".
2< 1586 15 uow-gid-UOW-CODE PIC 9(4) COMP value 122.
2< 1587 10 uow-gid-ITEM-ID.
2< 1588 15 uow-gid-DUMMY PIC X(12).
2< 1589 10 uow-gid-ITEM-HANDLE REDEFINES uow-gid-ITEM-ID.
2< 1590 * Set to HIGH-VALUES to indicate a handle.
2< 1591 15 uow-gid-HANDLE-FLAG PIC X(8).
2< 1592 15 uow-gid-UOW-NUMBER PIC S9(4) COMP.
2< 1593 15 uow-gid-ITEM-NUMBER PIC S9(4) COMP.
252
253 01 get-item-descr-rsp.
254 * COPY rsp-gid-get-item-descr-rsp OF "GCOB".
2< 1595 * Definition GET-ITEM-DESCR-RSP created on 12/01/86 at 14:29
2< 1596 05 rsp-gid-GET-ITEM-DESCR-RSP.
2< 1597 10 rsp-gid-HDR.
2< 1598 15 rsp-gid-SELF-IDENT PIC AA
2< 1599 VALUE "UW".