Manualshelf

Data Build Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series
141142143144145146147148149150
Enscribe Conversion Program
Sample Conversion Programs
B–8 099331 Tandem Computers Incorporated
256 DISPLAY "RUN: DEMO02: OUT = " CTR-OUT UPON LOG.
257 IF CTR-OTHER NOT = ZERO
258 DISPLAY "RUN: DEMO02: ??? = " CTR-OTHER
259 DISPLAY "RUN: DEMO02: ??? = " CTR-OTHER UPON LOG.
260 PROC-DEMO02-EXIT. EXIT.
261 *
262 PROC-DEMO03.
263 MOVE SAVE-WK-STOR TO WK-STOR.
264 MOVE "DEMO03" TO WK-FNAME.
265 MOVE "=DATAIN03" TO WK-DEFINE.
266 ENTER TAL "FIND^FILE" USING WK-DEFINE ERR.
267 IF ERR NOT = ZERO
268 DISPLAY "RUN: FILE NOT FOUND - =DATAIN03 - Proceeding..."
269 DISPLAY "RUN: FILE NOT FOUND - =DATAIN03 - Proceeding..." UPON LOG
270 GO TO PROC-DEMO03-EXIT.
271 MOVE "=DATAOT03" TO WK-DEFINE.
272 ENTER TAL "FIND^FILE" USING WK-DEFINE ERR.
273 IF ERR NOT = ZERO
274 DISPLAY "RUN: FILE NOT FOUND - =DATAOT03 - Proceeding..."
275 DISPLAY "RUN: FILE NOT FOUND - =DATAOT03 - Proceeding..." UPON LOG
276 GO TO PROC-DEMO03-EXIT.
277 DISPLAY "RUN:".
278 DISPLAY "RUN:" UPON LOG.
279 DISPLAY "RUN: Start -> DEMO03".
280 DISPLAY "RUN: Start -> DEMO03" UPON LOG.
281 OPEN INPUT F-IN-DEMO03 OUTPUT F-OUT-DEMO03.
282 PROC-DEMO03-GO.
283 READ F-IN-DEMO03 AT END GO TO PROC-DEMO03-END.
284 ADD 1 TO CTR-IN.
285 MOVE SPACES TO OUT-DEMO03.
286 PERFORM P-IN-DEMO03 THRU P-IN-DEMO03-EXIT.
287 GO TO PROC-DEMO03-GO.
288 PROC-DEMO03-END.
289 CLOSE F-IN-DEMO03 F-OUT-DEMO03.
290 DISPLAY "RUN: DEMO03: IN = " CTR-IN.
291 DISPLAY "RUN: DEMO03: IN = " CTR-IN UPON LOG.
292 DISPLAY "RUN: DEMO03: OUT = " CTR-OUT.
293 DISPLAY "RUN: DEMO03: OUT = " CTR-OUT UPON LOG.
294 IF CTR-OTHER NOT = ZERO
295 DISPLAY "RUN: DEMO03: ??? = " CTR-OTHER
296 DISPLAY "RUN: DEMO03: ??? = " CTR-OTHER UPON LOG.
297 PROC-DEMO03-EXIT. EXIT.
298 *
299 ?SOURCE PROCLIB (P-IN-DEMO01)
1 ?SECTION P-IN-DEMO01
2 * * * * * * * * IN-DEMO01 * * * * * * * *
3 P-IN-DEMO01.
4 MOVE LOW-VALUES TO WK-NULLINDS.
5 MOVE ZERO TO SUB1.
6 * COPY U-IN-DEMO01 OF USERLIB.
6 <
7 P-IN-DEMO01-0001.
8 * COPY U-IN-DEMO01-DEM1-STATE OF USERLIB.
8 <
9 ENTER "CONVERT" USING DEM1-STATE OF IN-DEMO01.
10 MOVE DEM1-STATE OF IN-DEMO01