|
identification division.
program-id. nonsense.
author. "JD".
date-written. 20.3.2006.
date-compiled.
data division.
working-storage section.
77 feld pic B9(4).999.
procedure division.
* computes r=101
move zero to feld.
if feld is zero then
display "Zero"
else
display "nicht Zero"
end-if.
end-program nonsense.
¤ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
