TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
40970 Tandem Computers Incorporated 11–21
472 VALUE "Forward package = 111" .
473 05 FILLER AT 14, 38
474 VALUE "Unformatted text item = 120" .
475 05 FILLER AT 16, 5
476 VALUE "Press F1 To scan the INBOX folder" .
477 05 FILLER AT 17, 12
478 VALUE "F2 To get the next 10 items after scanning the INBOX" .
479 05 FILLER AT 18, 12
480 VALUE "SF16 To end the session" .
481
482 *============================================================================
483
484 01 OVERLAY3 OVERLAY SIZE 18, 80 .
485 05 FILLER AT 1, 21
486 VALUE "ITEM RECORD DATA DESCRIPTION" .
487 05 FILLER AT 3, 6
488 VALUE "Item type" .
489 05 DESCRIPTOR-ITEM-TYPE-DISPLAY AT 3, 17
490 PIC 9(4)
491 FROM DESCRIPTOR-ITEM-TYPE
492 UNDERLINE .
493 05 FILLER AT 3, 27
494 VALUE "Parent count" .
495 05 DESC-PARENT-COUNT-DIS AT 3, 41
496 PIC 9(4)
497 FROM DESC-PARENT-COUNT
498 UNDERLINE .
499 05 FILLER AT 3, 50
500 VALUE "Component count" .
501 05 DESC-COMPONENT-COUNT-DIS AT 3, 67
502 PIC 9(4)
503 FROM DESC-COMPONENT-COUNT
504 UNDERLINE .
505 05 FILLER AT 4, 6
506 VALUE "Item sent by:" .
507 05 SENDER-NAME-DISPLAY AT 5, 6
508 PIC X(70)
509 FROM AG-LNK-SENDER-NAME
510 UNDERLINE .
511 05 FILLER AT 6, 6
512 VALUE "Item sent on" .
513 05 SENT-MONTH-DISPLAY AT 6, 20
514 PIC 99
515 FROM SENT-MONTH
516 UNDERLINE .
517 05 FILLER AT 6, 23
518 VALUE "/" .
519 05 SENT-DAY-DISPLAY AT 6, 25
520 PIC 99
521 FROM SENT-DAY
522 UNDERLINE .
523 05 FILLER AT 6, 28
524 VALUE "/" .
525 05 SENT-YEAR-DISPLAY AT 6, 30
526 PIC 9999
527 FROM SENT-YEAR
528 UNDERLINE .
529 05 FILLER AT 6, 36
530 VALUE "at" .
531 05 SENT-HOUR-DISPLAY AT 6, 40
532 PIC 99
533 FROM SENT-HOUR
534 UNDERLINE .
535 05 FILLER AT 6, 43
536 VALUE ":" .
537 05 SENT-MINUTES-DISPLAY AT 6, 45
538 PIC 99
539 FROM SENT-MINUTES
540 UNDERLINE .