TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–24 40970 Tandem Computers Incorporated
677 MOVE "SCREEN RECOVERY" TO MESSAGE-ALPHA.
678 DISPLAY BASE SCREEN1.
679 DISPLAY OVERLAY OVERLAY1 AT OVERLAYA.
680 DISPLAY OVERLAY1.
681 DISPLAY TEMP ERROR-MESSAGE OF SCREEN1.
682 END DECLARATIVES.
683
684 01-PROGRAM-START.
685 PERFORM 01-INIT-ALL.
686 PERFORM 10-LOGON UNTIL PROGRAM-EXIT-YES.
687
688 01-INIT-ALL.
689 MOVE SPACES TO MESSAGE-ALPHA.
690 DISPLAY BASE SCREEN1.
691
692 10-LOGON.
693 DISPLAY OVERLAY OVERLAY1 AT OVERLAYA
694 DISPLAY OVERLAY1.
695 DISPLAY TEMP OPER-MESSAGE.
696 DISPLAY TEMP ERROR-MESSAGE.
697
698 ACCEPT OVERLAY1 UNTIL F1-KEY
699 ESCAPE (SF16-KEY)
700 (F2-KEY THRU SF15-KEY).
701
702 MOVE TERMINATION-STATUS TO OPERATION-CHOICE.
703
704 PERFORM ONE OF 10-START-SESSION,
705 10-EXIT,
706 890-NOT-SUPPORTED
707 DEPENDING ON OPERATION-CHOICE.
708
709 IF SESSION-STARTED-YES AND FATAL-ERRORS-NO
710 PERFORM 20-SCAN-FOLDER UNTIL SESSION-STARTED-NO.
711
712 10-START-SESSION.
713 PERFORM 100-SS.
714 10-EXIT.
715 EXIT PROGRAM.
716
717 20-SCAN-FOLDER.
718 MOVE "N" TO FINISHED-W-ITEMS-CONTROL.
719 DISPLAY OVERLAY OVERLAY2 AT OVERLAYA
720 DISPLAY OVERLAY2.
721 DISPLAY TEMP OPER-MESSAGE.
722 DISPLAY TEMP ERROR-MESSAGE.
723
724 ACCEPT OVERLAY2 UNTIL F1-KEY,
725 F2-KEY,
726 ESCAPE (SF16-KEY),
727 (F3-KEY THRU SF15-KEY).
728
729 MOVE TERMINATION-STATUS TO OPERATION-CHOICE.
730
731 PERFORM ONE OF 20-SCAN-FOLDER-FIRST,
732 20-SCAN-FOLDER-NEXT,
733 20-SCAN-FOLDER-END-SESSION,
734 890-NOT-SUPPORTED
735 DEPENDING ON OPERATION-CHOICE.
736
737 20-SCAN-FOLDER-FIRST.
738 MOVE SPACES TO OPERATOR-MESSAGE.
739 MOVE SPACES TO SCRN-MESSAGE.
740 MOVE low-values TO ITEM-FIRST-TOSCAN.
741 PERFORM 150-SCAN-FOLDER.
742 IF FATAL-ERRORS-NO
743 PERFORM 30-GET-RECORD-DESCRIPTOR.
744
745