IBM Extension
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.
Read syntax diagramSkip visual syntax diagram
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)                            |  '-TYPE--type-name-1-'   
   '-----+-SYNCHRONIZED-+--+-------+-'                          
         '-SYNC---------'  +-LEFT--+                            
                           '-RIGHT-'                            

>--+----------------------------+--.---------------------------><
   '-+---------------+--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
End of IBM Extension