H DATEDIT(*YMD/)                                                                               
     F********** QDCXLATE ‚̃eƒXƒg *****************************************                        
     F*    CRTBNDRPG MYLIB/TESTDCX SRCFILE(MYSRCLIB/QRPGLESRC)                                      
     F*    AUT(*ALL)                                                                                
     F**********************************************************************                        
     D QDCXLATE        C                   CONST('QSYS/QDCXLATE')                                   
     D EBCBUF          S           5000A                                                            
     D EBCLEN          S              5P 0 INZ(5000)                                                
     D ASCBUF          S           5000A                                                            
     D ASCLEN          S              5P 0 INZ(5000)                                                
     D MAXOTL          S              5P 0 INZ(5000)                                                
                                                                                                    
     C                   EVAL      EBCBUF = 'ABC123'                                                
     C*----------------------------------------------------+                                        
     C                   CALL      QDCXLATE                                                         
     C                   PARM                    EBCLEN                                             
     C                   PARM                    EBCBUF                                             
     C                   PARM      'QASCII    '  TBL              10                                
     C                   PARM      'QSYS      '  TBLLIB           10                                
     C                   PARM                    ASCBUF                                             
     C                   PARM                    MAXOTL                                             
     C                   PARM                    ASCLEN                                             
     C                   PARM      '*JPN '       DBCS              5                                
     C                   PARM      'N'           SISO              1                                
     C                   PARM      '*EA '        TRNSLT           10                                
     C*----------------------------------------------------+                                        
     C                   SETON                                        LR                            
     C                   RETURN