Hi I have question with COBOL move statement (TRUNCATE PROBLEM)
VAR1 PIC X (10)
VAR2 PIC X (07)
In my Program I am moving VAR1 TO VAR2 while moving truncation will happen. Now I want to know how to add the logic for data truncation in my COBOL program.
If I move VAR1 TO VAR2 program should run but it should display only error message so please let me know what is the logic. One more thing I don't want to use string option or I cant change size of PIC. Please if anyone know the logic let me know....