Re: isql_perl cursor

Bahram Samani wrote } }I am trying to do the following using isql_perl : } }$sql= "select * from table where colum= ? " ; }$cid = &isql_open($sql, $parm) || die $isql_code; } }$sql2 = " select * from table2"; }$cid2= &isql_open($sql2) || die $isql_code; } }$process=1; }while ($process){ } if ( &isql_fetchbyname(*cid2) ) { } &isql_fetchbyname(*cid, $cid2{columnname} ); } } ... } } else { } $process =0; } &isql_close($cid); } &isql_close($cid2); } } } }I tried to do the above with no luck. Am I doing something wrong? } }my other solution is to open and close cid2 in the loop.but this way it }takes to long . Sorry if just missed your target, but ... open cursors ...; while (&isql_fetchbyname(*cid)) { do whatever you want ...; } &isql_close($cid); while (&isql_fetchbyname(*cid2)) { and now the rest ...; } &isql_close($cid2); should perform the same logic - You had something else in mind ? -- Chris Drauch <cdr@xteam.co.at> ... just speaking for myself ...