SQL Programming Manual for TAL

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
B-21
Date-Time Program
Page 7 [1] $VOL1.S04.TALDT 1991-10-15 13:41:07
322. 000104 1 1 BEGIN
323. 000104 1 2 SBUF ':=' "PROJECT NAME: "->@BUF^END;
324. 000115 1 2 BUF^END ':=' NEW^PROJECTS^REC.PROJECT^NAME FOR 10
->@BUF^END;
325. 000123 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF);
326. 000135 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,0);
327. 000145 1 2
328. 000145 1 2 SBUF ':=' "START DATE: "->@BUF^END;
329. 000156 1 2 BUF^END ':=' NEW^PROJECTS^REC.START^DATE FOR 16
->@BUF^END;
330. 000165 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF);
331. 000177 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,0);
332. 000224 1 2
333. 000224 1 2 SBUF ':=' "END DATE: "->@BUF^END;
334. 000235 1 2 BUF^END ':=' NEW^PROJECTS^REC.END^DATE FOR 16
->@BUF^END;
335. 000244 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF);
336. 000256 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,0);
337. 000266 1 2
338. 000266 1 2 SBUF ':=' "WAIT TIME: "->@BUF^END;
339. 000301 1 2 BUF^END ':=' NEW^PROJECTS^REC.WAIT^TIME FOR 3
->@BUF^END;
340. 000310 1 2 BUF^END ':=' " ";
341. 000320 1 2 BUF^END ':=' "DAYS";
342. 000330 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF);
343. 000342 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,0);
344. 000352 1 2
345. 000352 1 2 END;
346. 000352 1 1 END; -- fetch^and^display^new
347. 000000 0 0
348. 000000 0 0
349. 000000 0 0 -- Re-enable NOT FOUND checking:
350. 000000 0 0 EXEC SQL
351. 000000 0 0 WHENEVER NOT FOUND CALL :NOT^FOUND;
352. 000000 0 0
353. 000000 0 0 PROC TERMINATE^PROG;
354. 000000 1 0 BEGIN;
355. 000001 1 1 SBUF ':=' "TERMINATING PROJECTS UPDATE PROGRAM "
->@BUF^END;
356. 000012 1 1 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF);
357. 000024 1 1 CALL STOP;
358. 000031 1 1 END;
359. 000000 0 0
360. 000000 0 0
361. 000000 0 0 PROC DRIVER MAIN;
362. 000000 1 0
363. 000000 1 0 BEGIN
364. 000000 1 1 --Read the system startup message:
365. 000000 1 1 CALL INITIALIZER;
366. 000006 1 1
367. 000006 1 1 -- Open the terminal for I/O:
368. 000006 1 1 CALL MYTERM(HOME^TERM);
369. 000011 1 1 CALL OPEN(HOME^TERM, HOME^TERM^NUM);
370. 000021 1 1
371. 000021 1 1 SBUF ':=' "START PROJECTS UPDATE PROGRAM "->@BUF^END;
372. 000032 1 1 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF);
373. 000044 1 1
374. 000044 1 1 -- Blank out fields in USER^PROJECTS^REC:
375. 000044 1 1 USER^PROJECTS^REC.PROJECT^NAME ':='
376. 000044 1 1 [ $OCCURS(USER^PROJECTS^REC.PROJECT^NAME) * [" "] ];
377. 000055 1 1 USER^PROJECTS^REC.START^DATE ':='
378. 000055 1 1 [ $OCCURS(USER^PROJECTS^REC.START^DATE) * [" "] ];