GDSX Manual

Using Pseudo Procedures in a NonStop TS/MP
Environment
Extended General Device Support (GDSX) Manual–134303
D-17
DELETER Listing
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 "
114 " Stat-1 = " Stat-1 " Stat-2 = " Stat-2
Upon Tout.
115
116 Ua-Message-Out Section.
117 Use after Error Procedure on Message-Out.
118 Ua-Message-Out-Proc.
119 If Receive-File-Status Not = "10"
120 Display "Mirror " " Error in Message-Out file "
121 " Stat-1 = " Stat-1 " Stat-2 = " Stat-2
Upon Tout.
122 End Declaratives.
123
124
********************************************************************************
125 * M A I N - L O G I C
*
126
********************************************************************************
127
128 Main Section.
129 Begin-Cobol-Server.
130 * Initialization of server