March 2014 update

2014-04-02 16:56:35 +00:00 · 2014-04-02 16:56:35 +00:00 · a25938f123
commit a25938f123
parent 09687c4926
1846 changed files with 21876 additions and 5203 deletions
--- a/Task/Determine-if-a-string-is-numeric/COBOL/determine-if-a-string-is-numeric-1.cobol
+++ b/Task/Determine-if-a-string-is-numeric/COBOL/determine-if-a-string-is-numeric-1.cobol
@ -1,54 +1,10 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. Is-Numeric.
-
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01  Numeric-Chars      PIC X(10) VALUE "0123456789".
-
-       01  Success            CONSTANT 0.
-       01  Failure            CONSTANT 128.
-
-       LOCAL-STORAGE SECTION.
-       01  I                  PIC 99.
-
-       01  Num-Decimal-Points PIC 99.
-       01  Num-Valid-Chars    PIC 99.
-
-       LINKAGE SECTION.
-       01  Str                PIC X(30).
-
-       PROCEDURE DIVISION USING Str.
-           IF Str = SPACES
-               MOVE Failure TO Return-Code
-               GOBACK
-           END-IF
-
-           MOVE FUNCTION TRIM(Str) TO Str
-
-           INSPECT Str TALLYING Num-Decimal-Points FOR ALL "."
-           IF Num-Decimal-Points > 1
-               MOVE Failure TO Return-Code
-               GOBACK
-           ELSE
-               ADD Num-Decimal-Points TO Num-Valid-Chars
-           END-IF
-
-           IF Str (1:1) = "-" OR "+"
-               ADD 1 TO Num-Valid-Chars
-           END-IF
-
-           PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
-               INSPECT Str TALLYING Num-Valid-Chars
-                   FOR ALL Numeric-Chars (I:1) BEFORE SPACE
-           END-PERFORM
-
-           INSPECT Str TALLYING Num-Valid-Chars FOR TRAILING SPACES
-
-           IF Num-Valid-Chars = FUNCTION LENGTH(Str)
-               MOVE Success TO Return-Code
-           ELSE
-               MOVE Failure TO Return-Code
-           END-IF
-
-           GOBACK
-           .
+        program-id. is-numeric.
+        procedure division.
+        display function test-numval-f("abc") end-display
+        display function test-numval-f("-123.01E+3") end-display
+        if function test-numval-f("+123.123") equal zero then
+            display "is numeric" end-display
+        else
+            display "failed numval-f test" end-display
+        end-if
+        goback.
--- a/Task/Determine-if-a-string-is-numeric/COBOL/determine-if-a-string-is-numeric-2.cobol
+++ b/Task/Determine-if-a-string-is-numeric/COBOL/determine-if-a-string-is-numeric-2.cobol
@ -1,10 +1,54 @@
-        program-id. is-numeric.
-        procedure division.
-        display function test-numval-f("abc") end-display
-        display function test-numval-f("-123.01E+3") end-display
-        if function test-numval-f("+123.123") equal zero then
-            display "is numeric" end-display
-        else
-            display "failed numval-f test" end-display
-        end-if
-        goback.
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Is-Numeric.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  Numeric-Chars      PIC X(10) VALUE "0123456789".
+
+       01  Success            CONSTANT 0.
+       01  Failure            CONSTANT 128.
+
+       LOCAL-STORAGE SECTION.
+       01  I                  PIC 99.
+
+       01  Num-Decimal-Points PIC 99.
+       01  Num-Valid-Chars    PIC 99.
+
+       LINKAGE SECTION.
+       01  Str                PIC X(30).
+
+       PROCEDURE DIVISION USING Str.
+           IF Str = SPACES
+               MOVE Failure TO Return-Code
+               GOBACK
+           END-IF
+
+           MOVE FUNCTION TRIM(Str) TO Str
+
+           INSPECT Str TALLYING Num-Decimal-Points FOR ALL "."
+           IF Num-Decimal-Points > 1
+               MOVE Failure TO Return-Code
+               GOBACK
+           ELSE
+               ADD Num-Decimal-Points TO Num-Valid-Chars
+           END-IF
+
+           IF Str (1:1) = "-" OR "+"
+               ADD 1 TO Num-Valid-Chars
+           END-IF
+
+           PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
+               INSPECT Str TALLYING Num-Valid-Chars
+                   FOR ALL Numeric-Chars (I:1) BEFORE SPACE
+           END-PERFORM
+
+           INSPECT Str TALLYING Num-Valid-Chars FOR TRAILING SPACES
+
+           IF Num-Valid-Chars = FUNCTION LENGTH(Str)
+               MOVE Success TO Return-Code
+           ELSE
+               MOVE Failure TO Return-Code
+           END-IF
+
+           GOBACK
+           .