TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–25
746 20-SCAN-FOLDER-NEXT.
747 MOVE SPACES TO OPERATOR-MESSAGE.
748 MOVE SPACES TO SCRN-MESSAGE.
749 IF MAX-INDEX-VALUE IS NOT EQUAL TO ZERO
750 MOVE RSP-SCN-ITEMS-RETURNED (MAX-INDEX-VALUE)
751 TO ITEM-FIRST-TOSCAN
752 PERFORM 150-SCAN-FOLDER
753 ELSE NEXT SENTENCE.
754
755 IF RSP-SCN-NUM-RETURNED IS EQUAL TO ZERO
756 MOVE "YOU HAVE READ ALL AVAILABLE ITEMS. START ITEM READ WITH F1."
757 TO OPERATOR-MESSAGE
758 ELSE
759 IF FATAL-ERRORS-NO
760 PERFORM 30-GET-RECORD-DESCRIPTOR
761 ELSE NEXT SENTENCE.
762
763
764 20-SCAN-FOLDER-END-SESSION.
765 MOVE SPACES TO SCRN-MESSAGE.
766 MOVE SPACES TO OPERATOR-MESSAGE.
767 MOVE "Y" TO SCAN-FOLDERS-DONE-CONTROL.
768 IF SESSION-STARTED-YES
769 PERFORM 400-ES
770 MOVE "N" TO SESSION-STARTED-CONTROL.
771 IF FATAL-ERRORS-NO
772 END-TRANSACTION
773 ELSE
774 ABORT-TRANSACTION.
775
776 30-GET-RECORD-DESCRIPTOR.
777 MOVE 1 TO ITEM-INDEX.
778 MOVE "Y" TO REQUEST-NEW-ITEM-CONTROL.
779 PERFORM 31-GET-RECORD-DESCRIPTOR UNTIL FINISHED-W-ITEMS-YES.
780
781 31-GET-RECORD-DESCRIPTOR.
782 IF REQUEST-NEW-ITEM-YES
783 PERFORM 200-GET-ITEM-DESCRIPTOR
784 MOVE "N" TO REQUEST-NEW-ITEM-CONTROL.
785
786 DISPLAY OVERLAY OVERLAY3 AT OVERLAYA.
787 DISPLAY OVERLAY3.
788 DISPLAY TEMP OPER-MESSAGE.
789 DISPLAY TEMP ERROR-MESSAGE.
790
791 IF FATAL-ERRORS-YES
792 ACCEPT OVERLAY3 ESCAPE (F1-KEY THRU SF16-KEY)
793 MOVE "Y" TO FINISHED-W-ITEMS-CONTROL
794 ELSE
795
796 ACCEPT OVERLAY3 UNTIL F1-KEY,
797 F2-KEY,
798 ESCAPE (SF16-KEY),
799 (F3-KEY THRU SF15-KEY)
800
801 MOVE TERMINATION-STATUS TO OPERATION-CHOICE
802
803 PERFORM ONE OF 31-ENTER-AGENT,
804 31-NEXT-RECORD,
805 31-RETURN-TO-SCAN,
806 890-NOT-SUPPORTED
807 DEPENDING ON OPERATION-CHOICE.
808
809 31-ENTER-AGENT.
810 MOVE SPACES TO OPERATOR-MESSAGE.
811 MOVE SPACES TO SCRN-MESSAGE.
812 MOVE "Y" TO ANOTHER-AGENT-CONTROL.
813 PERFORM 40-ENTER-AGENT UNTIL ANOTHER-AGENT-NO.
814