Ch 6_3. MOVING DATA III

Group Move 

...                   
01 DATE-OUT. 
    03 MON     PIC  99.
    03 YEAR    PIC  99.
...

    MOVE 0298 TO DATE-OUT. 
    DISPLAY MON.
    DISPLAY YEAR.

    MOVE 298 TO DATE-OUT. 
    DISPLAY MON.
    DISPLAY YEAR.

    MOVE '298' TO DATE-OUT. 
    DISPLAY MON.
    DISPLAY YEAR.
Group Move is considered as a nonnumerical move.


Moving and Handling Signed Numbers 

...
01  S-NUM          PIC    S9(4)    value  -123.
01  S-NUM-OUT      PIC    -9(4).

...

    DISPLAY S-NUM.

    MOVE S-NUM TO S-NUM-OUT.
    DISPLAY S-NUM-OUT.

    MOVE +123 TO S-NUM.
    MOVE S-NUM TO S-NUM-OUT.
    DISPLAY S-NUM-OUT.

    MOVE -123 TO S-NUM.
    MOVE S-NUM TO S-NUM-OUT.
    DISPLAY S-NUM-OUT.
Note that "DISPALY" does not display signed numbers! You must use Edit symbols.