TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–23
610 FROM APPLICATION-ID
611 UNDERLINE .
612 05 FILLER AT 3, 31
613 VALUE "Agent selector:" .
614 05 AGENT-SELECT-DISPLAY AT 3, 47
615 PIC 9(4)
616 FROM AGENT-SELECT
617 UNDERLINE .
618 05 FILLER AT 3, 53
619 VALUE "CERTIFIED flag:" .
620 05 CERTIFIED-FLAG-DISPLAY AT 3, 69
621 PIC X
622 FROM AG-LNK-CERTIFIED
623 UNDERLINE .
624 05 FILLER AT 5, 2
625 VALUE "Recipient:" .
626 05 RECIPIENT-DISPLAY AT 6, 2
627 PIC X(70)
628 FROM CORRESPONDENT-NAME-VALUE
629 UNDERLINE .
630 05 FILLER AT 8, 2
631 VALUE "Subject string:" .
632 05 SUBJECT-DISPLAY AT 9, 2
633 PIC X(139)
634 FROM AG-LNK-SUBJECT-STRING
635 UNDERLINE .
636 05 FILLER AT 12, 2
637 VALUE "Agent name:" .
638 05 AGENT-NAME-DISPLAY AT 12, 14
639 PIC X(30)
640 FILL " "
641 TO CALL-PROGRAM-VALUE
642 FROM CALL-PROGRAM-VALUE
643 UNDERLINE
644 UPSHIFT INPUT-OUTPUT .
645 05 FILLER AT 13, 2
646 VALUE "Agent data:" .
647 05 AGENT-DATA-DISPLAY AT 13, 14
648 PIC X(80)
649 FILL " "
650 TO AGENT-DATA-VALUE
651 FROM AGENT-DATA-VALUE
652 UNDERLINE .
653 05 FILLER AT 15, 2
654 VALUE "Error return value:" .
655 05 AGENT-ERROR-CODE-DISPLAY AT 15, 22
656 PIC 9(5)
657 FROM ERROR-RETURN
658 UNDERLINE .
659 05 FILLER AT 16, 2
660 VALUE "Error message:" .
661 05 AGENT-ERROR-MESSAGE-DISPLAY AT 16, 17
662 PIC X(80)
663 FROM AG-REP-ERROR-MSG
664 UNDERLINE .
665 05 FILLER AT 18, 23
666 VALUE "F1: call the agent F2: return to previous screen".
667
668 /
669 ************************************************************************
670 PROCEDURE DIVISION.
671 ************************************************************************
672
673 DECLARATIVES.
674 RECOVER-SCREEN1 SECTION.
675 USE FOR SCREEN RECOVERY ON SCREEN1.
676 RECOVER-SCREEN.