GDSX Manual

Using Pseudo Procedures in a NonStop TS/MP
Environment
Extended General Device Support (GDSX) Manual–134303
D-13
WRITER Listing
101 Reply Code 0 Yields Ws-Send
102 On Error Perform 400-Send-Server-Error.
103
104 If Serv-Ok = "YES"
105 End-Transaction.
106 *
107 200-Send-to-Write-Server.
108 Move "YES" to SERV-OK.
109 Begin-Transaction.
110
111 Send Ws-Rcvd to "Writer"
112 Reply Code 0 Yields Ws-Send
113 On Error Perform 400-Send-Server-Error.
114
115 If Serv-Ok = "YES"
116 End-Transaction.
117 *
118 400-Send-Server-Error.
119 Abort-Transaction.
120 Move "NO" to SERV-OK.
121 *
122 300-Send-Msg-Error.
123 Exit Program.
124 *
125 999-Exit-Program.
126 Exit Program.
127 *
128
***Eof**************************************************************************
WRITER Listing
5 Identification Division.
7 Program-Id. Writer
12
13 Environment Division.
14
15 Configuration Section.
16 Source-Computer. Tandem/16.
17 Object-Computer. Tandem/16.
18 Special-Names.
19 Myterm is Tout.
20
21 Input-Output Section.
22 File-Control.
23 *
24 Select Message-In Assign to $Receive
25 File Status is Receive-File-Status.
26 *
27 Select Message-Out Assign to $Receive
28 File Status is Receive-File-Status.
29 *
30 Select Tstdat Assign to File1
31 Organization is Indexed
32 Access Mode is Dynamic
33 Record Key is Tstdat-Key
34 File Status is File-Stat.
35
36 *
37 Receive-Control.
38 Table occurs 3 Times
39 Syncdepth limit is 1
40 Reply contains 64 Characters.
41
42 Data Division.
43
44 File Section.
45
46 FD Message-In
47 Label Records are omitted
48 Record contains 1 to 64 Characters.