COBOL/Java compiler directives

[ilidio-lopes]

How Has This Been Tested?

• Test in VSCode
  

• Test using unit tests

Checklist:

• Each of my commits contains one meaningful change
• I have performed rebase of my branch on top of the development
• I have performed a self-review of my own code
• I have made corresponding changes to the documentation
• My changes generate no new warnings
• I have added tests that prove my fix is effective or that my feature works
• New and existing unit tests pass locally with my changes
• I have checked my code and corrected any misspellings

[slavek-kucera]

Please re-visit the token definitions:

PP 5655-EC6 IBM Enterprise COBOL for z/OS  6.4.0 P241211       TEST1     Date 02/19/2025  Time 04:27:13   Page     3     
  LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
  000001                IDENTIFICATION DIVISION.                                                                         
  000002                PROGRAM-ID. TEST1.                                                                               
  000003                DATA DIVISION.                                                                                   
  000004                WORKING-STORAGE SECTION.                                                                         
  000005                JAVA-CALLABLE                                                                                    
                                                                                                                         
==000005==> IGYDS0009-E "JAVA-CALLABLE" should not begin in area "A".  It was processed as if                            
                        found in area "B".                                                                               
                                                                                                                         
==000005==> IGYDS1089-S "JAVA-CALLABLE" was invalid.  Scanning was resumed at the next area "A"                          
                        item, level-number, or the start of the next clause.                                             
                                                                                                                         
  000006                PROCEDURE DIVISION.                                                                              
  000007                    GOBACK.                                                                                      

vs.

PP 5655-EC6 IBM Enterprise COBOL for z/OS  6.4.0 P241211       TEST1     Date 02/19/2025  Time 04:27:44   Page     3     
  LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
  000001                IDENTIFICATION DIVISION.                                                                         
  000002                PROGRAM-ID. TEST1.                                                                               
  000003                DATA DIVISION.                                                                                   
  000004                WORKING-STORAGE SECTION.                                                                         
  000005                >>JAVA-CALLABLE                                                                                  
  000006                PROCEDURE DIVISION.                                                                              
  000007                    GOBACK.                                                                                      

and

PP 5655-EC6 IBM Enterprise COBOL for z/OS  6.4.0 P241211       TEST1     Date 02/19/2025  Time 04:46:22   Page     3     
  LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
  000001                IDENTIFICATION DIVISION.                                                                         
  000002                PROGRAM-ID. TEST1.                                                                               
  000003                DATA DIVISION.                                                                                   
  000004                WORKING-STORAGE SECTION.                                                                         
  000005                >> JAVA-CALLABLE                                                                                 
  000006                PROCEDURE DIVISION.                                                                              
  000007                    GOBACK.                                                                                      

but

PP 5655-EC6 IBM Enterprise COBOL for z/OS  6.4.0 P241211       TEST1     Date 02/19/2025  Time 04:44:55   Page     3     
  LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
  000001                IDENTIFICATION DIVISION.                                                                         
  000002                PROGRAM-ID. TEST1.                                                                               
  000003                DATA DIVISION.                                                                                   
  000004                WORKING-STORAGE SECTION.                                                                         
  000005                >>                            JAVA-CALLABLE                                                      
  000006                PROCEDURE DIVISION.                                                                              
  000007                    GOBACK.                                                                                      
PP 5655-EC6 IBM Enterprise COBOL for z/OS  6.4.0 P241211       TEST1     Date 02/19/2025  Time 04:44:55   Page     4     
An "M" preceding a data-name reference indicates that the data-name is modified by this reference.                       
                                                                                                                         
 Defined   Cross-reference of data names   References                                                                    
                                                                                                                         
PP 5655-EC6 IBM Enterprise COBOL for z/OS  6.4.0 P241211       TEST1     Date 02/19/2025  Time 04:44:55   Page     5     
 Defined   Cross-reference of programs     References                                                                    
                                                                                                                         
       2   TEST1                                                                                                         
PP 5655-EC6 IBM Enterprise COBOL for z/OS  6.4.0 P241211       TEST1     Date 02/19/2025  Time 04:44:55   Page     6     
LineID  Message code  Message text                                                                                       
                                                                                                                         
        IGYDS0120-S   An unknown directive "             " was found.  The statement was discarded.