38 lines
1.4 KiB
COBOL
38 lines
1.4 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST08A.
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
SPECIAL-NAMES.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 WS-STRING PIC X(40).
|
|
01 WS-PART1 PIC X(10).
|
|
01 WS-PART2 PIC X(10).
|
|
|
|
PROCEDURE DIVISION.
|
|
A-000.
|
|
MOVE "123.45" TO WS-STRING.
|
|
UNSTRING WS-STRING DELIMITED BY "." INTO WS-PART1 WS-PART2.
|
|
DISPLAY "US01A:(" WS-PART1 "):(123 ):DEL '.'".
|
|
DISPLAY "US01B:(" WS-PART2 "):(45 ):DEL '.'".
|
|
MOVE "123 45" TO WS-STRING.
|
|
UNSTRING WS-STRING DELIMITED BY SPACE INTO WS-PART1 WS-PART2.
|
|
DISPLAY "US02A:(" WS-PART1 "):(123 ):DEL SP".
|
|
DISPLAY "US02B:(" WS-PART2 "):(45 ):DEL SP".
|
|
MOVE "123045" TO WS-STRING.
|
|
UNSTRING WS-STRING DELIMITED BY ZERO INTO WS-PART1 WS-PART2.
|
|
DISPLAY "US03A:(" WS-PART1 "):(123 ):DEL ZR".
|
|
DISPLAY "US03B:(" WS-PART2 "):(45 ):DEL ZR".
|
|
UNSTRING WS-STRING DELIMITED BY "0" INTO WS-PART1 WS-PART2.
|
|
DISPLAY "US04A:(" WS-PART1 "):(123 ):DEL '0'".
|
|
DISPLAY "US04B:(" WS-PART2 "):(45 ):DEL '0'".
|
|
MOVE "123 45" TO WS-STRING.
|
|
UNSTRING WS-STRING DELIMITED BY " " INTO WS-PART1 WS-PART2.
|
|
DISPLAY "US05A:(" WS-PART1 "):(123 ):DEL ' '".
|
|
DISPLAY "US05B:(" WS-PART2 "):(45 ):DEL ' '".
|
|
STOP RUN.
|