CROSSREF Manual

COBOL85
Sample Listing
122 OPEN INPUT MESSAGE-IN-FILE
123 MOVE ZERO TO SU-ERROR
124 SYS-MSG-CODE
125
127 * Inject INFO command into STARTUP message to pass to FUP
128 ENTER "PUTSTARTUPTEXT"
129 USING STRING-PORTION,
130 INFO-COMMAND,
131 NULL-CPLIST
132 GIVING STARTUP-RESULT
133
134 * Start FUP
135 ENTER "CREATEPROCESS"
136 USING FUP,
137 FUP-NAME,
138 SEND-ALL-MSGS,
139 PRIORITY-EQ-MINE,
140 PROCESSOR-EQ-MINE,
141 MEMORY-AS-USUAL,
142 OMITTED
143 GIVING SU-ERROR
144
145 * Await termination of FUP, or report it never started
146 IF SU-ERROR = 0
147 PERFORM UNTIL SYS-MSG-STOP OR SYS-MSG-ABEND
150 READ MESSAGE-IN-FILE
150.1 PERFORM CAPTURE-CPU-PIN
150.2 DISPLAY "-----"
150.3 "(" NUMERIC-CPU "," NUMERIC-PIN ")"
150.4 "-----"
150.5 SYS-MSG-CODE
150.51 END-PERFORM
150.6 ELSE
151 PERFORM DISPLAY-STARTUP-FAILURE
152 END-IF
153
154 STOP RUN
155 .
156
158 DISPLAY-STARTUP-FAILURE.
159 EVALUATE SU-ERROR
159.1 WHEN 1
160 DISPLAY FUP-FAILED
161 " -- REQUIRED PARAMETER MISSING OR ILLEGAL"
162 WHEN 2
163 DISPLAY FUP-FAILED
164 " -- ILLEGAL PROGRAM FILE NAME ("
165 FUP ")"
166 WHEN 3
167 DISPLAY FUP-FAILED
168 " -- INFILE, OUTFILE, OR DEFAULT VOLUME"
169 DISPLAY " NAME CANNOT BE CONVERTED TO NETWORK FORM"
170 WHEN 4 THRU 255
171 DISPLAY FUP-FAILED
172 " -- File management error #"
173 SU-ERROR
Figure 7-1. COBOL85 Sample Program (Page 3 of 4)
7-7