GDSX (Extended General Device Support) Manual

Using Pseudo Procedures in a TS/MP Environment
Extended General Device Support (GDSX) Manual—529931-001
D-15
WRITER Listing
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.
124
********************************************************************************
125 * M A I N - L O G I C
*
126
********************************************************************************
127
128 Main Section.
129 Begin-Cobol-Server.
130 * Initialization of server
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 Msg (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 EOF of $Receive goto 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.
159 *
160 *
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