PH51295: COBOL DIRECTIVE REPOSITORY. FUNCTION ALL INTRINSIC. CAUSES SYNTAX ERRORS IF A FUNCTION IS CALLED WITHOUT THE FUNCTION KEYWORD

APAR status

• Closed as program error.

Error description

• The REPOSITORY. FUNCTION ALL INTRINSIC directive depicted in the
  code block below, should allow the use of any built in Cobol
  function to be called without
  having to specify the key word FUNCTION before it.
  
  For example:
  Normally the UPPER-CASE function can be called using:  FUNCTION
  UPPER-CASE(aString)
  Using the FUNCTION ALL INTRINSIC directive, this same function
  can be called using:  UPPER-CASE(aString)
  
  The following code block will produce a syntax error but will
  compile and run correctly.
  
         IDENTIFICATION DIVISION.
         PROGRAM-ID.     TESTINTR.
         ENVIRONMENT DIVISION.
         CONFIGURATION SECTION.
  
         REPOSITORY.
             FUNCTION ALL INTRINSIC.
  
         DATA DIVISION.
  
         WORKING-STORAGE SECTION.
           01 astring       PIC X(08) VALUE 'test'.
  
         PROCEDURE DIVISION.
  
             IF UPPER-CASE(astring) IS EQUAL TO 'TEST'
               DISPLAY "Its a match"
             END-IF.
  
             STOP RUN.
  

Local fix

• The only workaround to avoid the syntax error would be to
  specify the FUNCTION keyword on all built in Cobol functions.
  

Problem summary

• FUNCTION ALL INTRINSIC keyword in the REPOSITORY section not
  properly effecting error checking when an intrinsic function is
  invoked without the function keyword.
  

Problem conclusion

• Additional logic required to support the ALL keyword was added.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

• Fixed component name

  DEV FOR Z/OS

• Fixed component ID

  5724T0700

Applicable component levels