SQL Programming Manual for Pascal

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for Pascal—528614-001
B-9
Date-Time Program
Sample code for the date-time program follows.
Tandem Pascal (T9256C30 01DEC90)
COPYRIGHT TANDEM COMPUTERS INCORPORATED 1986,1987,1988,1989
1 0 ?SQL NOWHENEVERLIST
2 0 ?SYMBOLS
3 0
4 0 PROGRAM DTPASC (input, output);
5 0
6 0 IMPORT BEGIN
7 0 ?SOURCE $system.system.pextdecs, nolist
...
8 0 ?SOURCE $system.system.pasext, nolist
...
9 0 END;
10 0
11 0 { Forward declarations for readability: }
12 0 PROCEDURE FETCH_AND_DISPLAY_OLD; FORWARD;
13 0 PROCEDURE FETCH_AND_DISPLAY_NEW; FORWARD;
14 0
15 0 { Forward declarations for SQL error handling: }
16 0 PROCEDURE NOT_FOUND; FORWARD;
17 0 PROCEDURE SQLERROR; FORWARD;
18 0
19 0 { SQL error handling: }
20 0 EXEC SQL
21 0 WHENEVER NOT FOUND CALL :NOT_FOUND;
22 0
23 0 { Treat warnings the same as errors for simplicity }
24 0 EXEC SQL
25 0 WHENEVER SQLWARNING CALL :SQLERROR;
26 0
27 0 EXEC SQL
28 0 WHENEVER SQLERROR CALL :SQLERROR;
29 0
30 0
Figure B-1. Date-Time Program Run (page 3 of 3)
PLEASE ENTER:
1 -- to insert new project data
2 -- to add wait time to a project
3 -- to report original and new project dates
4 -- to exit the program
4
I DID IT ALL! TERMINATING NOW ....
16> SQLCI
>select * from =projects;
PROJECT_NAME START_DATE END_DATE WAIT_TIME
------------------------- -------------------- ---------------- -----------------
920 1988-02-21:20:30 1989-03-21:20:30 30
134 1970-01-01:00:00 1978-03-21:20:30 30
777 1989-07-15:06:30 1989-10-31:23:58 30
--- 3 row(s) selected.
VSTB01.vsd