PH64133: COBOL SYNTAX ERRORS DURING THE BUILD AT AD613

APAR status

• Closed as program error.

Error description

• When executing the Application Discovery build in a COBOL
  project, the below errors are showing up:
  
  {{{
  
     Syntax error: 'END-EXEC'
        It seems to refer to the EXEC CICS command:
  
          EXEC    CICS        RECEIVE
  
                              END-EXEC.
  
  **3**. Syntax error: '5441'
  
     It seems to refer to a cursor defined as a numeric value.
  
             EXEC ADABAS
  
                  FIND
  
                  DECLARE 5441 CURSOR
  
                  SELECT  GRUPO-DATA-REF
  
                  FROM    KCO-CONTRATO-GARANTIA  5441-A
  
                  WHERE   SUPER-GARANT-CONTA =:5FS1-KEYVALUE
  
                  OPTIONS PREFIX  = '5441-'
  
             END-EXEC.
  
  
  **4**. Syntax error: 'SELECT'
  
     It seems to refer to a inverted order in the command
  SELECT-FROM-WHERE
  
             005110     EXEC ADABAS
  
             005120          FROM   KCO-ROTINAS
  
             005130          SELECT NUM-SOLIC
  
             005140          WHERE  SUPER-USUAR-ROTINA =
  :8FS1-KEYVALUE
             005150          OPTIONS PREFIX='CDDE-'
  
             005160     END-EXEC.
  
  
  **5**. Syntax error: 'DECLARE'
  
     It seems to refer to a non expected parameter DECLARE in a
  INSERT command
  
             002130             EXEC    ADABAS
  
             002131                     INSERT
  
             002132                     DECLARE CDDC CURSOR
  
             002133                     INTO
  KCO-CONTROLE-DESDOBRA
             002134                     SET COD-USER  CONTA
  DATA-ULT-PREST-DESDOBR
             002135                     OPTIONS PREFIX = 'CDDC-'
  
             002136             END-EXEC
  
  }}}
  

Local fix

• n/a
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  * Users using AD Build Client and building COBOL projects      *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  * Some errors were generated when valid CICS and ADABAS syntax *
  * is not recognized.                                           *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• Source code was modified to support these new valid syntaxes.
  

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

  APPL DISCOVERY

• Fixed component ID

  5737B1600

Applicable component levels