13 lines
375 B
COBOL
13 lines
375 B
COBOL
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".
|