Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/Empty-string/COBOL/empty-string.cobol
+++ b/Task/Empty-string/COBOL/empty-string.cobol
@ -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.