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
Function_with_References
(Function)

Vytvořeno: 12-08-1995 16:11:29
Poslední změna: 12-04-2002 10:03:30
Lists for a System Analysis function all information flows, internal interfaces, recurrent structures, or design functions referencing the function.
Modul

Module: Function

Zdrojový kód:

PROCEDURE Function_with_References(Name$)
BEGIN
/*
  print reference list for function
*/
  found%=0;
  FOR Function WHERE Name=Name$ DO
    PRINT {BOLD,"ARIAL",10} CONV$(Boxname),NL;
  
    //as function in FSD
    FOREACH Func WHERE Function.Name=Func.Function ORDER BY Fsd DO
      FOR Functionstructure WHERE Functionstructure.Name=Func.Fsd DO
        found%=1;
        PRINT {"ARIAL",8} TAB(4),"Funkční struktura:";
        PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(Boxname);
        IF Function.Reusable <> 0 THEN
          PRINT {"ARIAL",8} TAB(36),"(opakující se struktura)";
        END
        PRINT NL;
      END
    END
    //as part
    FOREACH Part WHERE Part.Name=Function.Name ORDER BY Fsd DO
      FOR Functionstructure WHERE Functionstructure.Name=Part.Fsd DO
        found%=1;
        PRINT {"ARIAL",8} TAB(4),"Funkční struktura:";
        PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(Boxname);
        IF Function.Reusable <> 0 THEN
          PRINT {"ARIAL",8} TAB(36),"(opakující se struktura)";
        ELSE
          PRINT {"ARIAL",8} TAB(36),"(part)",NL;
        END
      END
    END
    // as Funcdef
    FOREACH Implementation WHERE Function=Function.Name DO
      FOREACH Funcdef WHERE Funcdef.Funcdefno=Implementation.Funcdefno
                        AND Funcdef.Module=Implementation.Module ORDER BY Module DO
        FOR Module WHERE Module.Name=Funcdef.Module DO
          found%=1;
          PRINT {"ARIAL",8} TAB(4),"Modulová struktura:";
          PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(Module.Boxname);
          PRINT {"ARIAL",8} TAB(36),"(Funkce: ",CONV$(Funcdef.Boxname),")",NL;
        END
      END
    END
    //as function in IFD
    FOREACH Ifunc WHERE Function.Name=Ifunc.Function ORDER BY Ifd DO
      FOR Informationflow WHERE Ifunc.Ifd=Informationflow.Name DO
        found%=1;
        PRINT {"ARIAL",8} TAB(4),"Informační tok:";
        PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(Boxname);
        IF Function.Reusable <> 0 THEN
          PRINT {"ARIAL",8} TAB(36),"(opakující se struktura)";
        END
        PRINT NL;
      END
    END
    // as internal interface
    FOREACH Iface WHERE Iface.Function=Function.Name ORDER BY Ifd DO
      FOR Informationflow WHERE Iface.Ifd=Informationflow.Name DO
        found%=1;
        PRINT {"ARIAL",8} TAB(4),"Informační tok:";
        PRINT {"ARIAL",8,ITALIC} TAB(18),CONV$(Boxname);
        PRINT {"ARIAL",8} TAB(36),"(interní rozhraní)",NL;
      END
    END
    
    IF found%=0 THEN
      PRINT {"ARIAL",10,ITALIC} TAB(4),"Funkce nemá žádné reference.",NL;
    END
    PRINT NL;
  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\13184.htm (C) microTOOL GmbH 2002