================================================================================
Preprocessor split between procedure header and body
================================================================================

codeunit 134 "No. Series Setup Impl."
{
    procedure ValidateDefaultNos(var NoSeries: Record "No. Series")
#if not CLEAN24
#pragma warning disable AL0432
    var
        IsHandled: Boolean;
    begin
        IsHandled := false;
#pragma warning restore AL0432
#else
    begin
#endif
        exit(true);
    end;
}

--------------------------------------------------------------------------------

(source_file
  (codeunit_declaration
    (codeunit_keyword)
    object_id: (integer)
    object_name: (quoted_identifier)
    (procedure
      (procedure_keyword)
      name: (identifier)
      (parameter_list
        (parameter
          modifier: (var_keyword)
          name: (identifier)
          type: (type_specification
            (record_type
              reference: (quoted_identifier)))))
      (preproc_conditional_var_block
        (preproc_if
          condition: (preproc_not_expression
            (identifier)))
        (pragma)
        (var_section
          (var_keyword)
          (variable_declaration
            name: (identifier)
            type: (type_specification
              (basic_type))))
        (preproc_endif
          (MISSING "#endif")))
      (code_block
        (assignment_statement
          left: (identifier)
          right: (boolean))
        (pragma)
        (ERROR)
        (exit_statement
          (exit_keyword)
          return_value: (boolean))))))
