TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–15
2< 2333 88 rsp-scn-OK VALUE 0.
2< 2334 88 rsp-scn-W-EOF VALUE -4001.
2< 2335 88 rsp-scn-E-INVALID-NUM-RQSTD VALUE 4092.
2< 2336 88 rsp-scn-E-INVALID-ITEM VALUE 4062.
2< 2337 88 rsp-scn-W-ITEM-NOT-RETURNED VALUE -4063.
2< 2338 88 rsp-scn-E-INVALID-ITEM-TYPE VALUE 4056.
2< 2339 88 rsp-scn-E-MUST-BE-YN VALUE 4051.
2< 2340 88 rsp-scn-E-RESERVED-MUST-BE-N VALUE 4052.
2< 2341 88 rsp-scn-E-REC-NOT-FOUND VALUE 4047.
2< 2342 88 rsp-scn-E-CONCURRNT-FLD-UPDATE VALUE 4105.
2< 2343 88 rsp-scn-E-ERR-FOLDER-FILE VALUE 4912.
2< 2344 88 rsp-scn-E-ERR-INV-FOLDER-FILE VALUE 4922.
2< 2345 88 rsp-scn-E-FLD-BAD-NAME VALUE 5677.
2< 2346 88 rsp-scn-E-FLD-BAD-TYPE VALUE 5678.
2< 2347 88 rsp-scn-E-FLD-NOT-FOUND VALUE 5676.
2< 2348 88 rsp-scn-E-FLD-NSRV-ERR VALUE 5675.
2< 2349 88 rsp-scn-E-FLD-NO-SUCH-NODE VALUE 5679.
2< 2350 88 rsp-scn-E-FLD-SECURITY VALUE 5680.
2< 2351 88 rsp-scn-E-FLD-NSRV-NOT-FOUND VALUE 5681.
2< 2352 88 rsp-scn-E-FLD-NSRV-DOWN VALUE 5682.
2< 2353 88 rsp-scn-E-FLD-NET-DOWN VALUE 5686.
2< 2354 88 rsp-scn-E-FLD-NOT-SAME-NODE VALUE 5697.
2< 2355 88 rsp-scn-E-FLD-AMBIGUOUS-NAME VALUE 5698.
2< 2356 88 rsp-scn-E-FLD-NO-PARENT VALUE 5683.
2< 2357 10 rsp-scn-RETN-CODE-DETAIL PIC S9(4) COMP.
2< 2358 10 rsp-scn-NUM-RETURNED PIC 9(4) COMP.
2< 2359 * * * APPLICATION MUST DEFINE ARRAY LIMIT CONSISTENT WITH REQUEST UOW * * *
2< 2360 * Note: ITEMS-RETURNED (NUM-RETURNED) can be used as input for next request
2< 2361 10 rsp-scn-ITEMS-RETURNED OCCURS 0 TO 20 TIMES DEPENDING ON rsp-scn-NUM-RETURNED of
2< 2362 rsp-scn-SCAN-FOLDER-RSP.
2< 2363 15 rsp-scn-DUMMY PIC X(12).
364
365 01 UOW-GID.
366 * 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.
367
368 01 RSP-GID.
369 * 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".
2< 1600 15 rsp-gid-UOW-CODE PIC 9(4) COMP.
2< 1601 10 rsp-gid-RETN-CODE PIC S9(4) COMP.
2< 1602 88 rsp-gid-OK VALUE 0.
2< 1603 88 rsp-gid-E-ITEM-NOT-FOUND VALUE 4035.
2< 1604 88 rsp-gid-E-INVALID-ITEM VALUE 4062.
2< 1605 88 rsp-gid-W-ITEM-NOT-RETURNED VALUE -4063.
2< 1606 10 rsp-gid-RETN-CODE-DETAIL PIC S9(4) COMP.
2< 1607 10 rsp-gid-UPDATE-CONTROL PIC S9(4) COMP.
2< 1608 10 rsp-gid-ITEM-TYPE PIC 9(4) COMP.
2< 1609 * 88 TANDEM-ASSIGNED values 100 thru 999.
2< 1610 88 rsp-gid-ORIGINAL-PACKAGE value 109.
2< 1611 88 rsp-gid-REPLY-PACKAGE value 110.
2< 1612 88 rsp-gid-FORWARD-PACKAGE value 111.
2< 1613 88 rsp-gid-ORIGINAL-TTEXT-PKG value 112.