* ==== TYPE: ST-MOVE-GROUP ====
      * FEATURE: MOVE group-level (data propagation)
      * STATEMENT: MOVE (group)
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. MOVGRP.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-SOURCE.
          05 WS-SRC-ID    PIC X(5) VALUE 'ITEM1'.
          05 WS-SRC-AMT   PIC 9(5) VALUE 9999.
       01 WS-DEST.
          05 WS-DST-ID    PIC X(5).
          05 WS-DST-AMT   PIC 9(5).
       PROCEDURE DIVISION.
       MAIN.
           MOVE WS-SOURCE TO WS-DEST.
           IF WS-DST-ID = 'ITEM1'
               DISPLAY 'OK: GROUP MOVE ID'
           ELSE
               DISPLAY 'ERROR: GROUP MOVE'.
           STOP RUN.