SQL Programming Manual for TAL

Examples of Dynamic NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
C-8
Dynamic SQL Program
Page 6 [1] $VOL1.S04.TALDYNEZ 1991-10-15 13:41:54
218. 000401 1 1 SBUF ':=' "Enter the comparison criteria now: "->@BUF^END;
219. 000412 1 1 CALL WRITEREAD(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF,20,
PRED^SIZE);
220. 000425 1 1
221. 000425 1 1 PREDICATE ':=' SBUF FOR PRED^SIZE;
222. 000432 1 1
223. 000432 1 1 -- Construct the SQL statement:
224. 000432 1 1 CMD^END ':=' COLUMN FOR COL^SIZE -> @CMD^END;
225. 000440 1 1 CMD^END ':=' PREDICATE FOR PRED^SIZE -> @CMD^END;
226. 000446 1 1
227. 000446 1 1 END; --get^cmd
228. 000000 0 0
229. 000000 0 0
230. 000000 0 0 !--------------------------------------------------------
231. 000000 0 0 !
232. 000000 0 0 ! ERROR HANDLER
233. 000000 0 0 !
234. 000000 0 0 !--------------------------------------------------------
235. 000000 0 0
236. 000000 0 0 PROC ERROR^HANDLER;
237. 000000 1 0
238. 000000 1 0 BEGIN
239. 000000 1 1 CALL SQLCADISPLAY( SQLCA);
240. 000013 1 1 END;
241. 000000 0 0
242. 000000 0 0
243. 000000 0 0 !--------------------------------------------------------
244. 000000 0 0 !
245. 000000 0 0 ! MAIN PROCEDURE
246. 000000 0 0 !
247. 000000 0 0 !--------------------------------------------------------
248. 000000 0 0
249. 000000 0 0 PROC DRIVER MAIN;
250. 000000 1 0
251. 000000 1 0 BEGIN
252. 000000 1 1 CALL INITIALIZER;
253. 000006 1 1 CALL MYTERM(HOME^TERM);
254. 000011 1 1 CALL OPEN(HOME^TERM, HOME^TERM^NUM);
255. 000021 1 1
256. 000021 1 1 -- Get SQL statement from the user:
257. 000021 1 1 CALL GET^CMD(CMD);
258. 000024 1 1
259. 000024 1 1 -- Compile the statement, access the SQL database, and
260. 000024 1 1 -- report the result:
261. 000024 1 1 CALL PROCESS^AND^EXECUTE(CMD);
262. 000027 1 1
263. 000027 1 1 END;