000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. Program1.
000030 AUTHOR. Wolfgang Hottgenroth.
000040 DATA DIVISION.
000050 WORKING-STORAGE SECTION.
000060 01  IterNum   PIC 9 VALUE 5.
000070 PROCEDURE DIVISION.
000080 BeginProgram.
000090     PERFORM DisplayGreeting IterNum TIMES.
000100     STOP RUN.
000110 DisplayGreeting.
000120     DISPLAY "Greetings from COBOL".