COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

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
SUBTRACT
SUBTRACT computes differences between numeric values
SUBTRACT FROM
SUBTRACT FROM subtracts one or more values from the values of one or more identifiers and
stores the results in the identifiers.
466 Procedure Division Verbs