RE: How make a text with variables

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