* ==== TYPE: ST-INI-MULTI ====
      * FEATURE: INITIALIZE multiple fields
      * STATEMENT: INITIALIZE
      * BRANCHES: 2, DECISIONS: 1
       IDENTIFICATION DIVISION.
       PROGRAM-ID. INIMUL.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-NAME    PIC X(10) VALUE 'HELLO'.
       01 WS-COUNT   PIC 9(5) VALUE 12345.
       01 WS-FLAG    PIC X    VALUE 'Y'.
       PROCEDURE DIVISION.
       MAIN.
           INITIALIZE WS-NAME WS-COUNT WS-FLAG.
           IF WS-NAME = SPACES
               DISPLAY 'OK: INITIALIZE NAME'
           ELSE
               DISPLAY 'ERROR: INITIALIZE'.
           STOP RUN.