Logo

Programming-Idioms

History of Idiom 50 > diff from v52 to v53

Edit summary for version 53 by Roie8:
[Cobol] fix

Version 52

2019-09-27, 20:21:44

Version 53

2019-09-27, 20:22:33

Idiom #50 Make an infinite loop

Write a loop which has no end clause.

Idiom #50 Make an infinite loop

Write a loop which has no end clause.

Code
IDENTIFICATION DIVISION.
PROGRAM-ID. hello 10 times.
PROCEDURE DIVISION.
PERFORM UNTIL 1 < 0
   DISPLAY "Something"
END-PERFORM
STOP RUN.
Code
IDENTIFICATION DIVISION.
PROGRAM-ID. no end loop.
PROCEDURE DIVISION.
PERFORM UNTIL 1 < 0
   DISPLAY "Something"
END-PERFORM
STOP RUN.