API QDCXLATE によって、EBCDIC/ASCII の相互変換ができる。
次の例は QDCXLATE によって QSYS の QEBCDIC,QASCII というテーブルを使用して変換しているが、日本語 PC に適用するには、一部これらのテーブルには問題がある。
テーブルはコード表から CRTTBL コマンドで自作するほうが良い。
なお PANEL-WORKER または PANEL-WORKER Chicago が導入されているのであればライブラリーPANELWKR に EBCDIC , ASCII という名前のテーブルが用意されているので、これは直ちに使用可能である。

0001.00              PGM          
0002.00 /*---------------------------------------------------------*/  
0003.00 /*   QDCXLATE による  EBCDIC/ASCII 変換                    */   
0004.00 /*---------------------------------------------------------*/   
0005.00              DCL        VAR(&OUTBUF) TYPE(*CHAR) LEN(5000)  
0006.00              DCL        VAR(&BLANKS) TYPE(*CHAR) LEN(5000)             
0007.00              DCL        VAR(&BUFLEN) TYPE(*CHAR) LEN(3) /* 5 桁 PACK */
0008.00              DCL        VAR(&MAXOTL) TYPE(*CHAR) LEN(3) +  
0009.00                           VALUE(X'05000F') /* 5 桁 PACK */    
0010.00              DCL        VAR(&OUTLEN) TYPE(*CHAR) LEN(3) +   
0011.00                           VALUE(X'00000F') /* 5 桁 PACK */    
0012.00              DCL        VAR(&RCVDTA) TYPE(*CHAR) LEN(5000)   
0013.00              DCL        VAR(&SNDDTA) TYPE(*CHAR) LEN(5000)   
0014.00 /************/                           
0015.00     EBCDIC:        /*  ASCII -> EBCDIC  への変換 */  
0016.00 /************/                                              
0017.00              CHGVAR     VAR(&OUTBUF) VALUE(&BLANKS)            
0018.00              CALL       PGM(QDCXLATE) PARM(&BUFLEN &RCVDTA 'QEBCDIC +
0019.00                           ' 'QSYS    ' &OUTBUF &MAXOTL &OUTLEN +  
0020.00                           '*JPN' 'Y' '*AE       ')                
0021.00              MONMSG     MSGID(CPF2600) EXEC(GOTO CMDLBL(ENDCNV)) 
0022.00 /************/                                                        
0023.00     ASCII:         /*  EBCDIC -> ASCII  への変換 */                   
0024.00 /************/                                                        
0025.00              CALL       PGM(QDCXLATE) PARM(&BUFLEN &SNDDTA 'QASCII  +
0026.00                           ' 'QSYS    ' &OUTBUF &MAXOTL &OUTLEN + 
0027.00                           '*JPN ' 'N' '*EA ')                         
0028.00              CHGVAR     VAR(&OUTBUF) VALUE(&OUTBUF *TCAT &NULL)