case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce List_DataElements_with_References(modul: Data Structure/Event/Material)

[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_with_References
(Data Structure/Event/Material)

Vytvořeno:	12-11-1995 13:02:05
Poslední změna:	12-03-2002 13:05:59

Outputs a list of the data elements referenced by the specified data structure; for each data element information is given about other elements in the system referencing that data element.

Modul

Module: Data Structure/Event/Material

Zdrojový kód:

PROCEDURE List_DataElements_with_References FOR DATASTRUCTURE
BEGIN
/*
   list data elements of data structure
*/

  PRINT {BOLD,"ARIAL",12} "Datová struktura ";
  PRINT {BOLD,"ARIAL",ITALIC,12} CONV$(Datastructure.Boxname),NL(2);
  PRINT {"ARIAL",10} "Datové elementy a jejich užití:",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 lastData$ <> Attribute.Data THEN
           lastData$= Attribute.Data;
          FOR Data WHERE Name=Attribute.Data DO
            CALL DataElement_with_References(Data.Name);
          END
        END
      END
    ELSE
      IF lastData$ <> Field.Data THEN
        lastData$= Field.Data;
        FOR Data WHERE Data.Name=Field.Data DO
          CALL DataElement_with_References(Data.Name);
        END
      END
    END
  END

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

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\743.htm	(C) microTOOL GmbH 2002