aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/Flow-control-structures/COBOL/flow-control-structures-1.cobol
View file

@ -1,8 +0,0 @@
PROGRAM-ID. Go-To-Example.
PROCEDURE DIVISION.
Foo.
DISPLAY "Just a reminder: GO TOs are evil."
GO TO Foo
.

4
Task/Flow-control-structures/COBOL/flow-control-structures-2.cobol
View file

@ -1,4 +0,0 @@
GO TO First-Thing Second-Thing Third-Thing
DEPENDING ON Thing-To-Do
* *> Handle invalid thing...

13
Task/Flow-control-structures/COBOL/flow-control-structures-3.cobol
View file

@ -1,13 +0,0 @@
EVALUATE Thing-To-Do
WHEN 1
* *> Do first thing...
WHEN 2
* *> Do second thing...
WHEN 3
* *> Do third thing...
WHEN OTHER
* *> Handle invalid thing...
END-EVALUATE

38
Task/Flow-control-structures/COBOL/flow-control-structures-4.cobol
View file

@ -1,38 +0,0 @@
identification division.
program-id. altering.
procedure division.
main section.
*> And now for some altering.
contrived.
ALTER story TO PROCEED TO beginning
GO TO story
.
*> Jump to a part of the story
story.
GO.
.
*> the first part
beginning.
ALTER story TO PROCEED to middle
DISPLAY "This is the start of a changing story"
GO TO story
.
*> the middle bit
middle.
ALTER story TO PROCEED to ending
DISPLAY "The story progresses"
GO TO story
.
*> the climatic finish
ending.
DISPLAY "The story ends, happily ever after"
.
*> fall through to the exit
exit program.

23
Task/Flow-control-structures/COBOL/flow-control-structures-5.cobol
View file

@ -1,23 +0,0 @@
PROGRAM-ID. Perform-Example.
PROCEDURE DIVISION.
Main.
PERFORM Moo
PERFORM Display-Stuff
PERFORM Boo THRU Moo
GOBACK
.
Display-Stuff SECTION.
Foo.
DISPLAY "Foo " WITH NO ADVANCING
.
Boo.
DISPLAY "Boo " WITH NO ADVANCING
.
Moo.
DISPLAY "Moo"
.