CROSSREF Manual

COBOL85
Sample Listing
174 WHEN OTHER
175 * -- Received raw error from NEWPROCESS system procedure.
176 * -- Decompose it into left byte and right byte values.
177 DIVIDE SU-ERROR
178 BY 256
179 GIVING NEWPROCESS-ERR-LEFT
180 REMAINDER NEWPROCESS-ERR-RIGHT
180.1
181 DISPLAY FUP-FAILED
182 " -- NEWPROCESS error #"
183 SU-ERROR
184 " = ("
185 NEWPROCESS-ERR-LEFT
186 ","
187 NEWPROCESS-ERR-RIGHT
188 ")"
189 END-EVALUATE
190 .
191
200 CAPTURE-CPU-PIN.
201 MOVE CPU-PART TO CPU-LOW-BYTE
202 MOVE LOW-VALUES TO CPU-HIGH-BYTE
203 MOVE PIN-PART TO PIN-LOW-BYTE
204 MOVE LOW-VALUES TO PIN-HIGH-BYTE
205 .
Figure 7-1. COBOL85 Sample Program (Page 4 of 4)
7-8