translating-a-character-set.rex

Pipelines v2.1

 

.....|...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....10...

Home

     **** Top of file ****
   1
   2 /* The following pipeline reads the file: winston.txt and passes the data through two
   3    translation pipelines. The first converts the data to EBCDIC and the second converts 
   4    the data back to ASCII. The result is displayed on the console.
   5
   6    The example is intended to show how simple it is to construct a translation table to
   7    convert data from one format to another. */
   8
   9 Address Rxpipe
  10
  11 'pipe < &installdrive:\&installpath\examples\input\winston.txt',
  12      '| call "&installdrive:\&installpath\examples\subroutine\ascii-to-ebcdic.rex"',
  13      '| call "&installdrive:\&installpath\examples\subroutine\ebcdic-to-ascii.rex"',
  14      '| cons'
  15
  16 Say 'Hit Enter to close..'
  17 Parse Pull
  18
  19 Exit 0
     **** End of file ****