205 lines
5.7 KiB
COBOL
205 lines
5.7 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST14d.
|
|
AUTHOR. Jim Noeth.
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 STRING-1 PIC X(60)
|
|
VALUE "THIS IS A TEST STRING".
|
|
01 STRING-2 PIC X(60)
|
|
VALUE "THIS IS A----TEST - - - STRING".
|
|
01 STRING-3 PIC X(60)
|
|
VALUE "THIS,IS..A----TEST$$$$$$$STRING".
|
|
01 UNSTRING-1 PIC X(20).
|
|
01 UNSTRING-2 PIC X(20).
|
|
01 UNSTRING-3 PIC X(20).
|
|
01 UNSTRING-4 PIC X(20).
|
|
01 UNSTRING-5 PIC X(20).
|
|
01 UNSTRING-6 PIC X(20).
|
|
01 US-DELIM-1 PIC X(10).
|
|
01 US-DELIM-2 PIC X(10).
|
|
01 US-DELIM-3 PIC X(10).
|
|
01 US-DELIM-4 PIC X(10).
|
|
01 US-DELIM-5 PIC X(10).
|
|
01 US-DELIM-6 PIC X(10).
|
|
01 US-COUNT-1 PIC 9(04).
|
|
01 US-COUNT-2 PIC 9(04).
|
|
01 US-COUNT-3 PIC 9(04).
|
|
01 US-COUNT-4 PIC 9(04).
|
|
01 US-COUNT-5 PIC 9(04).
|
|
01 US-COUNT-6 PIC 9(04).
|
|
PROCEDURE DIVISION.
|
|
* 0000-BEGIN-IT-ALL SECTION.
|
|
0000-BEGIN.
|
|
PERFORM 1000-CLEAR-VARIABLES.
|
|
*
|
|
*
|
|
*
|
|
DISPLAY "INPUT STRING = """, STRING-1, """".
|
|
UNSTRING STRING-1
|
|
DELIMITED BY ALL SPACES
|
|
INTO
|
|
UNSTRING-1
|
|
DELIMITER IN US-DELIM-1
|
|
COUNT IN US-COUNT-1
|
|
UNSTRING-2
|
|
DELIMITER IN US-DELIM-2
|
|
COUNT IN US-COUNT-2
|
|
UNSTRING-3
|
|
DELIMITER IN US-DELIM-3
|
|
COUNT IN US-COUNT-3
|
|
UNSTRING-4
|
|
DELIMITER IN US-DELIM-4
|
|
COUNT IN US-COUNT-4
|
|
UNSTRING-5
|
|
DELIMITER IN US-DELIM-5
|
|
COUNT IN US-COUNT-5
|
|
UNSTRING-6
|
|
DELIMITER IN US-DELIM-6
|
|
COUNT IN US-COUNT-6.
|
|
PERFORM 2000-DISPLAY-RESULTS.
|
|
*
|
|
*
|
|
DISPLAY "INPUT STRING = """, STRING-2, """".
|
|
UNSTRING STRING-2
|
|
DELIMITED BY ALL SPACES OR ALL "-"
|
|
INTO
|
|
UNSTRING-1
|
|
DELIMITER IN US-DELIM-1
|
|
COUNT IN US-COUNT-1
|
|
UNSTRING-2
|
|
DELIMITER IN US-DELIM-2
|
|
COUNT IN US-COUNT-2
|
|
UNSTRING-3
|
|
DELIMITER IN US-DELIM-3
|
|
COUNT IN US-COUNT-3
|
|
UNSTRING-4
|
|
DELIMITER IN US-DELIM-4
|
|
COUNT IN US-COUNT-4
|
|
UNSTRING-5
|
|
DELIMITER IN US-DELIM-5
|
|
COUNT IN US-COUNT-5
|
|
UNSTRING-6
|
|
DELIMITER IN US-DELIM-6
|
|
COUNT IN US-COUNT-6.
|
|
PERFORM 2000-DISPLAY-RESULTS.
|
|
*
|
|
*
|
|
DISPLAY "INPUT STRING = """, STRING-2, """".
|
|
UNSTRING STRING-2
|
|
DELIMITED BY SPACES OR "-"
|
|
INTO
|
|
UNSTRING-1
|
|
DELIMITER IN US-DELIM-1
|
|
COUNT IN US-COUNT-1
|
|
UNSTRING-2
|
|
DELIMITER IN US-DELIM-2
|
|
COUNT IN US-COUNT-2
|
|
UNSTRING-3
|
|
DELIMITER IN US-DELIM-3
|
|
COUNT IN US-COUNT-3
|
|
UNSTRING-4
|
|
DELIMITER IN US-DELIM-4
|
|
COUNT IN US-COUNT-4
|
|
UNSTRING-5
|
|
DELIMITER IN US-DELIM-5
|
|
COUNT IN US-COUNT-5
|
|
UNSTRING-6
|
|
DELIMITER IN US-DELIM-6
|
|
COUNT IN US-COUNT-6.
|
|
PERFORM 2000-DISPLAY-RESULTS.
|
|
DISPLAY "INPUT STRING = """, STRING-2, """".
|
|
UNSTRING STRING-2
|
|
DELIMITED BY
|
|
ALL "- " OR
|
|
ALL "-" OR
|
|
ALL SPACES
|
|
INTO
|
|
UNSTRING-1
|
|
DELIMITER IN US-DELIM-1
|
|
COUNT IN US-COUNT-1
|
|
UNSTRING-2
|
|
DELIMITER IN US-DELIM-2
|
|
COUNT IN US-COUNT-2
|
|
UNSTRING-3
|
|
DELIMITER IN US-DELIM-3
|
|
COUNT IN US-COUNT-3
|
|
UNSTRING-4
|
|
DELIMITER IN US-DELIM-4
|
|
COUNT IN US-COUNT-4
|
|
UNSTRING-5
|
|
DELIMITER IN US-DELIM-5
|
|
COUNT IN US-COUNT-5
|
|
UNSTRING-6
|
|
DELIMITER IN US-DELIM-6
|
|
COUNT IN US-COUNT-6.
|
|
PERFORM 2000-DISPLAY-RESULTS.
|
|
*
|
|
*
|
|
DISPLAY "INPUT STRING = """, STRING-2, """".
|
|
UNSTRING STRING-2
|
|
DELIMITED BY
|
|
ALL SPACES OR
|
|
ALL "-" OR
|
|
ALL "- "
|
|
INTO
|
|
UNSTRING-1
|
|
DELIMITER IN US-DELIM-1
|
|
COUNT IN US-COUNT-1
|
|
UNSTRING-2
|
|
DELIMITER IN US-DELIM-2
|
|
COUNT IN US-COUNT-2
|
|
UNSTRING-3
|
|
DELIMITER IN US-DELIM-3
|
|
COUNT IN US-COUNT-3
|
|
UNSTRING-4
|
|
DELIMITER IN US-DELIM-4
|
|
COUNT IN US-COUNT-4
|
|
UNSTRING-5
|
|
DELIMITER IN US-DELIM-5
|
|
COUNT IN US-COUNT-5
|
|
UNSTRING-6
|
|
DELIMITER IN US-DELIM-6
|
|
COUNT IN US-COUNT-6.
|
|
PERFORM 2000-DISPLAY-RESULTS.
|
|
STOP RUN.
|
|
*
|
|
*
|
|
*
|
|
*
|
|
1000-CLEAR-VARIABLES.
|
|
MOVE ZERO TO US-COUNT-1, US-COUNT-2, US-COUNT-3,
|
|
US-COUNT-4, US-COUNT-5, US-COUNT-6.
|
|
MOVE SPACES TO US-DELIM-1, US-DELIM-2, US-DELIM-3,
|
|
US-DELIM-4, US-DELIM-5, US-DELIM-6.
|
|
1000-CLEAR-EXIT.
|
|
EXIT.
|
|
*
|
|
*
|
|
*
|
|
*
|
|
2000-DISPLAY-RESULTS.
|
|
DISPLAY "UNSTRING-1 = """, UNSTRING-1, """".
|
|
DISPLAY " US-DELIM-1 = """, US-DELIM-1, """",
|
|
", US-COUNT-1 = ", US-COUNT-1.
|
|
DISPLAY "UNSTRING-2 = """, UNSTRING-2, """".
|
|
DISPLAY " US-DELIM-2 = """, US-DELIM-2, """",
|
|
", US-COUNT-2 = ", US-COUNT-2.
|
|
DISPLAY "UNSTRING-3 = """, UNSTRING-3, """".
|
|
DISPLAY " US-DELIM-3 = """, US-DELIM-3, """",
|
|
", US-COUNT-3 = ", US-COUNT-3.
|
|
DISPLAY "UNSTRING-4 = """, UNSTRING-4, """".
|
|
DISPLAY " US-DELIM-4 = """, US-DELIM-4, """",
|
|
", US-COUNT-4 = ", US-COUNT-4.
|
|
DISPLAY "UNSTRING-5 = """, UNSTRING-5, """".
|
|
DISPLAY " US-DELIM-5 = """, US-DELIM-5, """",
|
|
", US-COUNT-5 = ", US-COUNT-5.
|
|
DISPLAY "UNSTRING-6 = """, UNSTRING-6, """".
|
|
DISPLAY " US-DELIM-6 = """, US-DELIM-6, """",
|
|
", US-COUNT-6 = ", US-COUNT-6.
|
|
DISPLAY " ".
|
|
DISPLAY " ".
|
|
2000-DISPLAY-EXIT.
|
|
EXIT.
|