SQL Programming Manual for TAL

Examples of Dynamic NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
C-27
Detailed Dynamic SQL Program
Page 16 [1] $VOL1.S04.TALDYN 1991-10-15 13:42:28
adjust^sqlda^scale^types
626. 000075 1 3 _SQLDT_DEC_LSE, ! DECIMAL LSE
627. 000075 1 3 _SQLDT_DEC_TSS, ! DECIMAL TSS
628. 000075 1 3 _SQLDT_DEC_TSE -> ! DECIMAL TSE
629. 000075 1 3 ! change DECIMAL type to 32-bit integer and set
scale to 0
630. 000075 1 3 sqlda.sqlvar[i].data^len.<0:7> := 0;
631. 000110 1 3 sqlda.sqlvar[i].data^type := _SQLDT_32BIT_S;
632. 000123 1 3 sqlda.sqlvar[i].data^len.<8:15> := 4; ! length
of 32 bits
633. 000137 1 3
634. 000137 1 3 otherwise -> ; ! nothing to do for other types
635. 000140 1 3 end;
636. 000206 1 2 end;
637. 000221 1 1 END; ! of proc adjust^sqlda^scale^types
638. 000000 0 0
639. 000000 0 0
640. 000000 0 0
641. 000000 0 0