GDSX Manual

Using Pseudo Procedures in a NonStop TS/MP
Environment
Extended General Device Support (GDSX) Manual–134303
D-18
DELETER Listing
131 Perform A-Init.
132
133 Perform B-Trans until Close-From-Requester.
134 Perform C-Eoj.
135 Stop Run.
136
137
138 A-Init.
139 Open Input Message-In.
140 Open Output Message-Out Syncdepth 1.
141 Open I-O TstDat.
142 *
143 B-Trans.
144 * Initialization
145 * - of longest message (In-Message)
146 * - of longest reply (Out-Message)
147 Move Space to In-Message, Out-Message.
148
149 * Read Request from $RECEIVE
150 Read Message-In.
151 * If not end-of-file of $RECEIVE, go to D-Process-Message
152 If Not Close-From-Requester
153 Perform D-Process-Message.
154 *
155 C-Eoj.
156 Close Message-In,
157 Message-Out,
158 TstDat.
161 D-Process-Message.
162 Move 1 to I.
163 Move In-Message to Out-Message.
164 Move Zeroes to Out-Message-Reply-Code.
165
166 Move In-Message-Key-1 to Tstdat-Key-1.
167 Move In-Message-Text to Tstdat-Text.
168
169 Move In-Message-Loop to Ok-Nmbr.
170
171 Perform E-Delete Varying I From 1 by 1 Until I > In-Message-Loop.
172
173 If I < 9999
174 Move Ok-Message to Out-Message-Text.
175
176 Write Out-Message.
177
178
179 E-Delete.
180 Move I to Tstdat-Loop.
181 Read Tstdat With Lock.
182 If File-Error
183 If Not-Found
184 Next Sentence
185 Else
186 Move I to Ok-Nmbr
187 Move 9999 to I
188 Move File-Stat-N to Out-Message-Loop
189 Move "Error reading tstdat" to Out-Message-Text
190 Else
191 Delete Tstdat
192 If File-Error
193 Move I to Ok-Nmbr
194 Move 9999 to I
195 Move File-Stat-N to Out-Message-Loop
196 Move "Error deleting tstdat" to Out-Message-Text.
197 *
198
***Eof**************************************************************************