77 Small Pic x(4) value ‘abcd’.
77 Large Pic x(10) value ‘wxyz’.
77 Target Pic x(20) just right.
Procedure Division.
Main.
Move Small to Target.
Display Target.
Move Large to Target.
Display Target.
Stop run.
77 Large Pic x(10) value ‘wxyz’.
77 Target Pic x(20) just right.
Procedure Division.
Main.
Move Small to Target.
Display Target.
Move Large to Target.
Display Target.
Stop run.