IdentificationDivision. Program-Id. spec. Author. "Hatcliff/Dwyer/Laubach". * "aus Principles of Declarative Programming" * "Springer-verlag, p. 148" DataDivision. LinkageSection. * variables
77 x pic S9(8).
77 y pic S9(8).
77 z pic S9(8). ProcedureDivisionusing x y z. * this is a sample from author
b1. if x=y thengoto b2 elsegoto b3
b2. move 10 to y multiply 3 by z goto b4.
b3. add 2 to x compute y=5*x+y goto b4.
b4. if y<x thengoto b1 elsegoto b5.
b5. iffunction mod(x,2)=0 thengoto b6 elsegoto b1.
b6. stoprun. End-Program spec.
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.