wn/cobolplayground
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

second program

Browse Source
This commit is contained in:
Wolfgang Hottgenroth 2020-03-27 23:22:14 +01:00
parent 8e67760924
commit 71213662cf
No known key found for this signature in database
GPG Key ID: 656C88C7C1734267
3 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitignore vendored
View File

@ -1 +1,3 @@
shortProgram
program1

12
program1.cob Normal file
View File

@ -0,0 +1,12 @@
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".