SQL Programming Manual for TAL

Examples of Static NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
B-22
Date-Time Program
Page 8 [1] $VOL1.S04.TALDT 1991-10-15 13:41:07
379. 000067 1 1 USER^PROJECTS^REC.END^DATE ':='
380. 000067 1 1 [ $OCCURS(USER^PROJECTS^REC.END^DATE) * [" "] ];
381. 000101 1 1 USER^PROJECTS^REC.WAIT^TIME ':='
382. 000101 1 1 [ $OCCURS(USER^PROJECTS^REC.WAIT^TIME) * [" "] ];
383. 000113 1 1
384. 000113 1 1 SEL^INDEX ':=' " ";
385. 000124 1 1
386. 000124 1 1 WHILE SEL^INDEX <> "4" DO
387. 000127 1 1 BEGIN
388. 000127 1 2 SBUF ':=' "PLEASE ENTER: "->@BUF^END;
389. 000140 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF);
390. 000152 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,0);
391. 000162 1 2
392. 000162 1 2 SBUF ':=' "1 -- to insert new project data: "
->@BUF^END;
393. 000173 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF);
394. 000205 1 2
395. 000205 1 2 SBUF ':=' "2 -- to add wait time to a project: "
->@BUF^END;
396. 000216 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF);
397. 000230 1 2
398. 000230 1 2 SBUF ':=' "3 -- to report original and new project
dates: "->@BUF^END;
399. 000241 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF);
400. 000253 1 2
401. 000253 1 2 SBUF ':=' "4 -- to exit the program "->@BUF^END;
402. 000264 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '-' @SBUF);
403. 000276 1 2 CALL WRITE(HOME^TERM^NUM,IBUF,0);
404. 000306 1 2
405. 000306 1 2 SBUF ':=' "Please enter selection: "->@BUF^END;
406. 000317 1 2 CALL WRITEREAD(HOME^TERM^NUM,IBUF,@BUF^END '-'
@SBUF,10,NUM^READ);
407. 000334 1 2 SEL^INDEX ':=' SBUF FOR NUM^READ;
408. 000341 1 2
409. 000341 1 2 CASE SEL^INDEX OF
410. 000343 1 2 BEGIN
411. 000343 1 3 "1" -> CALL INSERT^PROJECT;
412. 000344 1 3 "2" -> CALL ADD^WAIT^TIME;
413. 000346 1 3 "3" -> CALL PRINT^REPORT;
414. 000350 1 3 "4" -> CALL TERMINATE^PROG;
415. 000352 1 3 OTHERWISE ->
416. 000353 1 3 SBUF ':=' "Incorrect entry "->@BUF^END;
417. 000364 1 3 CALL WRITE(HOME^TERM^NUM,IBUF,@BUF^END '
-' @SBUF);
418. 000376 1 3 END; -- case statement
419. 000415 1 2
420. 000415 1 2 END; -- while sel^index <> 4
421. 000416 1 1
422. 000416 1 1 END; -- end of main