TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
9–44 069138, Update 1 to 040970 Tandem Computers Incorporated
425
426 01 base-screen SIZE 24, 80 .
427 05 FILLER AT 1, 28
428 REVERSE
429 VALUE "E L E C - M A I L CLIENT ".
430 05 overlay-area AREA AT 3, 1 SIZE 20, 80.
431 05 msg AT 23, 2
432 PIC X(25)
433 BLINK
434 FROM ws-msg.
435 05 error-line AT 24, 2
436 PIC X(78)
437 ADVISORY, REVERSE, DIM
438 FROM ws-error.
439
440 *********************************************************************
441 * LOGON SCREEN OVERLAY. *
442 *********************************************************************
443
444 01 logon-screen OVERLAY SIZE 20, 80.
445 05 FILLER AT 1, 31
446 VALUE "-- LOGON SCREEN --" .
447 05 FILLER AT 5, 2
448 VALUE "Please enter Name and Password:" .
449 05 FILLER AT 8, 2
450 VALUE "Name:".
451 05 name-in AT 8, 9
452 PIC X(32)
453 LENGTH MUST BE 1 THRU 32
454 REVERSE, DIM
455 TO uow-ss-corr-name .
456 05 FILLER AT 10, 2
457 VALUE "Password:" .
458 05 password-in AT 10, 13
459 PIC X(16)
460 HIDDEN, REVERSE, DIM
461 TO uow-ss-password .
462 05 FILLER AT 20, 2
463 VALUE "F1 = Logon SF16 = Exit" .
464
465 *********************************************************************
466 * FUNCTION MENU SCREEN OVERLAY. *
467 *********************************************************************
468
469 01 select-function OVERLAY SIZE 20, 80 .
470 05 FILLER AT 1, 31
471 VALUE "-- FUNCTION MENU --" .
472 05 FILLER AT 4, 2
473 VALUE "Select the operation you wish to perform:" .
474 05 FILLER AT 6, 8
475 VALUE "F3 -- Read Mail" .
476 05 FILLER AT 7, 8
477 VALUE "F5 -- Send Mail" .
478 05 FILLER AT 8, 8
479 VALUE "F16 -- Logoff and Return" .
480 05 FILLER AT 9, 8
481 VALUE "SF16 -- Logoff and Exit" .
482 /
483 *********************************************************************
484 * MAIL POSTING SCREEN OVERLAY. *
485 *********************************************************************
486
487 01 mail-posting OVERLAY SIZE 20, 80 .
488 05 FILLER AT 1, 28
489 VALUE "-- MAIL POSTING SCREEN --" .
490 05 FILLER AT 4, 1
491 VALUE "To:" .
492 05 send-to-in AT 4, 11
493 PIC X(32)