my $sth = $$dbhCurrent->prepare( qq{
  declare \@usrid int, \@sysusrid int
  select \@sysusrid = suser_id(?)
  select \@usrid = $IDVALUE from $ID
  where $IDNAME = 'USR_ID'

  insert into APPUSR (APP_CD, USR_ID, USRNAME, USRFNAME, USRLNAME, FNCGRP_CD, SYSUSR_ID) " .
  values ('A', \@usrid, ?, ?, ?, ?, \@sysusrid)
};
$sth->execute( $usrname, $usrname, $first, $full_last, $fncgrp);