戻る

ストアードプロシジャを使う

0001: ###################################################################
0002: # STORED-PROCEDURE を使う
0003: my($t1)=&Time::HiRes::time();
0004: my($trans);
0005: &startTransaction(\$DB, \$trans);
0006: my(@param)=($pvalue{WAMEI});
0007: my(%hash)=&execProcedure(\$trans, \ "PS_J_SGFO", 1, \@param);
0008: &commitTransaction(\$trans);
0009: print("use procedure ------");
0010: my($c)=0;
0011: if ($hash{ORDERNAME}){
0012:     $c++;
0013: }
0014: my($t2)=&Time::HiRes::time();
0015: printf("Select:%4d rows Elapsed:%8.3f msec\n", $c, ($t2-$t1)*1000);

この HTML を検査する。( XHTML 1.0 Strict で書かれています )
Another HTML Lint Gateway ( Mirrored by htmllint.oosato.org )