SET name="LastName,FirstName",state="##"
&sql(DECLARE EmpCursor CURSOR FOR SELECT Name,Home_State
INTO :name,:state FROM Sample.Person)
IF SQLCODE'=0 {
WRITE !,"DECLARE Error code ",SQLCODE
QUIT }
ELSE {
WRITE !,"BEFORE: Name=",name," State=",state }
&sql(OPEN EmpCursor)
FOR { &sql(FETCH EmpCursor)
QUIT:SQLCODE
WRITE !,"DURING: Name=",name," State=",state }
&sql(CLOSE EmpCursor)
WRITE !,"AFTER: Name=",name," State=",state
SET name="LastName,FirstName",state="##"
&sql(DECLARE EmpCursor CURSOR FOR SELECT Name, Home_State
FROM Sample.Person)
IF SQLCODE'=0 {
WRITE !,"DECLARE Error code ",SQLCODE
QUIT }
ELSE {
WRITE !,"BEFORE: Name=",name," State=",state }
&sql(OPEN EmpCursor)
FOR { &sql(FETCH EmpCursor INTO :name,:state)
QUIT:SQLCODE
WRITE !,"DURING: Name=",name," State=",state }
&sql(CLOSE EmpCursor)
WRITE !,"AFTER: Name=",name," State=",state
SET name="LastName,FirstName",state="##"
&sql(DECLARE EmpCursor CURSOR FOR SELECT Name, Home_State
INTO :name,:state FROM Sample.Person)
IF SQLCODE'=0 {
WRITE !,"DECLARE Error code ",SQLCODE
QUIT }
ELSE {
WRITE !,"BEFORE: Name=",name," State=",state }
&sql(OPEN EmpCursor)
FOR { &sql(FETCH EmpCursor INTO :n1,:s1)
QUIT:SQLCODE
WRITE !,"DURING DecVars: Name=",name," State=",state
WRITE !,"DURING FetchVars: Name=",n1," State=",s1 }
&sql(CLOSE EmpCursor)
WRITE !,"AFTER DecVars: Name=",name," State=",state
WRITE !,"AFTER FetchVars: Name=",n1," State=",s1