GDSX (Extended General Device Support) Manual

Using Pseudo Procedures in a TS/MP Environment
Extended General Device Support (GDSX) Manual—529931-001
D-13
WRITER Listing
79 Move "Initialization" to Ws-Send-Text.
80 *
81 100-IDS-Loop.
82 Move Zero to Ws-Send-Reply-Code.
83
84 Send Message Send-Msg
85 Reply Code 0 Yields Rcvd-Msg
86 On Error Perform 300-Send-Msg-Error.
87 *
88 If Ws-Rcvd-Function-Code = "d" or
89 Ws-Rcvd-Function-Code = "D"
90 Perform 150-Send-to-Delete-Server
91 Else
92 If Ws-Rcvd-Function-Code = "w" or
93 Ws-Rcvd-Function-Code = "W"
94 Perform 200-Send-to-Write-Server.
95 *
96 150-Send-to-Delete-Server.
97 Move "YES" to SERV-OK.
98 Begin-Transaction.
99
100 Send Ws-Rcvd to "Deleter"
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 *