COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-261
STRING
In Example 9-68, STRING builds a single data item from several data items. Also see
the examples in UNSTRING.
Example 9-68. STRING Statement
Input:
WORKING-STORAGE SECTION.
77 PART-1 PIC X(10).
77 PART-2 PIC X(26).
77 PART-3 PIC X(10).
77 RESULT-1 PIC X(80) VALUE SPACES.
77 COUNT-1 PIC 99.
PROCEDURE DIVISION.
A10-START.
DISPLAY "ENTER PART-1 (MAX 10 NUMERIC CHARACTERS)"
ACCEPT PART-1
INSPECT PART-1 REPLACING ALL " " BY "0"
IF PART-1 NOT NUMERIC DISPLAY "NOT NUMERIC"
GO TO A10-START
END-IF
DISPLAY "ENTER PART-2 (MAX 26 CHARACTERS)"
ACCEPT PART-2
DISPLAY "ENTER PART-3 (MAX 10 CHARACTERS)"
ACCEPT PART-3
MOVE 1 TO COUNT-1
STRING PART-1 DELIMITED BY ZERO
SPACE DELIMITED BY SIZE
PART-2 DELIMITED BY SPACE
SPACE DELIMITED BY SIZE
PART-3 DELIMITED BY SPACE
INTO RESULT-1 WITH POINTER COUNT-1
END-STRING
DISPLAY "PART-1 = " PART-1
DISPLAY "PART-2 = " PART-2
DISPLAY "PART-3 = " PART-3
DISPLAY "COUNT-1 = " COUNT-1
DISPLAY "RESULT-1 AFTER STRING = " RESULT-1
STOP RUN.
Output:
>RUN rununit
ENTER PART-1 (MAX 10 NUMERIC CHARACTERS)
?1234 67
ENTER PART-2 (MAX 26 CHARACTERS)
?MINNIE MOUSE
ENTER PART-3 (MAX 10 CHARACTERS)
AAAAA
PART-1 = 1234067000
PART-2 = MINNIE MOUSE
PART-3 = AAAAA
COUNT-1 = 18
RESULT-1 AFTER STRING = 1234 MINNIE AAAAA