IdentificationDivision. Program-Id. Copier. DataDivision. Working-StorageSection. 77 temp-empno pic9(8). 77 temp-empname pic X(32).
Copy OWNCA replacing ==SQL== by ==M== ProcedureDivision. * dies ist ein Nonsenseprogramm move1to temp-empno. performuntil temp-empno > 100 display"temp-empno is"temp-empno add1to temp-empno end-perform. display"End at temp-empno="temp-empno. End-Program Copier.
Messung V0.5 in Prozent
¤ 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.0.12Bemerkung:
(vorverarbeitet am 2026-06-15)
¤
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 und die Messung sind noch experimentell.