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 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".

4
shortProgram.cob
View File

@ -3,6 +3,6 @@
000030 AUTHOR. Wolfgang Hottgenroth. 000030 AUTHOR. Wolfgang Hottgenroth.
000040 PROCEDURE DIVISION. 000040 PROCEDURE DIVISION.
000050 DisplayPrompt. 000050 DisplayPrompt.
000060 DISPLAY "I did it". 000060 DISPLAY "I did it".
000070 STOP RUN. 000070 STOP RUN.