TRANSFER Programming Manual

Sample Client Code
Designing and Writing a Client
9–28 069138, Update 1 to 040970 Tandem Computers Incorporated
PATHWAY SCREEN COBOL - T9153C11 - (27MAR89) SOURCE LANGUAGE: SCOBOL TARGET MACHINE: TCP/INTERP
COMPILED: 13 NOV 90 16:16:16 OPTIONS: ON - (LIST,WARN) OFF - (MAP,SYMBOLS,CROSSREF)
1 ?symbols
2
3 IDENTIFICATION DIVISION.
4
5 PROGRAM-ID. SAMPLE-CLIENT.
6
7 AUTHOR. TANDEM
8
9 INSTALLATION.
10
11 DATE-COMPILED. 90/11/13 - 16:16:24.
13 *********************************************************************
14 * This program is a sample mail client that *
15 * illustrates a basic interface to the TRANSFER delivery system. *
19 * *
20 * This client assumes that: *
21 * *
22 * 1. The correspondent name entered on the Logon screen *
23 * must have been registered through the ADMIN function. *
24 * *
25 * 2. The standard INBOX is the O N L Y folder used. *
26 * *
27 * This example allows the submission, retrieval, and *
28 * deletion of packages submitted to TRANSFER. Where *
29 * possible, the conventions established by Tandem mail *
30 * clients for REC-TYPE and other values are followed; this *
31 * should allow Tandem mail clients to handle packages *
32 * created by this sample client. *
33 * *
34 * A base screen is used to display program-wide data *
35 * such as headings and error displays. The individual *
36 * functions are implemented with overlay screens. This *
37 * decreases the amount of data sent to the terminal. *
38 * *
39 * The subject and text lines are written out as individual *
40 * item records. This technique would allow an open-ended *
41 * type of application (where the total number of records is *
42 * unknown). *
43 *********************************************************************
44
45 ENVIRONMENT DIVISION.
46 CONFIGURATION SECTION.
47 SOURCE-COMPUTER. T16.
48 OBJECT-COMPUTER. T16,
49 TERMINAL IS T16-6520.
50
51 SPECIAL-NAMES.
52
53 *********************************************************************
54 * TERMINAL FUNCTION-KEY DEFINITIONS. *
55 *********************************************************************
56
57 logon-key IS F1, f1 is F1
58 f2 IS F2,
59 read-mail IS F3, f3 IS F3
60 discard-mail IS F4, f4 IS F4
61 compose-mail IS F5, f5 IS F5
62 post-mail IS F6, f6 IS F6
63 return-key IS F16, f16 IS F16
64 logoff-key IS SF16, sf16 IS SF16
65
66 *********************************************************************
67 * DISPLAY ATTRIBUTE DEFINITIONS. *
68 *********************************************************************