SQL Programming Manual for TAL

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
B-15
Date-Time Program
The TAL compiler listing for TALDT is shown on the following pages.
Page 1 [1] $VOL1.S04.TALDT 1991-10-15 13:41:07
TAL - T9250C30 - (01NOV91)
Copyright Tandem Computers Incorporated 1976, 1978, 1981-83, 1985, 1987-91
1. 000000 0 0 ?SQL NOWHENEVERLIST
2. 000000 0 0 ?SYMBOLS, INSPECT, SAVEABEND, NOMAP, NOCODE, NOGMAP, NOLMAP,
DATAPAGES 64
3. 000000 0 0 ?SEARCH \SYS1.$SYSTEM.SYSTEM.TALLIB
Search file: \SYS1.$SYSTEM.XTALC30.TALLIB 1991-08-30 11:14:19
4. 000000 0 0
5. 000000 0 0 -- Variables for terminal I/O:
6. 000000 0 0 INT .HOME^TERM[0:11],
7. 000014 0 0 HOME^TERM^NUM,
8. 000014 0 0 NUM^READ,
9. 000014 0 0 .IBUF[0:99];
10. 000160 0 0 STRING .SBUF := @IBUF '<<' 1;
11. 000160 0 0
12. 000160 0 0 -- Pointer to end of the I/O buffer:
13. 000160 0 0 STRING .BUF^END;
14. 000160 0 0
15. 000160 0 0
16. 000160 0 0 -- Invoke the PROJECTS table into 3 record areas for:
17. 000160 0 0 -- -storing the current dates
18. 000160 0 0 -- -storing the original dates
19. 000160 0 0 -- -storing the values entered by the user as search
criteria
20. 000160 0 0 -- The original dates will be used in the report function.
21. 000160 0 0 --
22. 000160 0 0 -- The TYPE description for the PROJECTS table from INVOKE is:
23. 000160 0 0 --
24. 000160 0 0 -- STRUCT PROJECTS^TYPE(*);
25. 000160 0 0 -- BEGIN
26. 000160 0 0 -- STRING PROJECT^NAME[0 : 9];
27. 000160 0 0 -- STRING START^DATE[0 : 15];
28. 000160 0 0 -- STRING END^DATE[0 : 15];
29. 000160 0 0 -- STRING WAIT^TIME[0 : 2];
30. 000160 0 0 -- END;
31. 000160 0 0 -- Note that INVOKE generates an extra byte for INTERVAL
values,
32. 000160 0 0 -- to accommodate a possible negative sign.
33. 000160 0 0
34. 000160 0 0 EXEC SQL BEGIN DECLARE SECTION;
35. 000160 0 0 EXEC SQL INVOKE =PROJECTS AS PROJECTS^TYPE;
35. 000160 0 0 EXEC SQL INVOKE =PROJECTS AS PROJECTS^TYPE;
Source file: [2] $SYSTEM.#3187 1991-10-15 13:41:24
1. 000160 0 0 ! Record Definition for table \TSII.$BOOKS1.S04.PROJECTS
2. 000160 0 0 ! Definition current at 13:41:24 - 10/15/91
3. 000160 0 0 struct projects^type(*);
4. 000160 0 0 BEGIN
5. 000160 0 1 string project^name[0:9];
6. 000160 0 1 string start^date[0:15];
7. 000160 0 1 string end^date[0:15];
8. 000160 0 1 string wait^time[0:2];
9. 000160 0 1 END;
Source file: [1] $VOL1.S04.TALDT 1991-10-15 13:35:04
36. 000160 0 0
37. 000160 0 0 STRUCT .USER^PROJECTS^REC(PROJECTS^TYPE);
38. 000207 0 0 STRUCT .OLD^PROJECTS^REC(PROJECTS^TYPE);
39. 000236 0 0 STRUCT .NEW^PROJECTS^REC(PROJECTS^TYPE);
40. 000265 0 0