SQL Programming Manual for TAL

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
B-9
Insertion Program
Page 9 [1] $VOL1.S04.TALTEST 1991-10-15 13:40:20
241. 000000 0 0 PROC ABORT^TRANSACTION;
242. 000000 1 0 BEGIN
243. 000000 1 1 EXEC SQL ROLLBACK WORK;
244. 000040 1 1 sbuf ':=' "TRANSACTION ABORTED"->@buf^end;
245. 000051 1 1 CALL WRITE(home^term^num,ibuf,@buf^end '-' @sbuf);
246. 000063 1 1 END;
247. 000000 0 0
248. 000000 0 0
249. 000000 0 0 PROC SUCCESSFUL^COMPLETION;
250. 000000 1 0 BEGIN
251. 000000 1 1 sbuf ':=' "PART ADDED. PROGRAM ENDS"->@buf^end;
252. 000012 1 1 CALL WRITE(home^term^num,ibuf,@buf^end '-' @sbuf);
253. 000024 1 1 END;
254. 000000 0 0
Page 10 [1] $VOL1.S04.TALTEST 1991-10-15 13:40:20
256. 000000 0 0 --Main program code:
257. 000000 0 0 PROC DRIVER MAIN;
258. 000000 1 0 BEGIN
259. 000000 1 1
260. 000000 1 1 --Read the system startup message:
261. 000000 1 1 CALL INITIALIZER;
262. 000006 1 1
263. 000006 1 1 CALL START^OPERATIONS;
264. 000007 1 1 CALL CHECK^SUPPLIER;
265. 000010 1 1 CALL DO^ADD^TO^PARTS;
266. 000011 1 1 CALL DO^ADD^TO^PARTLOC;
267. 000012 1 1 CALL CLOSE^CURSOR;
268. 000013 1 1 CALL COMMIT^TRANSACTION;
269. 000014 1 1 CALL SUCCESSFUL^COMPLETION;
270. 000015 1 1
271. 000015 1 1 END; --end of DRIVER