asc2ebc.rex 143 Bytes
Edit Raw Blame History



1

2

3

4

5

6

7

8

9

10

11

12

13


/*
 * Sample code for ASC -> EBCDIC conversion
 *
 */

 STRING = "ASCII STRING"

 say c2x(asc2ebc(STRING))

return 0


::requires "rx3270.cls"