COBOL Compiler Direktive

Folgende Syntax wird für Compiler Direktiven erkannt:

Basis

>>-+-----------------+--BASIS--+-basis-name-+------------------><
   '-sequence-number-'         '-literal-1--'

CBL

>>-+-CBL-----+--+--------------+-------------------------------><
   '-PROCESS-'  '-options-list-'

CONTROL

                 .--------------.          
                 V              |          
>>-+-*CONTROL-+----+-SOURCE---+-+--+---+-----------------------><
   '-*CBL-----'    +-NOSOURCE-+    '-.-'   
                   +-LIST-----+            
                   +-NOLIST---+            
                   +-MAP------+            
                   '-NOMAP----'

CBL

>>-+-CBL-----+--+--------------+-------------------------------><
   '-PROCESS-'  '-options-list-'

COPY

>>-COPY--+-text-name-+--+--------------------------+------------>
         '-literal-1-'  '-+-OF-+--+-library-name-+-'   
                          '-IN-'  '-literal-2----'     

>--+----------+--+-----------------------------------------+---->
   '-SUPPRESS-'  |            .--------------------------. |   
                 |            V                          | |   
                 '-REPLACING----operand-1--BY--operand-2-+-'   

>--.-----------------------------------------------------------><

DELETE

>>-+-----------------+--DELETE--sequence-number-field----------><
   '-sequence-number-'

EJECT

>>-EJECT--+---+------------------------------------------------><
          '-.-'

ENTER

>>-ENTER--language-name-1--+----------------+--.---------------><
                           '-routine-name-1-'

INSERT

>>-+-----------------+--INSERT--sequence-number-field----------><
   '-sequence-number-'

REPLACE

Format 1

>>-REPLACE------------------------------------------------------>

   .----------------------------------------------------------.   
   V                                                          |   
>---- == --pseudo-text-1-- == --BY-- == --pseudo-text-2-- == -+-->

>--.-----------------------------------------------------------><

Format 2

>>-REPLACE OFF.------------------------------------------------><

SERVICE LABEL

>>-SERVICE LABEL-----------------------------------------------><

SERVICE RELOAD

>>-SERVICE RELOAD--identifier-1--------------------------------><

SKIP

>>-+-SKIP1-+--+---+--------------------------------------------><
   +-SKIP2-+  '-.-'   
   '-SKIP3-'

TITLE

>>-TITLE--literal--+---+---------------------------------------><
                   '-.-'

USE

>>-USE--+--------+--AFTER--+----------+--+-EXCEPTION-+---------->
        '-GLOBAL-'         '-STANDARD-'  '-ERROR-----'   

                        .-------------.     
                        V             |     
>--PROCEDURE--+----+--+---file-name-1-+-+----------------------><
              '-ON-'  +-INPUT-----------+   
                      +-OUTPUT----------+   
                      +-I-O-------------+   
                      '-EXTEND----------'