>>SOURCE FREE identification division. program-id. pic2int. environment division. data division. working-storage section. 01 i binary-short signed. 01 p pic s9(4), comp. procedure division. move 1234 to p. move p to i. display "After p(1234) to i move:". display " p: ", p. display " i: ", i. move 9876 to i. move i to p. display "After i(9876) to p move:". display " i: ", i. display " p: ", p. move 12345 to i. move i to p. display "After i(12345) to p move:". display " i: ", i. display " p: ", p. display "Trying compute:". compute p = i, on size error, display "Overflow occurred!!"; not on size error, display "After compute p = i(12345):"; display " i: ", i; display " p: ", p; end-compute. stop run.