Therm-O-Link ([log in to unmask]) wrote:
: Joe Geiser writes:
: >Your receiving field (the X(8) field) should be:
: > FIELD-A PIC X(8) JUSTIFY RIGHT.
: >MOVE INPUT-FLD TO FIELD-A.
: You know, I've never been able to get this to work. If the INPUT-FLD is
: X(8) and FIELD-A is X(8) also, then I always end up with the same data
: in FIELD-A as was in INPUT-FLD.
The JUSTIFIED clause simply reverses the usual COBOL alignment
rules about what happens when a sending and receiving item are
not the same length, the normal rules being to align at the leftmost
character position and truncate if necessary on the right. The
JUSTIFIED clause does not care about the contents of the item being
moved.
Walter Murray
Hewlett-Packard
Support Technology Lab