EQA1838E The DBCS representation of the underscore was the first character in a DBCS name.

Explanation

COBOL DBCS names cannot have a leading DBCS underscore.