Data commit

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-1.cobol

@@ -0,0 +1,27 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Loop-N-And-Half.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  I    PIC 99.
+       01  List PIC X(45).
+
+       PROCEDURE DIVISION.
+           PERFORM FOREVER
+               *> The list to display must be built up because using
+               *> DISPLAY adds an endline at the end automatically.
+               STRING FUNCTION TRIM(List) " "  I  INTO List
+
+               IF I = 10
+                   EXIT PERFORM
+               END-IF
+
+               STRING FUNCTION TRIM(List) "," INTO List
+
+               ADD 1 TO I
+           END-PERFORM
+
+           DISPLAY List
+
+           GOBACK
+           .

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-2.cobol

@@ -0,0 +1,18 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. LOOP-1p5-NOADV.
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01  I    PIC 99 VALUE 1.
+01	IDISP	PIC Z9.
+PROCEDURE DIVISION.
+	PERFORM FOREVER
+		MOVE I TO IDISP
+		DISPLAY FUNCTION TRIM(IDISP) WITH NO ADVANCING
+		IF I = 10
+			EXIT PERFORM
+		END-IF
+		DISPLAY ", " WITH NO ADVANCING
+		ADD 1 TO I
+	END-PERFORM.
+	STOP RUN.
+	END-PROGRAM.

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-3.cobol

@@ -0,0 +1,18 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. LOOP-1p5-NOADV-GOTO.
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01  I	PIC 99	VALUE 1.
+	88	END-LIST	VALUE 10.
+01	I-OUT	PIC Z9.
+PROCEDURE DIVISION.
+01-LOOP.
+	MOVE I TO I-OUT.
+	DISPLAY FUNCTION TRIM(I-OUT) WITH NO ADVANCING.
+	IF END-LIST GO TO 02-DONE.
+	DISPLAY ", " WITH NO ADVANCING.
+	ADD 1 TO I.
+	GO TO 01-LOOP.
+02-DONE.
+	STOP RUN.
+	END-PROGRAM.

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-4.cobol

@@ -0,0 +1,17 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. LOOP-1p5-NOADV-VARY.
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01  I    	PIC 99  VALUE 1.
+	88	END-LIST	VALUE 10.
+01	I-OUT	PIC Z9.
+PROCEDURE DIVISION.
+	PERFORM WITH TEST AFTER VARYING I FROM 1 BY 1 UNTIL END-LIST
+		MOVE I TO I-OUT
+		DISPLAY FUNCTION TRIM(I-OUT) WITH NO ADVANCING
+		IF NOT END-LIST
+			DISPLAY ", " WITH NO ADVANCING
+		END-IF
+	END-PERFORM.
+	STOP RUN.
+	END-PROGRAM.