SQL Programming Manual for TAL

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
B-7
Insertion Program
Page 6 [1] $VOL1.S04.TALTEST 1991-10-15 13:40:20
158. 000000 0 0 PROC DO^ADD^TO^PARTLOC;
159. 000000 1 0 BEGIN
160. 000000 1 1 partloc^rec.loc^code ':=' in^data^rec.in^loc^code
161. 000001 1 1 FOR $OCCURS(partloc^rec.loc^code);
162. 000010 1 1 --Length of PARTLOC^REC.LOC^CODE is used because it's the
smaller
163. 000010 1 1 --size.
164. 000010 1 1
165. 000010 1 1 partloc^rec.partnum := in^data^rec.in^partnum;
166. 000013 1 1 partloc^rec.qty^on^hand := in^data^rec.in^qty;
167. 000021 1 1
168. 000021 1 1 sbuf ':=' "BEGIN INSERT ON PARTLOC *******"->@buf^end;
169. 000032 1 1 CALL WRITE(home^term^num,ibuf,@buf^end '-' @sbuf);
170. 000044 1 1
171. 000044 1 1 EXEC SQL
172. 000044 1 1 INSERT INTO =PARTLOC
173. 000044 1 1 VALUES ( :partloc^rec.loc^code,
174. 000044 1 1 :partloc^rec.partnum,
175. 000044 1 1 :partloc^rec.qty^on^hand );
176. 000127 1 1
177. 000127 1 1 END; --end of DO^ADD^TO^PARTLOC
178. 000000 0 0
179. 000000 0 0
Page 7 [1] $VOL1.S04.TALTEST 1991-10-15 13:40:20
181. 000000 0 0 PROC CLOSE^CURSOR;
182. 000000 1 0 BEGIN
183. 000000 1 1 EXEC SQL CLOSE get_supplier_cursor;
184. 000046 1 1 END;
185. 000000 0 0
186. 000000 0 0
187. 000000 0 0 PROC COMMIT^TRANSACTION;
188. 000000 1 0 BEGIN
189. 000000 1 1 EXEC SQL COMMIT WORK;
190. 000040 1 1 sbuf ':=' "COMMIT TRANSACTION"->@buf^end;
191. 000051 1 1 CALL WRITE(home^term^num,ibuf,@buf^end '-' @sbuf);
192. 000063 1 1 END;
193. 000000 0 0