TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–14 40970 Tandem Computers Incorporated
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.
355
356 01 RSP-ES-01.
357 * 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.
358
359 01 UOW-SCAN-FOLDER.
360 * COPY UOW-SCN-SCAN-FOLDER-UOW OF "GCOB".
2< 2288 * Definition SCAN-FOLDER-UOW created on 12/01/86 at 14:31
2< 2289 05 uow-scn-SCAN-FOLDER-UOW.
2< 2290 10 uow-scn-HDR.
2< 2291 15 uow-scn-SELF-IDENT PIC AA
2< 2292 VALUE "UW".
2< 2293 15 uow-scn-UOW-CODE PIC 9(4) COMP value 120.
2< 2294 10 uow-scn-FOLDER-NAME PIC X(80).
2< 2295 10 uow-scn-ITEM-ID.
2< 2296 15 uow-scn-DUMMY PIC X(12).
2< 2297 10 uow-scn-ITEM-HANDLE REDEFINES uow-scn-ITEM-ID.
2< 2298 * Set to HIGH-VALUES to indicate a handle.
2< 2299 15 uow-scn-HANDLE-FLAG PIC X(8).
2< 2300 15 uow-scn-UOW-NUMBER PIC S9(4) COMP.
2< 2301 15 uow-scn-ITEM-NUMBER PIC S9(4) COMP.
2< 2302 10 uow-scn-OPTIONS.
2< 2303 15 uow-scn-FILTER-BY-ITEM-TYPE PIC A.
2< 2304 15 uow-scn-RESERVED-1 PIC A
2< 2305 VALUE "N".
2< 2306 15 uow-scn-ITEM-TYPE PIC 9(4) COMP.
2< 2307 * 88 TANDEM-ASSIGNED values 100 thru 999.
2< 2308 88 uow-scn-ORIGINAL-PACKAGE value 109.
2< 2309 88 uow-scn-REPLY-PACKAGE value 110.
2< 2310 88 uow-scn-FORWARD-PACKAGE value 111.
2< 2311 88 uow-scn-ORIGINAL-TTEXT-PKG value 112.
2< 2312 88 uow-scn-REPLY-TTEXT-PKG value 113.
2< 2313 88 uow-scn-FORWARD-TTEXT-PKG value 114.
2< 2314 88 uow-scn-UNFORMATTED-TEXT-ITEM value 120.
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.
361
362 01 RSP-SCAN-FOLDER.
363 * COPY RSP-SCN-SCAN-FOLDER-RSP OF "GCOB".
2< 2326 * Definition SCAN-FOLDER-RSP created on 12/01/86 at 14:31
2< 2327 05 rsp-scn-SCAN-FOLDER-RSP.
2< 2328 10 rsp-scn-HDR.
2< 2329 15 rsp-scn-SELF-IDENT PIC AA
2< 2330 VALUE "UW".
2< 2331 15 rsp-scn-UOW-CODE PIC 9(4) COMP.
2< 2332 10 rsp-scn-RETN-CODE PIC S9(4) COMP.