CROSSREF Manual

COBOL 74
Sample Listing
181 DISPLAY FUP-FAILED
182 " -- NEWPROCESS error #"
183 SU-ERROR
184 " = ("
185 NEWPROCESS-ERR-LEFT
186 ","
187 NEWPROCESS-ERR-RIGHT
188 ")"
189 .
191
192 WATCH.
193 READ MESSAGE-IN-FILE.
194 PERFORM CAPTURE-CPU-PIN.
195 DISPLAY "-----"
196 "(" NUMERIC-CPU "," NUMERIC-PIN ")"
197 "-----"
198 SYS-MSG-CODE.
199
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.
Figure 6-1. COBOL 74 Sample Program (Page 4 of 4)
6-8