How to solve SOC7. I have the cobol coded as below

01 A PIC 9(4).
01 AIN REDEFINES A.
05 AIN1 PIC S9(4)
01 B PIC 9(4)V99.
01 BIN REDEFINES B.
05 BIN1 PIC S9(4)V99.

PROCEDURE DIVISION.
START-PARA.
INITIALIZE A AIN B BIN.
ACCEPT A B.
DISPLAY 'VALUE OF A=' A.
DISPLAY 'VALUE OF B=' B.
DISPLAY 'VALUE OF BIN1=' BIN1.
DISPLAY 'VALUE OF AIN1=' AIN1.
COMPUTE AIN1 = BIN1 - AIN1.
DISPLAY 'VALUE OF AIN1=' AIN1.

When i'm executing this code i'm getting SOC7 for A = 12 &
B=34. Can someone explain

SDSF OUTPUT DISPLAY TCOM058R JOB05458 DSID 102 LINE
0 COLUMNS 02- 81
COMMAND INPUT
===> SCROLL ===>
CSR
********************************* TOP OF DATA
**********************************
VALUE OF
A=12

VALUE OF
B=34

VALUE OF
BIN1=34

VALUE OF
AIN1=12

CEE3207S The system detected a data exception (System
Completion Code=0C7).
From compile unit PROG1 at entry point PROG1 at
statement 29 at compile
+000004CE at address 00007ECE.

Please address how to solve this issue Thanks in
advance.