GDSX (Extended General Device Support) Manual

Using Pseudo Procedures in a TS/MP Environment
Extended General Device Support (GDSX) Manual—529931-001
D-17
DELETER Listing
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.
49
50 01 In-Message.
51 05 In-Message-Reply-Code Pic 9(04) Comp.
52 05 In-Message-Function-Code Pic X(01).
53 05 In-Message-Key.
54 10 In-Message-Loop Pic 9(03).
55 10 In-Message-Key-1 Pic X(08).
56 05 In-Message-Text Pic X(50).
58
59 FD Message-Out
60 Label Records are omitted
61 Record contains 1 to 64 Characters.
62
63 01 Out-Message.
64 05 Out-Message-Reply-Code Pic 9(04) Comp.
65 05 Out-Message-Function-Code Pic X(01).
66 05 Out-Message-Key.
67 10 Out-Message-Loop Pic 9(03).
68 10 Out-Message-Key-1 Pic X(08).
69 05 Out-Message-Text Pic X(50).
70
71 FD Tstdat
72 Label Records are omitted.
73
74 01 Tstdat-Rec.
75 05 Tstdat-Key.
76 10 Tstdat-Key-1 Pic X(08).
77 10 Tstdat-Loop Pic 9(03).
78 05 Tstdat-Text Pic X(50).
79
80
81 Working-Storage Section.
82
83 01 Misc-Data.
84 05 Ok-Message.
85 10 Filler Pic X(05) Value Spaces.
86 10 Ok-Nmbr Pic 9(03).
87 10 Filler Pic X(42)
88 Value " recs deleted ".
89 05 I Pic S9(04) Comp.
90 05 File-Stat Pic X(02).
91 05 File-Stat-N Redefines File-Stat Pic 9(02).
92 88 No-Error Value Zero.
93 88 File-Error Values 01 Thru 99.
94 88 End-of-file Value 10.
95 88 Already-Exists Value 22.
96 88 Not-Found Value 23.
97 88 Dataset-Full Value 24.
98 05 Receive-File-Status.
99 10 Stat-1 Pic 9(01) Value Zero.
100 88 Close-From-Requester Value 1.
101 10 Stat-2 Pic 9(01) Value Zero.
103
104
********************************************************************************
105 Procedure Division.
106
********************************************************************************
107 Declaratives.
108
109 Ua-Message-In Section.
110 Use after Error Procedure on Message-In.
111 Ua-Message-In-Proc.
112 If Receive-File-Status Not = "10"
113 Display "Mirror " " Error in Message-In file "