一个cobol赋值问题，求解。01APIC9(4)value1234.01A1PICX(3).01BPICX(4)value'1234'.01B1PIC9(3).参照以上定义，“一个9(4)value1234，赋给一个X(3)的数据项，结果是多少？”“一个X(4)v

Question

一个cobol 赋值问题，求解。
01 A PIC 9(4) value 1234.
01 A1 PIC X(3).
01 B PIC X(4) value '1234'.
01 B1 PIC 9(3).
参照以上定义，
“一个9(4) value 1234，赋给一个X(3)的数据项，结果是多少？”
“一个X(4) value '1234'，赋给一个9(3)的数据项，结果是多少？”

Answer 1

一个9(4) value 1234，赋给一个X(3)的数据项，结果是多少？
='123'
一个X(4) value '1234'，赋给一个9(3)的数据项，结果是多少？
=234