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_References_to_TypeStructure
(Type Structure)

Vytvořeno: 04-18-1996 16:03:39
Poslední změna: 12-10-2002 13:55:06
Outputs a list of all the data structures, modules, and databases referencing the specified data structure.
Modul

Module: Type Structure

Zdrojový kód:

PROCEDURE List_References_to_TypeStructure FOR TYPESTRUCTURE
BEGIN
/*
   list references to type structure
*/

  first%=0;
  PRINT {BOLD,"ARIAL",12} "Typová struktura ";
  PRINT {BOLD,"ARIAL",12,ITALIC} CONV$(Boxname),NL(2);
  PRINT {"ARIAL",10} "Typová struktura ", Boxname, " má reference na/do:",NL;

  // data structure
  FOREACH Datastructure WHERE Typestructure.Datastructure=Datastructure.Name ORDER BY Name DO
    first%=1;
    PRINT {"ARIAL",8} TAB(4),"Datová struktura:";
    PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(Datastructure.Boxname),NL;
  END

  // type structure as Part
  FOREACH Tpart WHERE Typestructure.Name=Tpart.Tpartname ORDER BY Typestructure DO
    FOR Typestructure AS TS WHERE TS.Name=Tpart.Typestructure DO
      first%=1;
      PRINT {"ARIAL",8} TAB(4),"Typová struktura:";
      PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(TS.Boxname),NL;
    END
  END

  // type structure as Typeref
  FOREACH Typeref WHERE Typeref.Typestructure=Typestructure.Name ORDER BY Module DO
    FOR Module WHERE Module.Name=Typeref.Module DO
      first%=1;
      PRINT {"ARIAL",8} TAB(4),"Modulová struktura:";
      PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(Module.Boxname),NL;
      PRINT {"ARIAL",8} TAB(36),"(typová struktura ";
      PRINT {"ARIAL",8,ITALIC} CONV$(Typeref.Boxname);
      PRINT {"ARIAL",8} ")",NL;
    END
  END

  IF first%=0 THEN
    PRINT {"ARIAL",10,ITALIC} TAB(4),"Typová struktura nemá žádné reference.",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\21073.htm (C) microTOOL GmbH 2002