TRANSFER Programming Manual

Agent Tester Program Code
A Sample TRANSFER Program
11–20 40970 Tandem Computers Incorporated
403 FROM SCRN-MESSAGE
404 UNDERLINE
405 ADVISORY
406 UPSHIFT INPUT-OUTPUT .
407 *=============================================================================
408
409 01 OVERLAY1 OVERLAY SIZE 18, 80 .
410 05 FILLER AT 4, 4
411 VALUE "Enter the name of the correspondent you want to test:" .
412 05 CORRESPONDENT-NAME-INPUT AT 6, 4
413 PIC X(70)
414 FILL " "
415 TO CORRESPONDENT-NAME-VALUE
416 FROM CORRESPONDENT-NAME-VALUE
417 UNDERLINE
418 UPSHIFT INPUT-OUTPUT .
419 05 FILLER AT 9, 4
420 VALUE "Enter the password:" .
421 05 PASSWORD-INPUT AT 11, 4
422 PIC X(16)
423 FILL " "
424 TO PASSWORD-VALUE
425 UNDERLINE
426 HIDDEN .
427 05 FILLER AT 14, 16
428 VALUE "Press F1 to enter data" .
429 05 FILLER AT 15, 25
430 VALUE "SF16 to exit" .
431
432
433 * ===========================================================================
434
435 01 OVERLAY2 OVERLAY SIZE 18, 80 .
436 05 FILLER AT 1, 10
437 VALUE "S C A N F O L D E R S E L E C T I O N C R I T E R I A" .
438 05 FILLER AT 3, 3
439 VALUE "You are now using a session for the following correspondent:" .
440 05 CORRESPONDENT-NAME-DISPLAY AT 5, 3
441 PIC X(70)
442 FILL " "
443 FROM CORRESPONDENT-NAME-VALUE
444 UNDERLINE
445 UPSHIFT INPUT-OUTPUT .
446 05 FILLER AT 7, 2
447 VALUE "Enter selection criteria for scanning this correspondent's INBOX:".
448 05 FILLER AT 9, 5
449 VALUE "Filter by item type (Y or N):" .
450 05 ITEM-FILTER-DISPLAY AT 9, 36
451 PIC A
452 VALUE "N"
453 TO ITEM-FILTER-FLAG
454 UNDERLINE
455 UPSHIFT INPUT-OUTPUT .
456 05 FILLER AT 9, 40
457 VALUE "Item type to filter by:" .
458 05 ITEM-TYPE-DISPLAY AT 9, 65
459 PIC 9999
460 VALUE "0000"
461 TO ITEM-TYPE-FILTER-VALUE
462 UNDERLINE .
463 05 FILLER AT 11, 12
464 VALUE "Note: Item type codes for mail clients are:" .
465 05 FILLER AT 13, 12
466 VALUE "Original package = 109" .
467 05 FILLER AT 13, 38
468 VALUE "Reply package" .
469 05 FILLER AT 13, 60
470 VALUE "= 110" .
471 05 FILLER AT 14, 12