midrange.com code scratchpad |
Name:
ASCII->EBCDIC Translation
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
07/20/2010 01:01:05 pm
|
IP:
Logged
|
|
Description:
Retrieves standard in data that is in ASCII and attempts to translate it to EBCDIC.
|
Code:
-
- D Translate PR ExtPgm('QDCXLATE')
- D Length 5P 0 const
- D Data * const
- D Table 10A const
- /free
- // read from standard in - pipe is placed in 'data' variable
- len = stdin(data);
-
- // data is in ASCII so translate it.
- translate(len : %addr(data) : 'QTCPEBC' );
|
|
|