Add missing printing for Comp-2 and Comp-3

Author: ddeclerck

src/lsp/cobol_ast/data_descr.ml

@@ -493,6 +493,8 @@ let pp_usage_clause ppf usage =
     match comp with
     | `Comp0 -> Fmt.pf ppf "COMP-0"
     | `Comp1 -> Fmt.pf ppf "COMP-1"
+    | `Comp2 -> Fmt.pf ppf "COMP-2"
+    | `Comp3 -> Fmt.pf ppf "COMP-3"
     | `Comp5 -> Fmt.pf ppf "COMP-5"
     | `Comp6 -> Fmt.pf ppf "COMP-6"
     | `CompX -> Fmt.pf ppf "COMP-X"
@@ -903,4 +905,4 @@ let pp_comm_clause ppf = function
   | CommTextLength n -> Fmt.pf ppf "TEXT LENGTH IS %a" pp_name' n
   | CommStatusKey n -> Fmt.pf ppf "STATUS KEY IS %a" pp_name' n
   | CommEndKey n -> Fmt.pf ppf "END KEY IS %a" pp_name' n
-  | CommErrorKey n -> Fmt.pf ppf "ERROR KEY IS %a" pp_name' n
+  | CommErrorKey n -> Fmt.pf ppf "ERROR KEY IS %a" pp_name' n