TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–26 40970 Tandem Computers Incorporated
815 31-NEXT-RECORD.
816 * Get next item-index number here
817 IF (ITEM-INDEX NOT GREATER THAN MAX-INDEX-VALUE AND
818 ITEM-INDEX NOT EQUAL TO MAX-INDEX-VALUE)
819 ADD 1 TO ITEM-INDEX
820 ELSE
821 MOVE "YOU NAVE READ THE LAST AVAILABLE ITEM" TO OPERATOR-MESSAGE.
822 MOVE "Y" TO REQUEST-NEW-ITEM-CONTROL.
823
824 31-RETURN-TO-SCAN.
825 MOVE SPACES TO OPERATOR-MESSAGE.
826 MOVE SPACES TO SCRN-MESSAGE.
827 MOVE "Y" TO FINISHED-W-ITEMS-CONTROL.
828
829 40-ENTER-AGENT.
830 DISPLAY OVERLAY OVERLAY4 AT OVERLAYA.
831 DISPLAY OVERLAY4.
832 DISPLAY TEMP OPER-MESSAGE.
833 DISPLAY TEMP ERROR-MESSAGE.
834
835 ACCEPT OVERLAY4 UNTIL F1-KEY,
836 F2-KEY,
837 ESCAPE (F3-KEY THRU SF16-KEY)
838
839 MOVE TERMINATION-STATUS TO OPERATION-CHOICE
840
841 PERFORM ONE OF 41-CALL-AGENT,
842 41-RETURN-PRIOR-SCREEN,
843 890-NOT-SUPPORTED
844 DEPENDING ON OPERATION-CHOICE.
845
846 41-CALL-AGENT.
847 MOVE SPACES TO OPERATOR-MESSAGE.
848 MOVE SPACES TO SCRN-MESSAGE.
849 MOVE AGENT-DATA-VALUE TO AG-LNK-AGENT-DATA.
850 MOVE CALL-PROGRAM-VALUE TO PROGRAM-CALLED.
851 PERFORM 300-CALL-AGENT.
852
853 41-RETURN-PRIOR-SCREEN.
854 MOVE ZEROS TO ERROR-RETURN.
855 MOVE SPACES TO AG-REP-ERROR-MSG.
856 MOVE SPACES TO OPERATOR-MESSAGE.
857 MOVE SPACES TO SCRN-MESSAGE.
858 MOVE "N" TO ANOTHER-AGENT-CONTROL.
859
860 * =====================================================================
861 * START-SESSION UOW WORK AREA
862 * =====================================================================
863
864 100-SS.
865 BEGIN-TRANSACTION.
866 MOVE "N" TO FATAL-ERRORS-CONTROL.
867 MOVE -3 TO IH-REQUEST-CODE.
868 MOVE ZERO TO IH-UOWS-RETURNED.
869 MOVE "N" TO IH-LOG-THIS-IPC.
870 MOVE 1 TO IH-UOWS-TO-PROCESS.
871 MOVE LOW-VALUES TO IH-SESSION-ID.
872 MOVE CORRESPONDENT-NAME-VALUE TO UOW-SS-CORR-NAME.
873 MOVE PASSWORD-VALUE TO UOW-SS-PASSWORD.
874 ACCEPT UOW-SS-ACCEPT-DATE FROM DATE.
875 ACCEPT ACCEPT-TIME-IN-8 FROM TIME.
876 MOVE ACCEPT-TIME-OUT-6 TO UOW-SS-ACCEPT-TIME.
877 MOVE 19 TO UOW-SS-CENTURY.
878 MOVE SPACES TO RSP-SS-RESOLVED-NAME.
879
880 SEND IH-IPC-HDR, UOW-SS-START-SESSION-UOW
881 TO "TISERV"
882 REPLY CODE 0, 1, 2 YIELDS IH-IPC-HDR, RSP-SS-START-SESSION-RSP
883 CODE 3 YIELDS IH-IPC-HDR