Syntax: Zeilenumbruch

[Robert_G]

Innerhalb von DBs reicht fast immer ein Lf.
Aber ich wüsste nicht wie man das noch weiter Kürzen könnte.

SQL-Code:

call neo.REGVSave(1, 'Option', 'KnownTimeServers', 1, 
                     'rtime.urz.tu-dresden.de' + chr(10) +
                     'www.htw-dresden.de' + chr(10) +
                     'time.ien.it' + chr(10) +
                     'ntps1-0.cs.tu-berlin.de' + chr(10) +
                     'time.fu-berlin.de')

p.s.: Du kannst froh sein, dass in deiner DB mit nur einem "+" konkatiniert wird.
Schaue dir mal den Schnipsel an (PL/SQL) , den ich gerade geschrieben habe. Mit "||" zwischen 2 Strings sieht das noch viieel unübersichtlicher aus.

SQL-Code:

  Begin

    -- just to be sure they're capitalized ;)
    Self.Protocol := upper(Trim(Self.Protocol));
    Self.Panel    := upper(Trim(Self.Panel));

    Savepoint Before_Fetching;

    --Clear Collection

    If Self.List.Count > 0 then
      Self.List.Delete;
    End If;

    Open FetchCur For
      'SELECT TItem(i.Item_Name' || chr(10) || 
      '            ,Decode(p.Seq, Null, p.Panel, ''SEQUENCE'')' || chr(10) ||
      '            ,i.Description' || chr(10) || 
      '            ,i.Derived' || chr(10) || 
      '            ,Decode(p.Seq, Null, 0, 1)' || chr(10) || 
      '            ,Decode(i.i_type, 6, 0, 1)' || chr(10) || 
      '            ,i.DBFmt' || chr(10) || 
      '            ,i.DType' || chr(10) || 
      '            ,i.CodeList' || chr(10) || 
      '            ,Decode(i.Item, p.SubKey, 5, i.i_type))' || chr(10) ||
      'FROM   '||Prot$Context||'_DtDict.Item  i' || chr(10) || 
      '      ,'||Prot$Context||'_DtDict.Panel p' || chr(10) || 
      'WHERE  p.Protocol = :i_Protocol And' || chr(10) || 
      '       p.Protocol = i.Protocol  And' || chr(10) || 
      '       p.Panel    = :i_Panel    And' || chr(10) || 
      '       p.Panel    = i.Panel' || chr(10) || 
      'ORDER  BY i.i_Type' || chr(10) || 
      '         ,i.Item_Name'
      Using Self.Protocol, Self.Panel;
  
    Fetch FetchCur Bulk Collect
      Into Self.List;

    Self.CountKeys := Self.List.Count;

  Exception
    When Others Then
      Rollback To Savepoint Before_Fetching;
      Raise;
  End;