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.
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:
- Cannot be used with the TYPEDEF clause.
- 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
