Something like this: 01 mytext string value "This is booking: @numres for checkin on @dateent and checkout on @datsai". 01 resnum pic 9(4) value 2748. 01 checkin pic x(10) value "05/20/2016". 01 checkout pic x(10) value "05/25/2016". procedure division. set mytext to mytext::Replace("@numres", resnum::ToString)::Replace("@dateent", checkin)::Replace("@datsai", checkout) display mytext
↧