case/4/0 Web Publishing: C:\Documents and Settings\hajsman\Dokumenty\Vyuka\Irs2\Projekt case40\Projekt03.csf - Vyhodnocovací funkce Refinements_of

[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
Refinements_of_Flows
(Information Flow)

Vytvořeno:	09-19-1997 09:49:23
Poslední změna:	12-04-2002 13:55:02

Outputs for all data flows in an Information flow their refinements.

Modul

Module: Information Flow

Zdrojový kód:

PROCEDURE Refinements_of_Flows FOR Informationflow
BEGIN
/*
Outputs for all data flows in an Information flow their refinements.
*/

PRINT {"Arial",12,BOLD} "Struktura datových toků v diagramu informačních toků ";
PRINT {"Arial",12,BOLD, ITALIC} CONV$(Boxname),NL;

// Flows into Data Stores
PRINT NL;
PRINT {"Arial",10,BOLD} "Toky do datových schránek:",NL;
found%=0;
FOREACH Fundatflow WHERE Ifd=Name ORDER BY Infoname DO
    FOR Datastructure WHERE Name=Fundatflow.Datastructure AND Type="" DO
        PRINT {BOLD} NL,Infoname;
        found%=1;
        refined%=0;
        CALL Refinements_of_a_Flow(Function,Connectionno,Infoname,8,refined%);
        IF refined%=0 THEN
           PRINT {"ARIAL",9, ITALIC} " není strukturován.";
        END
        PRINT NL;
    END
END
IF found%=0 THEN
    PRINT{"Arial",9,ITALIC} NL,TAB(4), "neobsahuje žádné.",NL;
END

// Flows into External Interfaces
PRINT {"Arial",10,BOLD} NL, "Toky do externích rozhraní:",NL;
found%=0;
FOREACH Funefaflow WHERE Ifd=Name ORDER BY Infoname DO
    FOR Datastructure WHERE Name=Infoname AND Type="" DO
        PRINT {BOLD} NL, Infoname;
        found%=1;
        refined%=1;
        CALL Refinements_of_a_Flow(Function,Connectionno,Infoname,8,refined%);
        IF refined%=0 THEN
           PRINT {"ARIAL",9, ITALIC} " není strukturován.";
        END
        PRINT NL;
    END
END
IF found%=0 THEN
    PRINT{"Arial",9,ITALIC} NL,TAB(4), "neobsahuje žádné.",NL;
END

// Flows to existing Ports
PRINT {"Arial",10,BOLD} NL,"Toky do portů:",NL;
found%=0;
FOREACH Funportflow WHERE Ifd=Name ORDER BY Datastructure DO
    FOR Datastructure WHERE Name=Funportflow.Datastructure DO
        PRINT {BOLD} NL,Name;
        found%=1;
        refined%=0;
        CALL Refinements_of_a_Flow(Function,FConnectionno,Datastructure,8,refined%);
        IF refined%=0 THEN
           PRINT {"ARIAL",9, ITALIC} " není strukturován.";
        END
        PRINT NL;
    END
END
IF found%=0 THEN
    PRINT{"Arial",9,ITALIC} NL,TAB(4), "neobsahuje žádné.",NL;
END

// Flows between functions
PRINT {"Arial",10,BOLD} NL,"Toky mezi funkcemi:",NL;
found%=0;
FOREACH Funfunflow WHERE Ifd=Name ORDER BY Infoname DO
    FOR Datastructure WHERE Name=Infoname AND Type="" DO
        PRINT {BOLD} NL,Infoname;
        found%=1;
        refined%=0;
        // Refinement in Information flow of the Source function
        CALL Refinements_of_a_Flow(Sfname,SConnectionno,Infoname,8,refined%);

        // Refinement in Informaion flow of the Traget function
        CALL Refinements_of_a_Flow(Tfname,TConnectionno,Infoname,8,refined%);
        IF refined%=0 THEN
           PRINT {"ARIAL",9, ITALIC} " není strukturován.";
        END
        PRINT NL;
    END
END
IF found%=0 THEN
    PRINT{"Arial",9,ITALIC} NL,TAB(4), "neobsahuje žádné.",NL;
END

// Flows into internal Interfaces
PRINT {"Arial",10,BOLD} NL, "Toky do interních rozhraní:",NL;
found%=0;
FOREACH Funifaflow WHERE Ifd=Name ORDER BY Infoname DO
    FOR Datastructure WHERE Name=Infoname AND Type="" DO
        PRINT {BOLD} NL,Infoname;
        found%=1;
        refined%=0;
         CALL Refinements_of_a_Flow(Function,FConnectionno,Infoname,8,refined%);
        IF refined%=0 THEN
           PRINT {"ARIAL",9, ITALIC} " není strukturován.";
        END
        PRINT NL;
    END
END
IF found%=0 THEN
    PRINT{"Arial",9,ITALIC} NL,TAB(4), "neobsahuje žádné.",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\6708.htm	(C) microTOOL GmbH 2002