Manualshelf

Data Build Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series
131132133134135136137138139140
Enscribe Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–7
200 DISPLAY "RUN: FILE NOT FOUND - =DATAOT01 - Proceeding..."
201 DISPLAY "RUN: FILE NOT FOUND - =DATAOT01 - Proceeding..." UPON LOG
202 GO TO PROC-DEMO01-EXIT.
203 DISPLAY "RUN:".
204 DISPLAY "RUN:" UPON LOG.
205 DISPLAY "RUN: Start -> DEMO01".
206 DISPLAY "RUN: Start -> DEMO01" UPON LOG.
207 OPEN INPUT F-IN-DEMO01 OUTPUT F-OUT-DEMO01.
208 PROC-DEMO01-GO.
209 READ F-IN-DEMO01 AT END GO TO PROC-DEMO01-END.
210 ADD 1 TO CTR-IN.
211 MOVE SPACES TO OUT-DEMO01.
212 PERFORM P-IN-DEMO01 THRU P-IN-DEMO01-EXIT.
213 GO TO PROC-DEMO01-GO.
214 PROC-DEMO01-END.
215 CLOSE F-IN-DEMO01 F-OUT-DEMO01.
216 DISPLAY "RUN: DEMO01: IN = " CTR-IN.
217 DISPLAY "RUN: DEMO01: IN = " CTR-IN UPON LOG.
218 DISPLAY "RUN: DEMO01: OUT = " CTR-OUT.
219 DISPLAY "RUN: DEMO01: OUT = " CTR-OUT UPON LOG.
220 IF CTR-OTHER NOT = ZERO
221 DISPLAY "RUN: DEMO01: ??? = " CTR-OTHER
222 DISPLAY "RUN: DEMO01: ??? = " CTR-OTHER UPON LOG.
223 PROC-DEMO01-EXIT. EXIT.
224 *
225 PROC-DEMO02.
226 MOVE SAVE-WK-STOR TO WK-STOR.
227 MOVE "DEMO02" TO WK-FNAME.
228 MOVE "=DATAIN02" TO WK-DEFINE.
229 ENTER TAL "FIND^FILE" USING WK-DEFINE ERR.
230 IF ERR NOT = ZERO
231 DISPLAY "RUN: FILE NOT FOUND - =DATAIN02 - Proceeding..."
232 DISPLAY "RUN: FILE NOT FOUND - =DATAIN02 - Proceeding..." UPON LOG
233 GO TO PROC-DEMO02-EXIT.
234 MOVE "=DATAOT02" TO WK-DEFINE.
235 ENTER TAL "FIND^FILE" USING WK-DEFINE ERR.
236 IF ERR NOT = ZERO
237 DISPLAY "RUN: FILE NOT FOUND - =DATAOT02 - Proceeding..."
238 DISPLAY "RUN: FILE NOT FOUND - =DATAOT02 - Proceeding..." UPON LOG
239 GO TO PROC-DEMO02-EXIT.
240 DISPLAY "RUN:".
241 DISPLAY "RUN:" UPON LOG.
242 DISPLAY "RUN: Start -> DEMO02".
243 DISPLAY "RUN: Start -> DEMO02" UPON LOG.
244 OPEN INPUT F-IN-DEMO02 OUTPUT F-OUT-DEMO02.
245 PROC-DEMO02-GO.
246 READ F-IN-DEMO02 AT END GO TO PROC-DEMO02-END.
247 ADD 1 TO CTR-IN.
248 MOVE SPACES TO OUT-DEMO02.
249 PERFORM P-IN-DEMO02 THRU P-IN-DEMO02-EXIT.
250 GO TO PROC-DEMO02-GO.
251 PROC-DEMO02-END.
252 CLOSE F-IN-DEMO02 F-OUT-DEMO02.
253 DISPLAY "RUN: DEMO02: IN = " CTR-IN.
254 DISPLAY "RUN: DEMO02: IN = " CTR-IN UPON LOG.
255 DISPLAY "RUN: DEMO02: OUT = " CTR-OUT.