ASCII TO EBCIDC converion using QDCXLATE is not proper

[rjc]

Hi,

In one of our project we are trying to convert 8000 bytes data from ASCII to EBCDIC, we have defined the field length as 10000. If we try to convert more than 8000 it's not converting and somewhere the data is getting truncated and only 1458 length of data is only getting converted.

Kindly help me out.

Thanks


D Translate PR ExtPgm('QDCXLATE')
D peLength 5p 0 const
D peBuffer 32766a options(*varsize)
D peTable 10a const

C Callp Translate(10000:ds1: 'QTCPASC')