SQL Programming Manual for TAL

Examples of Dynamic NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
C-25
Detailed Dynamic SQL Program
Page 14 [1] $VOL1.S04.TALDYN 1991-10-15 13:42:28
read^query
552. 000245 1 2 PUT^STR ("Re-executing query >> ");
553. 000263 1 2 PRINT^LINE;
554. 000276 1 2 call WRITEX(term,host1.str,host1.len);
555. 000312 1 2
556. 000312 1 2 end else begin
557. 000313 1 2
558. 000313 1 2 host2.str ':=' host1.str for host1.len bytes; ! save query
for reuse
559. 000323 1 2 host2.len := host1.len;
560. 000325 1 2 end;
561. 000325 1 1
562. 000325 1 1 return 0;
563. 000327 1 1 END; !end of proc read^query
564. 000000 0 0
565. 000000 0 0
566. 000000 0 0
567. 000000 0 0