COBOL截位相关问题，系统会强制转换吗

定义
01 a pic 9(7)
01 b pic x(01)

move a(1:1) to b
这样赋值对吗？a不用重定义成x型再赋值吗？