SQL Programming Manual for Pascal

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for Pascal—528614-001
B-13
Date-Time Program
198 0 PROCEDURE PRINT_REPORT;
199 1 BEGIN
200 2
201 2 EXEC SQL BEGIN WORK;
202 2
203 2 EXEC SQL
204 2 OPEN OLD_DATES_CURSOR;
205 2
206 2 EXEC SQL
207 2 OPEN NEW_DATES_CURSOR;
208 2
209 2 IF SQLCODE = 0 THEN
210 3 BEGIN
211 4 WRITELN('*********************************************');
212 4 WRITELN;
213 4 WRITELN('ORIGINAL DATES:');
214 4 WRITELN;
215 4 WRITELN('*********************************************');
216 4 WRITELN;
217 4
218 4 REPEAT
219 5 FETCH_AND_DISPLAY_OLD
220 5 UNTIL SQLCODE <> 0;
221 4 END;
222 2
223 2 { Check for NOT FOUND -- came to the end of the records }
224 2 IF SQLCODE = 100 THEN
225 3 BEGIN
226 4 WRITELN('********************************************');
227 4 WRITELN;
228 4 WRITELN('NEW DATES:');
229 4 WRITELN;
230 4 WRITELN('********************************************');
231 4 WRITELN;
232 4
233 4 { FETCH sets SQLCODE back to 0 }
234 4 REPEAT
235 5 FETCH_AND_DISPLAY_NEW
236 5 UNTIL SQLCODE <> 0;
237 4 END;
238 2
239 2 { Check for NOT FOUND -- came to the end of the records }
240 2 IF SQLCODE = 100 THEN
241 3 BEGIN
242 4 EXEC SQL COMMIT WORK;
243 4 END;
244 2
245 2 END; { print_report }
246 0
247 0
248 0 { FETCH_AND_DISPLAY_OLD does not access WAIT_TIME, while}
249 0 { FETCH_AND_DISPLAY_NEW accesses and reports WAIT_TIME. }
250 0