I am trying to perform an Unstring on a response received(String).
Following is the code which i am using
01 numeric-test-var PIC 9(1) .
01 input-String1 PIC x(9) value spaces .
01 String2 PIC x(6) value spaces .
move 'ABCDEF! !' to input-String1.
Unstring input-String1 delimited by '!' into
When the above code executed i am getting the following value in "numeric-test-var"
I am getting space in numeric variable. Which is different.
Also if i change the defination of "numeric-test-var" from PIC 9(1) to PIC 9(5) and perform the same code as above and display the value of "numeric-test-var" then the response will be
'0000 '. The last digit in numeric field is spaces now.
Please let me know if you can provide what i need to do to correct it? Also this is not happening in Net Express 5.1.