pl1_type_spec

pl1_type_spec 
      ::= 
      ( "char" | "character" ) [ "varying" ] 
      "(" length ")" 
      [ "character" "set" 
      [ "is" ] char_set_spec ] 
      | "bit" [ "varying" ] "(" length ")" 
      | pl1_type_fixed_decimal "(" precision 
      [ "," scale ] ")" 
      | pl1_type_fixed_binary [ "(" precision ")" ] 
      | pl1_type_float_binary "(" precision ")" 

This rule is called by

-> pl1_variable_def