How to Fix Errors, COBOL Value Clause and Unstring

A small mistake in assigning value to a variable and unstring may give compilation errors. You will learn in this post how to fix those.

In COBOL, there are different data definition clauses. Out of those, the VALUE clause is one of that. Its purpose is to define values before the program processed. That means during program-loading value will assign to that variable.

Tweet

COBOL Value clause.

Example for Value clause

DATA DIVISION.
WORKING-STORAGE SECTION.
01 Num1                 PIC 999   VALUE ZEROS.
01 Num2                 PIC 999   VALUE 15.
01 TaxRate              PIC V99   VALUE .35.
01 CustomerName         PIC X(15) VALUE "Mike123456789123".

In the above value clause, I have assigned 16 bytes of data ‘Mike123456789123‘. Actually, the definition says, only 15 bytes it can hold. I asked the same question in an interview about what will happen. No one answered correctly.

The answers is it throws compilation error. During compilation time only we need to fix this.

COBOL Unstring

• During unstring, the declared output variable may be shorter, and it cannot hold full value. I asked the same question in an interview – what will happen if I give like this.
• No one answered. The answer is it will not through compilation error. Only during execution time, according to the definition of ON OVERFLOW, it works. Suppose you did not write ON OVERFLOW logic, then the final string will truncate to the size you defined.
• The YearStr data is not as expected. Since definition length is short. So these things you will know during execution time.

Example of Unstring

01 Daystr    pic x(02).
01 MonthStr  pic x(02.
01 YearStr   pic x(02).

MOVE "25-07-2013lost" TO DateStr. 
UNSTRING DateStr DELIMITED BY "-" 
INTO DayStr, MonthStr, YearStr 
ON OVERFLOW DISPLAY "Characters unexamined" 
END-UNSTRING. 
DISPLAY DayStr SPACE MonthStr SPACE YearStr 
DISPLAY "__________________________" 
DISPLAY SPACES

Relates Posts