To prevent this, insert a Local-Storage Section declaration immediately after the Working-Storage Section in the %ProgramFiles(x86)%\Micro Focus\Enterprise Developer\src\codeset\csnnnn.cbl file, where nnnn is the 4-digit country code.
md mylang cd mylang
mkdir mylang cd mylang
set mfcodeset=nnnn
export MFCODESET=nnnn
where nnnn is the supported 4-digit country code whose character set conversion tables are most similar to the customized versions you want to create.
codecomp /p mapfile.a2e mapfile.e2a
The files mapfile.a2e and mapfile.e2a are created in the current folder.
codecomp mapfile.a2e mapfile.e2a
A file codeset.cpy is created in the current folder.
copy "%ProgramFiles(x86)%\Micro Focus\Enterprise Developer\src\codeset\csnnnn.cbl" csnnnn.cbl
cp $COBDIR/src/codeset/csnnnn.cbl csnnnn.cbl
where %ProgramFiles(x86)%\Micro Focus\Enterprise Developer is your installation directory and nnnn is a number between 2000 through 9999 (excluding 9122) that you use to refer to your customized codeset module.
cobol csnnnn.cbl omf(gnt);
cob -u csnnnn.cbl
copy csnnnn.gnt "%ProgramFiles%\Micro Focus\Enterprise Developer\bin"
copy csnnnn.gnt "%ProgramFiles(x86)%\Micro Focus\Enterprise Developer\bin64"
cp csnnnn.gnt $COBDIR/bin
where %ProgramFiles(x86)%\Micro Focus\Enterprise Developer is your installation directory and nnnn is the customized codeset number.