TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–49
770 * initialized once. *
771 **********************************************************************
772
773 MOVE 115 TO uow-gir-rec-type OF get-subject-rec-uow.
774 MOVE 1 TO uow-gir-rec-seq-num OF get-subject-rec-uow.
775 MOVE ALL "N" TO uow-gir-options OF get-subject-rec-uow.
776 MOVE "Y" TO uow-gir-any-seq-num OF get-subject-rec-uow.
777 MOVE 1 TO uow-gir-num-requested OF get-subject-rec-uow.
778 MOVE 40 TO uow-gir-max-datasize OF get-subject-rec-uow.
779 MOVE SPACE TO uow-gir-pad-char OF get-subject-rec-uow.
780
781 MOVE 340 TO uow-gir-rec-type OF get-recip-text-uow.
782 MOVE 1 TO uow-gir-rec-seq-num OF get-recip-text-uow.
783 MOVE ALL "N" TO uow-gir-options OF get-recip-text-uow.
784 MOVE "Y" TO uow-gir-any-seq-num OF get-recip-text-uow.
785 MOVE 1 TO uow-gir-num-requested OF get-recip-text-uow.
786 MOVE 70 TO uow-gir-max-datasize OF get-recip-text-uow.
787 MOVE SPACE TO uow-gir-pad-char OF get-recip-text-uow.
788
789 MOVE 120 TO uow-gir-rec-type OF get-text-rec-uow.
790 MOVE 1 TO uow-gir-rec-seq-num OF get-text-rec-uow.
791 MOVE ALL "N" TO uow-gir-options OF get-text-rec-uow.
792 MOVE "Y" TO uow-gir-any-seq-num OF get-text-rec-uow.
793 MOVE 5 TO uow-gir-num-requested OF get-text-rec-uow.
794 MOVE 78 TO uow-gir-max-datasize OF get-text-rec-uow.
795 MOVE SPACE TO uow-gir-pad-char OF get-text-rec-uow.
796
797 * Set up the constant fields of the SCAN-FOLDER UOW:
798 MOVE LOW-VALUES TO uow-scn-item-id.
799 MOVE "INBOX" TO uow-scn-folder-name.
800 MOVE "N" TO uow-scn-filter-by-item-type.
801 MOVE 5 TO uow-scn-num-requested.
802
803 * Set the necessary flags.
804 MOVE 2 TO key-value.
805 MOVE "N" TO exit-scan-flag.
806 MOVE "Y" TO first-scan-flag.
807 MOVE 0 TO rsp-scn-retn-code.
808
809 PERFORM scan-mail-section
810 UNTIL rsp-scn-w-eof OR exit-scan.
811
812 IF rsp-scn-num-returned = 0 AND first-scan
813 DISPLAY TEMP "NO ITEMS FOUND" IN error-line OF base-screen
814 ELSE
815 DISPLAY TEMP "NO MORE ITEMS" IN error-line OF base-screen.
816 /
817 scan-mail-section SECTION.
818
819 *********************************************************************
820 * Builds the UOW to scan the INBOX to find items associated *
821 * with this correspondent. *
822 *********************************************************************
823
824 DISPLAY TEMP "SCANNING FILE" IN msg.
825
826 MOVE "SCAN" TO error-name.
827 MOVE -3 TO ih-request-code.
828 MOVE 1 TO ih-uows-to-process.
829
830 *********************************************************************
831 * SENDS THE IPC REQUESTING THE FOLDER SCAN. Because this *
832 * operation does not affect the data base, no TMF transaction *
833 * is necessary. *
834 *********************************************************************
835
836 SEND IPC-HDR, scan-folder-uow
837 TO "TISERV"
838 REPLY CODE 0, 1, 2 YIELDS ipc-hdr, scan-folder-rsp,