diff --git a/libgcobol/common-defs.h b/libgcobol/common-defs.h
index 5a1740d3ff3b810f7b5f469f8a32e66b6fa81986..088b51342b3ee798f9dd14f54d07ab69c8f48ab7 100644
--- a/libgcobol/common-defs.h
+++ b/libgcobol/common-defs.h
@@ -293,6 +293,80 @@ enum cbl_encoding_t {
   custom_encoding_e,
 };
 
+enum cbl_truncation_mode {
+    trunc_std_e,
+    trunc_opt_e,
+    trunc_bin_e,
+};
+
+enum cbl_inspect_bound_t {
+                bound_characters_e,
+                bound_all_e,
+                bound_first_e,
+                bound_leading_e,
+                bound_trailing_e,
+};
+
+// a SPECIAL-NAME
+enum special_name_t {
+  SYSIN_e, SYSIPT_e, SYSOUT_e,
+  SYSLIST_e, SYSLST_e,
+  SYSPUNCH_e, SYSPCH_e,
+  CONSOLE_e,
+  C01_e, C02_e, C03_e, C04_e, C05_e, C06_e,
+  C07_e, C08_e, C09_e, C10_e, C11_e, C12_e,
+  CSP_e,
+  S01_e, S02_e, S03_e, S04_e, S05_e,
+  AFP_5A_e,
+  STDIN_e, STDOUT_e, STDERR_e, SYSERR_e,
+  ARG_NUM_e, ARG_VALUE_e, ENV_NAME_e, ENV_VALUE_e, 
+};
+
+enum classify_t {
+  ClassInvalidType,
+  ClassNumericType,
+  ClassAlphabeticType,
+  ClassLowerType,
+  ClassUpperType,
+  ClassDbcsType,
+  ClassKanjiType,
+};
+
+static inline const char *
+classify_str( enum classify_t classify ) {
+  switch(classify) {
+  case ClassInvalidType:    return "ClassInvalidType";
+  case ClassNumericType:    return "ClassNumericType";
+  case ClassAlphabeticType: return "ClassAlphabeticType";
+  case ClassLowerType:      return "ClassLowerType";
+  case ClassUpperType:      return "ClassUpperType";
+  case ClassDbcsType:       return "ClassDbcsType";
+  case ClassKanjiType:      return "ClassKanjiType";
+  };
+  return "(unknown classification)";
+}
+
+static inline const char *
+cbl_file_mode_str( cbl_file_mode_t mode ) {
+  switch(mode) {
+  case file_mode_none_e:   return "file_mode_none_e";
+  case file_mode_input_e:  return "file_mode_input_e: 'r'";
+  case file_mode_output_e: return "file_mode_output_e: 'w'";
+  case file_mode_io_e:     return "file_mode_io_e: '+'";
+  case file_mode_extend_e: return "file_mode_extend_e: 'a'";
+  }
+  return "???";
+};
+
+enum module_type_t {
+  module_activating_e, 
+  module_current_e, 
+  module_nested_e, 
+  module_stack_e, 
+  module_toplevel_e,
+};
+
+
 enum ec_disposition_t {
   ec_category_none_e,
   ec_category_fatal_e,
@@ -599,79 +673,6 @@ T enabled_exception_match( T beg, T end, ec_type_t type, size_t file ) {
   return output;
 }
 
-enum cbl_truncation_mode {
-    trunc_std_e,
-    trunc_opt_e,
-    trunc_bin_e,
-};
-
-enum cbl_inspect_bound_t {
-                bound_characters_e,
-                bound_all_e,
-                bound_first_e,
-                bound_leading_e,
-                bound_trailing_e,
-};
-
-// a SPECIAL-NAME
-enum special_name_t {
-  SYSIN_e, SYSIPT_e, SYSOUT_e,
-  SYSLIST_e, SYSLST_e,
-  SYSPUNCH_e, SYSPCH_e,
-  CONSOLE_e,
-  C01_e, C02_e, C03_e, C04_e, C05_e, C06_e,
-  C07_e, C08_e, C09_e, C10_e, C11_e, C12_e,
-  CSP_e,
-  S01_e, S02_e, S03_e, S04_e, S05_e,
-  AFP_5A_e,
-  STDIN_e, STDOUT_e, STDERR_e, SYSERR_e,
-  ARG_NUM_e, ARG_VALUE_e, ENV_NAME_e, ENV_VALUE_e, 
-};
-
-enum classify_t {
-  ClassInvalidType,
-  ClassNumericType,
-  ClassAlphabeticType,
-  ClassLowerType,
-  ClassUpperType,
-  ClassDbcsType,
-  ClassKanjiType,
-};
-
-static inline const char *
-classify_str( enum classify_t classify ) {
-  switch(classify) {
-  case ClassInvalidType:    return "ClassInvalidType";
-  case ClassNumericType:    return "ClassNumericType";
-  case ClassAlphabeticType: return "ClassAlphabeticType";
-  case ClassLowerType:      return "ClassLowerType";
-  case ClassUpperType:      return "ClassUpperType";
-  case ClassDbcsType:       return "ClassDbcsType";
-  case ClassKanjiType:      return "ClassKanjiType";
-  };
-  return "(unknown classification)";
-}
-
-static inline const char *
-cbl_file_mode_str( cbl_file_mode_t mode ) {
-  switch(mode) {
-  case file_mode_none_e:   return "file_mode_none_e";
-  case file_mode_input_e:  return "file_mode_input_e: 'r'";
-  case file_mode_output_e: return "file_mode_output_e: 'w'";
-  case file_mode_io_e:     return "file_mode_io_e: '+'";
-  case file_mode_extend_e: return "file_mode_extend_e: 'a'";
-  }
-  return "???";
-};
-
-enum module_type_t {
-  module_activating_e, 
-  module_current_e, 
-  module_nested_e, 
-  module_stack_e, 
-  module_toplevel_e,
-};
-
 
 
 #endif