Starting With DECODE Ending in R With CODE