tracekvm.blogg.se - String palindrome program in cobol

Because all receiving fields have been acted upon and two characters of data in INV-RCD have not been examined, the ON OVERFLOW exit is taken, and execution of the UNSTRING statement is completed.The period delimiter character is placed in DLTR-2, and the value 6 is placed in CTR-4. String Manipulation - Beginning COBOL for Programmers is a comprehensive, sophisticated tutorial and modular skills reference on the COBOL programming language. Positions 48 through 53 (000379) are placed in DISPLAY-DOLS.The delimiter is a SPACE, but because no field has been defined as a receiving area for delimiters, SPACE is bypassed.

The leftmost character position is filled with a 0 (zero).

Positions 42 through 46 (00122) are placed in FIELD-A and right-justified within the area.

The delimiter is a SPACE, but because no receiving field has been defined as a receiving area for delimiters, SPACE is bypassed.

Positions 35 through 40 (475120) are examined and are placed in M-UNITS.

The delimiter is a SPACE, but because no field has been defined as a receiving area for delimiters, SPACE is merely bypassed.

Positions 31 through 33 are placed in INV-CLASS.

The delimiter character / is placed in DLTR-1, and the value 6 is placed in CTR-2.

Positions 24 through 29 (707890) are placed in INV-NO.Because ALL SPACES is specified as a delimiter, the five contiguous SPACE characters are considered to be one occurrence of the delimiter.ITEM-NAME, left-justified within the area, and the unused character positions are padded with spaces. Positions 3 through 18 (FOUR-PENNY-NAILS) of INV-RCD are placed in.When the UNSTRING statement is executed, the following actions take place: