GDSX (Extended General Device Support) Manual

Using Pseudo Procedures in a TS/MP Environment
Extended General Device Support (GDSX) Manual—529931-001
D-16
DELETER Listing
169 Move In-Message-Loop to Ok-Nmbr.
170
171 Perform E-Write 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-Write.
180 Move I to Tstdat-Loop.
181 Write Tstdat-Rec.
182 If File-Error
183 If Already-Exists
184 Read Tstdat with Lock
185 If File-Error
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 Rewrite Tstdat-Rec With Unlock
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 rewriting tstdat" to Out-Message-Text
197 Else
198 Next Sentence
199 Else
200 Move I to Ok-Nmbr
201 Move 9999 to I
202 Move File-Stat-N to Out-Message-Loop
203 Move "Error writing tstdat" to Out-Message-Text.
204 *
205
***Eof**************************************************************************
DELETER Listing
5 Identification Division.
7 Program-Id. Deleter.
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