TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
9–42 069138, Update 1 to 040970 Tandem Computers Incorporated
2< 473 15 uow-ack-SELF-IDENT PIC AA
2< 474 VALUE "UW".
2< 475 15 uow-ack-UOW-CODE PIC 9(4) COMP value 131.
2< 476 10 uow-ack-ITEM-ID.
2< 477 15 uow-ack-DUMMY PIC X(12).
2< 478 10 uow-ack-ITEM-HANDLE REDEFINES uow-ack-ITEM-ID.
2< 479 * Set to HIGH-VALUES to indicate a handle.
2< 480 15 uow-ack-HANDLE-FLAG PIC X(8).
2< 481 15 uow-ack-UOW-NUMBER PIC S9(4) COMP.
2< 482 15 uow-ack-ITEM-NUMBER PIC S9(4) COMP.
357
358 01 ack-receipt-rsp.
359 * COPY rsp-ack-ack-receipt-rsp OF "GCOB".
2< 484 * Definition ACK-RECEIPT-RSP created on 12/01/86 at 14:26
2< 485 05 rsp-ack-ACK-RECEIPT-RSP.
2< 486 10 rsp-ack-HDR.
2< 487 15 rsp-ack-SELF-IDENT PIC AA
2< 488 VALUE "UW".
2< 489 15 rsp-ack-UOW-CODE PIC 9(4) COMP.
2< 490 10 rsp-ack-RETN-CODE PIC S9(4) COMP.
2< 491 88 rsp-ack-OK VALUE 0.
2< 492 88 rsp-ack-E-BAD-TRANSACTION VALUE 4010.
2< 493 88 rsp-ack-E-ITEM-NOT-FOUND VALUE 4035.
2< 494 88 rsp-ack-E-INVALID-ITEM VALUE 4062.
2< 495 88 rsp-ack-W-ITEM-NOT-RETURNED VALUE -4063.
2< 496 88 rsp-ack-E-ITEM-NOT-PKG-HDR VALUE 4042.
2< 497 88 rsp-ack-E-PKG-NOT-SUBMITTED VALUE 4084.
2< 498 88 rsp-ack-E-PKG-NOT-RECEIVED VALUE 4080.
2< 499 88 rsp-ack-E-PKG-CANCELED VALUE 4094.
2< 500 88 rsp-ack-E-PKG-EXPIRED VALUE 4095.
2< 501 88 rsp-ack-E-TSCHED-UNAVAIL VALUE 4045.
2< 502 88 rsp-ack-W-TSCHED-UNAVAIL VALUE -4045.
2< 503 10 rsp-ack-RETN-CODE-DETAIL PIC S9(4) COMP.
360 *********
361 /
362 01 unsave-item-uow.
363 * COPY uow-usv-unsave-item-uow OF "GCOB".
2< 2878 * Definition UNSAVE-ITEM-UOW created on 12/01/86 at 14:32
2< 2879 05 uow-usv-UNSAVE-ITEM-UOW.
2< 2880 10 uow-usv-HDR.
2< 2881 15 uow-usv-SELF-IDENT PIC AA
2< 2882 VALUE "UW".
2< 2883 15 uow-usv-UOW-CODE PIC 9(4) COMP value 111.
2< 2884 10 uow-usv-ITEM-ID.
2< 2885 15 uow-usv-DUMMY PIC X(12).
2< 2886 10 uow-usv-ITEM-HANDLE REDEFINES uow-usv-ITEM-ID.
2< 2887 * Set to HIGH-VALUES to indicate a handle.
2< 2888 15 uow-usv-HANDLE-FLAG PIC X(8).
2< 2889 15 uow-usv-UOW-NUMBER PIC S9(4) COMP.
2< 2890 15 uow-usv-ITEM-NUMBER PIC S9(4) COMP.
2< 2891 10 uow-usv-FOLDER-NAME PIC X(80).
364
365 01 unsave-item-rsp.
366 * COPY rsp-usv-unsave-item-rsp OF "GCOB".
2< 2893 * Definition UNSAVE-ITEM-RSP created on 12/01/86 at 14:32
2< 2894 05 rsp-usv-UNSAVE-ITEM-RSP.
2< 2895 10 rsp-usv-HDR.
2< 2896 15 rsp-usv-SELF-IDENT PIC AA
2< 2897 VALUE "UW".
2< 2898 15 rsp-usv-UOW-CODE PIC 9(4) COMP.
2< 2899 10 rsp-usv-RETN-CODE PIC S9(4) COMP.
2< 2900 88 rsp-usv-OK VALUE 0.
2< 2901 88 rsp-usv-W-ITEM-NOT-IN-FOLDER VALUE -4061.
2< 2902 88 rsp-usv-E-BAD-TRANSACTION VALUE 4010.
2< 2903 88 rsp-usv-E-ITEM-NOT-FOUND VALUE 4035.
2< 2904 88 rsp-usv-E-INVALID-ITEM VALUE 4062.
2< 2905 88 rsp-usv-W-ITEM-NOT-RETURNED VALUE -4063.
2< 2906 88 rsp-usv-E-CONCURRNT-FLD-UPDATE VALUE 4105.
2< 2907 88 rsp-usv-E-FLD-NSRV-ERR VALUE 5675.