Data commit

Task/Flow-control-structures/COBOL/flow-control-structures-1.cobol

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

Task/Flow-control-structures/COBOL/flow-control-structures-2.cobol

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

Task/Flow-control-structures/COBOL/flow-control-structures-3.cobol

@@ -0,0 +1,13 @@
+           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

Task/Flow-control-structures/COBOL/flow-control-structures-4.cobol

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

Task/Flow-control-structures/COBOL/flow-control-structures-5.cobol

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