PROCEDURE DIVISION

 
CALL 'CBLDCUTL' USING identifier-1 identifier-2 identifier-3
 

DATA DIVISION

 
01 identifier-1.
   02 data-name-A PIC X(8)  VALUE 'CODECNV  '.
   02 data-name-B PIC X(5).
   02 FILLER     PIC X(3).
   02 data-name-C PIC S9(9) COMP VALUE ZERO.
   02 data-name-D PIC S9(9) COMP.
01 identifier-2.
   02 data-name-E PIC S9(9) COMP.
   02 data-name-F PIC X(n).
01 identifier-3.
   02 data-name-G PIC S9(9) COMP.
   02 data-name-H PIC X(n).
 

• Converts the character strings consisting of JIS code or Shift JIS code into character strings of EBCDIC/EBCDIK code or KEIS code.
• Converts the character strings consisting of EBCDIC/EBCDIK code or KEIS code into character strings of JIS code or Shift JIS code.

• data-name-A
  Set VALUE 'CODECNV' as a request code for character code conversion.
  
• data-name-C
  Specify the total number of options to be used as the conversion condition (conversion option).
  0: Default (this condition is assumed if no option is specified).
  
  • EBCDIK code is used.
  • Two-byte spaces remain the same.
  • The 1983 version of the KEIS code is used.
  • An error occurs if an invalid code is found.
  • A tab or control code is not identified to be single-byte. No shift code is available even for just the preceding or succeeding two-byte code if any.

  1: EBCDIC code is used.

  2: A two-byte space is converted to two spaces. This specification is valid only when the value of data-name-D is 1.

  4: The 1978 version of the KEIS code is used.

  8: An invalid code is converted to a space.

  16: A tab code is identified to be single-byte. A shift code is given to just the preceding or succeeding two-byte code if any.

  32: A control code is identified to be single-byte. A shift code is given to just the preceding or succeeding two-byte code if any.

• data-name-D
  Specify the conversion method.
  

  1: Converts the character strings consisting of JIS code or Shift JIS code into character strings of EBCDIC/EBCDIK code or KEIS code.

  2: Converts the character strings consisting of EBCDIC/EBCDIK code or KEIS code into character strings of JIS code or Shift JIS code.

• data-name-E
  Specify the length of the character string to be converted. 1 to DCRPC_MAX_MESSAGE_SIZE can be specified.
  
• data-name-F
  Specify the character string to be converted.
  
• data-name-G
  Specify the size of the area that receives the converted character string.
  
• data-name-H
  Specify the area for storing the converted character string. This area must be larger than the length specified for data-name-G.
  

• data-name-B
  A status code is returned using a five-digit number.
  
• data-name-G
  The length of the converted character string is returned.
  
• data-name-H
  The converted character string is returned.
  

Status code	Meaning
00000	Normal termination
02501	Invalid value for the data name. The request code (data-name-A) may be invalid.
02504	Insufficient memory. The program returns this code also when the specified character length covers the first byte of a two-byte code that is contained in the character string to be converted.
02550	An invalid code is found in the character string.
02551	The length of the converted character string exceeds the area prepared by the CUP.

• When you specify 2 for data-name-D and 16 or 32 for data-name-C, you need to prepare data that contains single-byte tab or control codes.
• For details about code conversion specifications, see A. Code Conversion Specifications.