KFK2666.pdf

7-7
'7.4.3 statement ZUSTANDSGLEICHUNG
STATEMENT 'ZUST.AND';
NR DRUCK=NR DRUCK 1J
EXECJ
DCL PRDCNAME CHAR(8)J
PRDCNAME= 'ZUST' 11 NR DRUCK J
PRDCNAME:PROC(R,T)RETURNS(ffIN FLDAT(21))J
DCL(R,T)BIN FLOAT(21) J
RETURN(NEXT EXPRESSION);
END PROCNAMEJ
DRUCK=PROCNAMEJ
END EXECJ
END STATEMENTJ
7.4.4 Benutzungsanleitung
Syntax: ZUSTAND expression;
-237-
Semantik: expression ist ein Ausdruck in den Variablen Rund T
(und evtl. anderen Variablen), der den Druck als
Funktion der Dichte R und Temperatur T berechnet.
Alle Variablen sind BIN FLOAT(21).
7.4.5 Anwendungsbeispiel
ENTER SSSJ
ZUSTAND DRUCK(R,T)J
DRUCK:PROC(R,T)RETURNS(BIN FLOAT(21));
DCL(R,T)BIN FLOAT(21);
IX Eine Prozedur die DRUCK errechnet xI
END DRUCK;