I'm seeing different behavior when using embedded SQL in near-identical
procedures that differ only in the way the proc is defined within the
routine. Am I missing something basic?
Thanks for any ideas.
This one works (i.e. the value of Name gets written out as expected):
----------------------------------------------------------------------
GetName1
w !,"Name1 Routine"
s x = ""
&sql(SELECT name into :x FROM Animals.Dog WHERE born="2/1/2003")
w !," Name:",x
q
This one doesn't work (unless I get rid of the "PUBLIC" & brackets)
---------------------------------------------------------------------
GetName2() PUBLIC {
w !,"Name2 Routine"
s y = ""
&sql(SELECT name into :y FROM Animals.Dog WHERE born="2/12/1999")
w !," Name: ",y
q
begin 666 dog-class-def.txt
M0VQA<W,@06YI;6%L<RY$;V<@17AT96YD<R H)5!E<G-I<W1E;G0L("5834PN
M061A<'1O<[EMAIL PROTECTED];&%S<U1Y<&4@/2!P97)S:7-T96YT+"!0<F]C961U<F5"
M;&]C:R!=#0I[#0H-"E!R;W!E<G1Y(&)R965D.PT*#0I0<F]P97)T>2!B;W)N
M.PT*#0I0<F]P97)T>2!D:65D.PT*#0I0<F]P97)T>2!W96EG:'0[#0H-"E!R
3;W!E<G1Y(&YA;64[#0H-"GT-"@``
`
end
begin 666 dog-routine.txt
M4&]P=6QA=&5086-K#0H)<R!A/2,C8VQA<W,H06YI;6%L<RY$;V<I+B5.97<H
M*0T*"7,@82YB<F5E9" ](")B;WAE<B(-"@ES(&$N8F]R;B ]("(R+S$O,C P
M,R(-"@ES(&$N;F%M92 ](")F:61O(@T*"[EMAIL PROTECTED]@I#0H)#0H)<R!B
M/2,C8VQA<W,H06YI;6%L<RY$;V<I+B5.97<H*0T*"7,@8BYB<F5E9" ](")S
M8VAN875Z97(B#0H)<R!B+F)O<FX@/2 B,3(O,3$O,C P,"(-"@ES(&(N;F%M
M92 ](")H96ED:2(-"@ED(&(N)5-A=F4H*0T*"0T*"7,@8STC(V-L87-S*$%N
M:6UA;',N1&]G*2XE3F5W*"D-"@ES(&,N8G)E960@/2 B9V5R;6%N('-H97!H
M97)D(@T*"7,@8RYB;W)N(#T@(C(O,3(O,3DY.2(-"@ES(&,N;F%M92 ](")R
[EMAIL PROTECTED])9"!C+B53879E*"D-"@EQ=6ET#0H)#0I'971.86UE,0T*"7<@(2PB
[EMAIL PROTECTED]&EN92(-"@ES('@@/2 B(@T*"29S<6PH4T5,14-4(&YA;64@
M:6YT;R Z>"!&4D]-($%N:6UA;',N1&]G(%=(15)%(&)O<FX](C(O,2\R,# S
M(BD-"@EW("$L(B @3F%M93HB+'@-"@EQ#0H)#0I'971.86UE,[EMAIL PROTECTED](%!50DQ)
M0R![#0H)=R A+").86UE,B!2;W5T:6YE(@T*"7,@>2 ]("(B#0H))G-Q;"A3
M14Q%0U0@;F%M92!I;G1O(#IY([EMAIL PROTECTED];6%L<RY$;V<@[EMAIL PROTECTED]
J;CTB,B\Q,B\Q.3DY(BD-"@EW("$L(B @3F%M93H@(BQY#0H)<0T*?0T*
`
end
