un exemple de codage en RPG
C CALL 'QDCXLATE'
C PARM 128 LENGTH 5 0
C PARM DATA 128
C PARM 'QTCPEBC' TABLE 10
|
Un exemple de codage en RPG ILE
D Translate PR ExtPgm('QDCXLATE')
D Length 5P 0 const
D Data 32766A options(*varsize)
D Table 10A const
C callp Translate(128: Data: 'QTCPEBC')
|
» QTCPEBC » est la table IBM fournie pour traduire de l’ASCII à l’EBCDIC et QTCPASC est la table pour traduire de l’EBCDIC à l’ASCII
