cobol_char_type

cobol_char_type 
      ::= 
      [ "character" "set" [ "is" ] 
      char_set_spec ] 
      ( "pic" | "picture" ) [ "is" ] { "x" [ "(" length ")" ] } 

This rule is called by

-> cobol_type_spec