TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–22 40970 Tandem Computers Incorporated
541 05 FILLER AT 8, 6
542 VALUE "Application ID" .
543 05 APPLICATION-ID-DISPLAY AT 8, 28
544 PIC 9(4)
545 FROM APPLICATION-ID
546 UNDERLINE .
547 05 FILLER AT 8, 36
548 VALUE "Agent selector" .
549 05 AGENT-SELECTOR-DISPLAY AT 8, 53
550 PIC 9(4)
551 FROM AGENT-SELECTOR
552 UNDERLINE .
553 05 FILLER AT 8, 61
554 VALUE "CERTIFIED flag" .
555 05 CERTIFIED-FLAG-DISPLAY AT 8, 77
556 PIC X
557 FROM CERTIFIED-FLAG
558 UNDERLINE .
559 05 FILLER AT 9, 6
560 VALUE "Item update control" .
561 05 ITEM-UPDATE-CONTROL-DIS AT 9, 28
562 PIC 9(4)
563 FROM ITEM-UPDATE-CONTROL
564 UNDERLINE .
565 05 FILLER AT 9, 36
566 VALUE "Item priority" .
567 05 PRIORITY-DISPLAY AT 9, 53
568 PIC 999
569 FROM PRIORITY
570 UNDERLINE .
571 05 FILLER AT 10, 6
572 VALUE "Item data record type" .
573 05 DATA-RECORD-TYPE-DISPLAY AT 10, 28
574 PIC 9(4)
575 FROM DATA-RECORD-TYPE
576 UNDERLINE .
577 05 FILLER AT 10, 36
578 VALUE "Sequence number" .
579 05 SEQUENCE-NUMBER-DISPLAY AT 10, 53
580 PIC 9(5)
581 FROM SEQUENCE-NUMBER
582 UNDERLINE .
583 05 FILLER AT 12, 2
584 VALUE "Record data:" .
585 05 SUBJECT-DISPLAY AT 13, 2
586 PIC X(78)
587 FROM SUBJECT-STRING
588 UNDERLINE .
589 05 FILLER AT 15, 6
590 VALUE "If no errors, press F1 to select an agent" .
591 05 FILLER AT 16, 37
592 VALUE "F2 to select next item" .
593 05 FILLER AT 17, 37
594 VALUE "SF16 to return to selection criteria" .
595
596 *==========================================================================
597 01 OVERLAY4 OVERLAY SIZE 18, 80 .
598 05 FILLER AT 1, 23
599 VALUE "AGENT LINKAGE INFORMATION" .
600 05 FILLER AT 2, 2
601 VALUE "Sender:" .
602 05 SENDER-NAME-DISPLAY AT 2, 10
603 PIC X(70)
604 FROM AG-LNK-SENDER-NAME
605 UNDERLINE .
606 05 FILLER AT 3, 2
607 VALUE "Sender application ID:" .
608 05 SENDER-APPL-ID-DISPLAY AT 3, 25
609 PIC 9(4)