SQL Programming Manual for Pascal

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for Pascal—528614-001
B-15
Date-Time Program
306 0 BEGIN { main program }
307 1
308 1 WRITELN;
309 1 WRITELN(' START PROJECTS UPDATE PROGRAM ');
310 1 WRITELN;
311 1
312 1 SEL_INDEX := 0;
313 1
314 1 WHILE SEL_INDEX <> 4 DO
315 2 BEGIN
316 3 WRITELN;
317 3 WRITELN ('PLEASE ENTER:');
318 3 WRITELN ('1 -- to insert new project data');
319 3 WRITELN ('2 -- to add wait time to a project');
320 3 WRITELN ('3 -- to report original and new project
dates');
321 3 WRITELN ('4 -- to exit the program');
322 3
323 3 READLN(SEL_INDEX);
324 3
325 3 CASE SEL_INDEX OF
326 4 1: INSERT_PROJECT;
327 4 2: ADD_WAIT_TIME;
328 4 3: PRINT_REPORT;
329 4 4: TERMINATE_PROG;
330 4 OTHERWISE WRITELN('Incorrect entry: ');
331 4 END; { case statement }
332 3
333 3 END; { while sel_index <> 4 }
334 1 END. { main program }