Quantcast
Channel: Visual COBOL
Viewing all articles
Browse latest Browse all 5819

Forum Post: RE: How make a text with variables

$
0
0
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

Viewing all articles
Browse latest Browse all 5819

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>