if (($TRANCODE0 =~m/(TSP|KSP)/) && ($QUANTITY ne '00000000.00000') && ($QSIGN eq "+") && ($KEYCODE =~m/(10|11|20|60)/)){
    $TRAN_CODE = "RCV";
}

if (($TRANCODE0 =~m/(TSP|KSP)/) && ($QSIGN eq "-") && ($KEYCODE =~m/(10|11|20|60)/)){
    $TRAN_CODE = "DLV";
}

if (($TRANCODE0 =~m/(TSP|KSP)/) && ($QUANTITY eq '00000000.00000')  && ($KEYCODE =~m/(10|11|20|60)/)){
    $TRAN_CODE = "DLV";
}

if (($TRANCODE0 eq "EXP") && ($SECTYPE eq "8")){
   $TRAN_CODE = "OPTEXP";
}

if (($TRANCODE0 eq "EXP") && ($SECTYPE ne '8')){
   $TRAN_CODE = "DLV";
}