Environment:
Running the TMEBLKS report the following messages are displayed:
CALR811W PROGRAM ERROR OCCURRED STATEMENT # 372 DIVIDE INTERRUPT ON INPUT RECORD NO 35,932
CALR811W PROGRAM ERROR OCCURRED STATEMENT # 372 DATA INTERRUPT ON INPUT RECORD NO 35,932
CALR811W PROGRAM ERROR OCCURRED STATEMENT # 372 DATA INTERRUPT ON INPUT RECORD NO 35,932
CALR811W PROGRAM ERROR OCCURRED STATEMENT # 372 ARITHMETIC OVERFLOW
Release : 14.0
Component : CA 1 Tape Management
CALR811W messages are issued for statement no 372 (arithmetic overflow) are probably caused by invalid data for blksize and lrecl in the TMC.
The following statement should be added
IF LRECL > BLKSIZE GOTO START
ENDIF
After label 'CONTINUE:'
to obtain the correct report.