Informační tok Funkční structura Datová struktura ER model Modulová struktura Typová struktura Relační model Dokumentace


[Celkový datový model] [Funkce] [Externí rohraní] [Stavové diagramy] [Datové elementy] [Entity] [Relace]
[Databáze] [Události] [Materiály] [Generovací funkce] [Vyhodnocovací funkce] [Konfigurace] [Uživatelé] [Projekt] [Home]


Vyhodnocovací funkce
List_DataElements
(Data Structure/Event/Material)

Vytvořeno: 12-11-1995 13:01:43
Poslední změna: 12-03-2002 13:05:50
Outputs a list of all data elements referenced by the elements in the specified data structure.
Modul

Module: Data Structure/Event/Material

Zdrojový kód:

PROCEDURE List_DataElements FOR DATASTRUCTURE
BEGIN
/*
   list data elements referenced by data structure
*/

  PRINT {BOLD,"ARIAL",12} "Datové elementy v datové struktuře ";
  PRINT {BOLD,"ARIAL",ITALIC,12} CONV$(Datastructure.Boxname),NL(2);
  lastData$ = "";
  FOREACH Field WHERE Field.Datastructure=Datastructure.Name ORDER BY Data DO
    IF Attribute<>"" THEN
      FOR Attribute WHERE Name=Field.Attribute
                      AND Entity=Field.Entity DO
        IF Attribute.Data <> lastData$ THEN
          lastData$= Attribute.Data;
          FOR Data WHERE Name=Attribute.Data DO
            PRINT {BOLD,"ARIAL",10} Data.Boxname,NL;
            CALL Information_about_DataElement_2 FOR Data;
          END
        END
      END
    ELSE
      IF lastData$ <> Field.Data THEN
        lastData$= Field.Data;
        FOR Data WHERE Data.Name=Field.Data DO
          PRINT {BOLD,"ARIAL",10} Data.Boxname,NL;
          CALL Information_about_DataElement_2 FOR Data;
        END
      END
    END
  END

  IF lastData$ = "" THEN
    PRINT {"ARIAL",10,ITALIC} TAB(4),"Do datové struktury nejsou referencovány žádné datové elementy.",NL;
  END

  PRINT NL;

END
Generováno: 16.10.2003 7:41 Systém: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf Generováno systémem case/4/0
Vygeneroval: Administrator Soubor: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\html\23976.htm (C) microTOOL GmbH 2002