CROSSREF Manual

COBOL 74
Sample Listing
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 WATCH
148 UNTIL SYS-MSG-STOP
149 OR SYS-MSG-ABEND
150 ELSE
151 PERFORM DISPLAY-STARTUP-FAILURE
152 .
153
154 STOP RUN.
156
158 DISPLAY-STARTUP-FAILURE.
159 IF SU-ERROR = 1
160 DISPLAY FUP-FAILED
161 " -- REQUIRED PARAMETER MISSING OR ILLEGAL"
162 ELSE IF SU-ERROR = 2
163 DISPLAY FUP-FAILED
164 " -- ILLEGAL PROGRAM FILE NAME ("
165 FUP ")"
166 ELSE IF SU-ERROR = 3
167 DISPLAY FUP-FAILED
168 " -- INFILE, OUTFILE, OR DEFAULT VOLUME"
169 DISPLAY " NAME CANNOT BE CONVERTED TO NETWORK FORM"
170 ELSE IF SU-ERROR < 256
171 DISPLAY FUP-FAILED
172 " -- File management error #"
173 SU-ERROR
174 ELSE
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
Figure 6-1. COBOL 74 Sample Program (Page 3 of 4)
6-7