TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
069138, Update 1 to 040970 Tandem Computers Incorporated 9–45
494 LENGTH MUST BE 1 THRU 32
495 REVERSE, DIM
496 TO uow-ar-recip-name .
497 05 FILLER AT 6, 1
498 VALUE "Subject:" .
499 05 subject-in AT 6, 11
500 PIC X(40)
501 OCCURS ON 1 LINES DEPENDING ON add-subject-count
502 REVERSE, DIM
503 TO asu-client-data .
504 05 FILLER AT 9, 1
505 VALUE "Text" .
506 05 line-in AT 11, 2
507 PIC X(78)
508 OCCURS ON 5 LINES DEPENDING ON add-text-array-count
509 REVERSE, DIM
510 TO atx-client-data .
511 05 FILLER AT 20, 1
512 VALUE "F6 -- Send" .
513 05 FILLER AT 20, 15
514 VALUE "F16 -- Quit and Return SF16 -- Logoff" .
515 /
516 *********************************************************************
517 * MAIL DISPLAY SCREEN OVERLAY. *
518 *********************************************************************
519
520 01 read-mail-screen OVERLAY SIZE 20, 80 .
521 05 FILLER AT 1, 28
522 VALUE "-- MAIL DISPLAY SCREEN --" .
523 05 FILLER AT 3, 1
524 VALUE "Sent:"
525 DIM.
526 05 month-out AT 3, 8
527 PIC 99
528 FROM rsp-gid-month OF rsp-gid-submitted-date.
529 05 FILLER AT 3, 11
530 VALUE "/" .
531 05 day-out AT 3, 13
532 PIC 99
533 FROM rsp-gid-day-of-month OF rsp-gid-submitted-date.
534 05 FILLER AT 3, 16
535 VALUE "/" .
536 05 year-out AT 3, 18
537 PIC 9(4)
538 FROM rsp-gid-year OF rsp-gid-submitted-date.
539 05 hour-out AT 3, 24
540 PIC 99
541 FROM rsp-gid-hour OF rsp-gid-submitted-date.
542 05 FILLER AT 3, 27
543 VALUE ":" .
544 05 min-out AT 3, 29
545 PIC 99
546 FROM rsp-gid-minute OF rsp-gid-submitted-date.
547 05 FILLER AT 4, 1
548 VALUE "From:"
549 DIM.
550 05 from-out AT 4, 8
551 PIC X(32)
552 FROM rsp-gid-creator-name .
553 05 FILLER AT 5, 3
554 VALUE "To:"
555 DIM.
556 05 to-out AT 5, 8
557 PIC X(70)
558 FROM grt-data-string .
559 05 FILLER AT 6, 1
560 VALUE "Subj:"
561 DIM.
562 05 subject-out AT 6, 8