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

Vytvořeno:	09-15-1997 13:56:38
Poslední změna:	12-04-2002 13:56:04

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

Modul

Module: Information Flow

Zdrojový kód:

PROCEDURE Refinements_of_Stores FOR Informationflow
BEGIN
/*
Outputs for all data stores in the Information flow their refinements
*/

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

foundstore%=0;
splitted%=0;
FOREACH Store WHERE Ifd=Informationflow.Name ORDER BY Datastructure DO
    FOR Datastructure WHERE Name= Store.Datastructure AND Type ="" DO
        foundstore%=1;
        CALL Refinements_of_a_Store(Store.Ifd,Store.Datastructure,Store.Storeno,splitted%);
        IF splitted%=0 THEN
          PRINT {"Arial",9,ITALIC} "není členěna.",NL;
        END
        PRINT NL;
    END
END

IF foundstore%=0 THEN
    PRINT {"Arial",10,ITALIC} TAB(4),"neobsahuje žádné paměti.",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\29841.htm	(C) microTOOL GmbH 2002