* ==== TYPE: ST-SUB-FROM ====
      * FEATURE: SUBTRACT ... FROM (constant / variable)
      * STATEMENT: SUBTRACT
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SUBFRM.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-VALUE   PIC 9(5) VALUE 100.
       01 WS-RESULT  PIC 9(5) VALUE 0.
       PROCEDURE DIVISION.
       MAIN.
           SUBTRACT 30 FROM WS-VALUE.
           MOVE WS-VALUE TO WS-RESULT.
           IF WS-RESULT = 70
               DISPLAY 'OK: 100-30=70'
           ELSE
               DISPLAY 'ERROR'.
           STOP RUN.