ILE COBOL Language Reference

+-------------------------------IBM Extension--------------------------------+


Format 4

This format describes Boolean data. Boolean data items are items that are limited to a value of 1 or 0.

Note:
When you use indicators in a COBOL program, you must describe them as Boolean data items using the data description entry for Boolean data.
Data Description Entry - Format 4 - Boolean Data
 
>>-level-number--+-------------+--+------------------------+---->
                 +-data-name-1-+  +-REDEFINES--data-name-2-+
                 |        (1)  |  +-LIKE--data-name-3------+
                 '-FILLER------'  '-+----+--TYPEDEF--------'
                                    '-IS-'
 
>--+------------------+--+----------------+--------------------->
   '-+----+--EXTERNAL-'  '-+----+--GLOBAL-'
     '-IS-'                '-IS-'
 
>--+-------------------------------+---------------------------->
   |  (2)                          |
   '------+-JUST------+--+-------+-'
          '-JUSTIFIED-'  '-RIGHT-'
 
>--+------------------------------+----------------------------->
   +-| OCCURS clause - Format 1 |-+
   '-| OCCURS clause - Format 2 |-'
 
>--+---------------------------+--+------------------------+---->
   '-+-INDICATOR--+--integer-3-'  '-+-PICTURE-+--+----+--1-'
     +-INDICATORS-+                 '-PIC-----'  '-IS-'
     '-INDIC------'
 
>--+--------------------------------+--------------------------->
   '-VALUE--+----+--boolean-literal-'
            '-IS-'
 
>--+----------------------------------+------------------------->
   |  (2)                             |
   '------+-SYNCHRONIZED-+--+-------+-'
          '-SYNC---------'  +-LEFT--+
                            '-RIGHT-'
 
>--+-------------------+--+----------------------------+--.----><
   '-TYPE--type-name-1-'  '-+---------------+--DISPLAY-'
                            '-USAGE--+----+-'
                                     '-IS-'
 
OCCURS clause - Format 1:
 
|--OCCURS--integer-2--+-------+--------------------------------->
                      '-TIMES-'
 
   .---------------------------------------.
   V                                       |
>----+-----------------------------------+-+--------------------|
     |                  .--------------. |
     |                  V              | |
     '-INDEXED--+----+----index-name-1-+-'
                '-BY-'
 
OCCURS clause - Format 2:
 
|--OCCURS--integer-1--TO--integer-2--+-------+------------------>
                                     '-TIMES-'
 
>--DEPENDING--+----+--data-name-4------------------------------->
              '-ON-'
 
   .---------------------------------------.
   V                                       |
>----+-----------------------------------+-+--------------------|
     |                  .--------------. |
     |                  V              | |
     '-INDEXED--+----+----index-name-1-+-'
                '-BY-'
 
 

Notes:

  1. Cannot be used with the TYPEDEF clause.

  2. Syntax-checked only

The special considerations for the clauses used with the Boolean data follow. All other rules for clauses are the same as those for other data.

+----------------------------End of IBM Extension----------------------------+


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]