International Components for Unicode (ICU)

The International Components for Unicode (ICU), option 39, is a C and C++ library that provides Unicode services for writing global applications in ILE programming languages. ICU offers flexibility to extend and customize the supplied services, which include:

• Text: Unicode text handling, full character properties and character set conversions (500+ codepages)
• Analysis: Unicode regular expressions; full Unicode sets; character, word and line boundaries
• Comparison: Language sensitive collation and searching
• Transformations: normalization, upper/lowercase, script transliterations (50+ pairs)
• Locales: Comprehensive locale data (230+) and resource bundle architecture
• Complex Text Layout: Arabic, Hebrew, Indic and Thai
• Time: Multi-calendar and time zone
• Formatting and Parsing: dates, times, numbers, currencies, messages, and rule-based

ICU is an open source development project sponsored, supported, and used by IBM^(R). ICU provides over 200 APIs that you can use to process Unicode data in your ILE application. See the RPG example and COBOL example for example code that calls an ICU API.

Additional information about ICU can be found at International Components for Unicode.

Example of RPG program calling an ICU API

See Code disclaimer information for information pertaining to code examples.

This ILE RPG program example calls the u_isdigit ICU API to check whether the Unicode character is a digit.

 H DftActGrp(*NO) BndDir('QICU/QXICUAPIBD')                                  
 DIsDigit          pr            10i 0 extproc('u_isdigit')                  
 D                               10u 0 value                                 
 DMapping          ds                                                        
 D ch                            10u 0 inz(0)                                
 D UCSChar                 3      4c                                         
 DRtnCode          s             10i 0                                       
 DTrue             c                   1                                     
 C                   eval      UCSChar = %UCS2('A')                          
 C                   eval      RtnCode = IsDigit(ch)                         
 C                   exsr      Check                                         
 C                   eval      UCSChar = %UCS2('1')                          
 C                   eval      RtnCode = IsDigit(ch)                         
 C                   exsr      Check                                         
 C                   eval      *inlr = '1'                                   
 C                   return                                                  
 C     Check         begsr                                                   
 C     UCSChar       dsply                                                   
 C                   if        RtnCode = True                                
 C     'Is digit'    dsply                                                   
 C                   else                                                    
 C     'Not digit'   dsply                                                   
 C                   endif   
 C                   endsr 
 

Example of COBOL program calling an ICU API

See Code disclaimer information for information pertaining to code examples.

This ILE COBOL program example calls the u_isdigit ICU API to check whether the Unicode character is a digit.

       PROCESS NOMONOPRC NATIONAL.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ISDIGIT.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  char.
           05 filler           PIC S9(04) BINARY VALUE 0.
           05 UCSChar          PIC  N(01).
       01  Rtn                 PIC S9(09) BINARY.
       PROCEDURE DIVISION.
       MAIN-LINE.
           MOVE "A" to UCSChar.
           CALL LINKAGE PRC "u_isdigit" USING BY VALUE char GIVING Rtn.
           PERFORM CHECK.
           MOVE "1" to UCSChar.
           CALL LINKAGE PRC "u_isdigit" USING BY VALUE char GIVING Rtn.
           PERFORM CHECK.
           STOP RUN.
       CHECK.
           DISPLAY UCSChar.
           IF Rtn = 1
              DISPLAY "Is digit"
           ELSE
              DISPLAY "Not digit"