&sql(SELECT STR(123),
STR(123,4),
STR(+00123.45,3),
STR(+00123.45,3,1),
STR(+00123.45,5,1)
INTO :v,:w,:x,:y,:z)
IF SQLCODE'=0 {
WRITE !,"Error code ",SQLCODE }
ELSE {
WRITE !,"Resulting STR:",v," string"
WRITE !,"Resulting STR:",w," string"
WRITE !,"Resulting STR:",x," string"
WRITE !,"Resulting STR:",y," string"
WRITE !,"Resulting STR:",z," string" }