RE: ASCII/EBCDIC Conversion

[Chris Bipes <ChrisB@xxxxxxxxxxxxxxx>]

Eric,

Have you coded these in ILE RPGIV?  When I open the conversion using
iconv_open or QtqIconvOpen I get the error message:

"3021-The value specified for the argument is not correct."

I have tried different code page ids.  What has worked for you.  I would
like to use 00850/00037.  My iconv_t is:

dToAscii          DS                                           
d ICORV_A                 1      4B 0                          
 *                  return value to indicate if error occurred 
d ICOC_A                  5     52B 0 DIM(00012)               
 *                                             CD              

dToEbcdic         DS                                           
d ICORV_E                 1      4B 0                          
 *                  return value to indicate if error occurred 
d ICOC_E                  5     52B 0 DIM(00012)               
 *                                             CD              

d Qascii          Ds            32              
d  asciiCP                1      4b 0 inz(00853)
d  asciiCA                5      8b 0 inz(0)    
d  asciiSA                9     12b 0 inz(1)    
d  asciiSS               13     16b 0 inz(1)    
d  asciiIL               17     20b 0 inz(1)    
d  asciiEO               21     24b 0 inz(1)    
 *                                              
d Qebcdic         Ds            32              
d  ebcdicCP               1      4b 0 inz(00037)
d  ebcdicCA               5      8b 0 inz(0)    
d  ebcdicSA               9     12b 0 inz(1)    
d  ebcdicSS              13     16b 0 inz(1)    
d  ebcdicIL              17     20b 0 inz(1)    
d  ebcdicEO              21     24b 0 inz(1)    

 *------------------------------------------------------------------

 * Prototype for Code Conversion - Open

 *------------------------------------------------------------------

d IConvOpen       PR            52a   ExtProc('QtqIconvOpen')

d                                 *   Value

d                                 *   Value

 *------------------------------------------------------------------

 * Prototype for Code Conversion - Open

 *------------------------------------------------------------------

d IConvClose      PR            10i 0 ExtProc('iconv_close')

d                               52a   Value

 *------------------------------------------------------------------
 * Prototype for Code Conversion                                    
 *------------------------------------------------------------------
d IConv           PR            10i 0 ExtProc('iconv')              
d                               52a   Value                         
d                                 *   Value                         
d                                 *   Value                         
d                                 *   Value                         
d                                 *   Value                         


 *                                                                
 * setup code page conversion ascii - ebcdic                      
c                   eval      ToAscii  = iconvOpen(%addr(Qascii): 
c                                                  %addr(Qebcdic))
c                   if        ICORV_A = -1                        
c                   exsr      $err                                
c                   dump                                          
c                   eval      Ssock = Msock                       
c                   exsr      $close                              
c                   eval      *INLR = *ON                         
c                   return                                        
c                   endif                                         


Am I totally lost on using these APIs?  Any help would be much appreciated.


Thank You,

Christopher K. Bipes    mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst  mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.                http://www.cross-check.com
6119 State Farm Drive   Phone: 707 586-0551 x 1102
Rohnert Park CA  94928  Fax: 707 586-1884

***** Note to Recruiters *****
I nor anyone that I know of is interested in any new and/or exciting
positions. Please do not contact me.
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---