A cláusula CODE-SET especifica o código de caractere usado para representar dados em um arquivo de fita magnética.
Quando a cláusula CODE-SET é especificada, um nome de alfabeto identifica a convenção do código de caractere usada para representar dados no dispositivo de entrada e saída.

alphabet-name deve ser definido no parágrafo SPECIAL-NAMES como STANDARD-1 (para arquivos codificados em ASCII), STANDARD-2 (para arquivos codificados em ISO 7 bits), EBCDIC (para arquivos codificados em EBCDIC) ou NATIVE.
Quando NATIVE é especificado, a cláusula CODE-SET é verificada quanto à sintaxe, mas não afeta a execução do programa.

A cláusula CODE-SET também especifica o algoritmo para converter os códigos de caracteres na mídia de entrada e saída de e para o conjunto de caracteres EBCDIC interno.

Quando a cláusula CODE-SET é especificada para um arquivo, todos os dados no arquivo devem ter USAGE DISPLAY; e se houver dados numéricos assinados, eles deverão ser descritos com a cláusula SIGN IS SEPARATE.

Quando a cláusula CODE-SET é omitida, o conjunto de caracteres EBCDIC é assumido para o arquivo.

Se o conector de arquivo associado for um conector de arquivo externo, todas as cláusulas CODE-SET na unidade de execução associadas ao conector de arquivo deverão ter o mesmo conjunto de caracteres.

A cláusula CODE-SET é válida apenas para arquivos de fita magnética.

A cláusula CODE-SET é verificada em sintaxe, mas não afeta a execução do programa quando especificado em um SD.