Data update

2026-04-30 12:34:36 -04:00 · 2026-04-30 12:34:36 -04:00 · cbaf4c4b64
commit cbaf4c4b64
parent 4bb20c9b71
12390 changed files with 318560 additions and 27248 deletions
--- a/Task/Empty-string/COBOL/empty-string.cob
+++ b/Task/Empty-string/COBOL/empty-string.cob
@ -0,0 +1,23 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID.    EMPTYSTR.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  str                     PIC X(10).
+
+       PROCEDURE DIVISION.
+       Begin.
+
+*     *    Assign an empty string.
+           INITIALIZE str.
+
+*     *    Or
+           MOVE " " TO str.
+
+           IF (str = " ")
+              DISPLAY "String is empty"
+           ELSE
+              DISPLAY "String is not empty"
+           END-IF.
+
+           STOP RUN.