Untersuchungsergebnis.bak Download desBAT {BAT[175] Abap[194] [0]}zum Wurzelverzeichnis wechseln
*------------------------------------------
* maximum from 3 values
* Softwaretechnik Trends Band 44 Heft 4
*------------------------------------------
Identification Division.
Program-Id. Max.
Author. Andreas Spillner/HS-Bremen.
Data Division.
Linkage Section.
77 x pic 9(4).
77 y pic 9(4).
77 z pic 9(4).
77 max pic 9(4).
Procedure Division using x, y, z returning max.
* Beispiel mit Fehler
move 0 to max
if x>z then
move x to max;
if x>z then
move x to max;
if x>z then
move x to max;
* max wird zurückgegeben
End-Program Max.
[ zur Elbe Produktseite wechseln0.118Quellennavigators
]
