data$Month2 <- format(as.Date(data$Month, "%m/%d/%Y"), "%Y%M%D")
data$Month3 <- format(as.Date(data$Month, "%m/%d/%Y"), "%Y-%m")
data$tranId=paste("EXAMPLE","_",data$Month2)
data$postingperiod=data$Month3
data$Month2<-NULL
data$Month3<-NULL