Data update

Task/Command-line-arguments/COBOL/command-line-arguments-1.cobol

@@ -1,14 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. accept-all-args.
-
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01  args                   PIC X(50).
-
-       PROCEDURE DIVISION.
-       main-line.
-           ACCEPT args FROM COMMAND-LINE
-           DISPLAY args
-
-           GOBACK
-           .

Task/Command-line-arguments/COBOL/command-line-arguments-2.cobol

@@ -1,17 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. accept-args-one-at-a-time.
-
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01  arg                 PIC X(50) VALUE SPACES.
-
-       PROCEDURE DIVISION.
-           ACCEPT arg FROM ARGUMENT-VALUE
-           PERFORM UNTIL arg = SPACES
-               DISPLAY arg
-               MOVE SPACES TO arg
-               ACCEPT arg FROM ARGUMENT-VALUE
-           END-PERFORM
-
-           GOBACK
-           .

Task/Command-line-arguments/COBOL/command-line-arguments-3.cobol

@@ -1,57 +0,0 @@
-       *>Created By Zwiegnet 8/19/2004
-
-        IDENTIFICATION DIVISION.
-        PROGRAM-ID. arguments.
-
-        ENVIRONMENT DIVISION.
-
-        DATA DIVISION.
-
-
-        WORKING-STORAGE SECTION.
-
-        01 command1 PIC X(50).
-        01 command2 PIC X(50).
-        01 command3 PIC X(50).
-
-
-        PROCEDURE DIVISION.
-
-        PERFORM GET-ARGS.
-
-        *> Display Usage for Failed Checks
-        ARGUSAGE.
-        display "Usage: <command1> <command2> <command3>"
-        STOP RUN.
-
-        *> Evaluate Arguments
-        GET-ARGS.
-        ACCEPT command1 FROM ARGUMENT-VALUE
-        IF command1 = SPACE OR LOW-VALUES THEN
-        PERFORM ARGUSAGE
-        ELSE
-        INSPECT command1 REPLACING ALL SPACES BY LOW-VALUES
-
-
-        ACCEPT command2 from ARGUMENT-VALUE
-        IF command2 = SPACE OR LOW-VALUES THEN
-        PERFORM ARGUSAGE
-        ELSE
-        INSPECT command2 REPLACING ALL SPACES BY LOW-VALUES
-
-
-        ACCEPT command3 from ARGUMENT-VALUE
-        IF command3 = SPACE OR LOW-VALUES THEN
-        PERFORM ARGUSAGE
-        ELSE
-                INSPECT command3 REPLACING ALL SPACES BY LOW-VALUES
-
-
-
-        *> Display Final Output
-        display command1 " " command2 " " command3
-
-
-        STOP RUN.
-
-.