IBM Support

PH02250: Application Discovery DOES NOT PARSE ++INCLUDE MEMBERS CORRECTLY.

Subscribe to this APAR

By subscribing, you receive periodic emails alerting you to the status of the APAR, along with a link to the fix after it becomes available. You can track this item individually or track all items by product.

Notify me when this APAR changes.

Notify me when an APAR for this component changes.

 

APAR status

  • Closed as program error.

Error description

  • Below is the build of program LC151M00C, showing syntax error
on ELSE,
although the Cobol program is syntactically correctly.
[8/17/2018  15:46 PM]  Building file(s)...
[8/17/2018  15:47 PM]  zOS Cobol Program   lc151m00
[8/17/2018  15:47 PM]  (1519) : Warning [999] : Syntax error:
'ELSE'
[8/17/2018  15:47 PM]   - 0 error(s), 1 warning(s)
01470  7300-CALL-
RR0033M0.                                                 CL*42
01471
*********************
CL*42
01472
   CL*42
01473 *
********************************************************
CL*42
01474 *       *
*     CL*42
01475 *       *  - CALL CUM RR0033M0 TO GET THE BSB FROM THE
*     CL*46
01476 *       *    ACCOUNT NUMBER
*     CL*46
01477 *       *
*     CL*42
01478 *       *  - IF RETURN CODE BETWEEN 0000 - 0999, THIS IS
*     CL205
01479 *       *    ACCEPTABLE.
*     CL205
01480 *       *
*     CL205
01481 *       *  - OTHERWISE,
*     CL205
01482 *       *    - ABEND PROGRAM
*     CL205
01483 *       *
*     CL205
01484 *
********************************************************
CL*42
01485
   CL*42
01486      CALL 'RR0033M0'
USING                                           CL*42
      * start of expanded file: C:
\EZSource\Sources\LC\copybooks\RR0033B9C at LC151M00 line 1515
                                       RR0000M0-PARM
RR0033B9
                                       RR0033M0-INPUT-PASS
RR0033B9
                                       RR0000M0-RETURN
RR0033B9
                                       RR0033M0-OUTPUT-RTN
RR0033B9
                                       IO-PCB
RR0033B9
                                       ALT-PCB
RR0033B9
                                       DD760-PCB
RR0033B9
                                       DD761-PCB
RR0033B9
                                       DD528-PCB
RR0033B9
                                       DBNB01-PCB
RR0033B9
                                       DM634-PCB
RR0033B9
      * end of expanded file: C:
\EZSource\Sources\LC\copybooks\RR0033B9C at LC151M00 line 1515
01488
   CL130
01489      IF CALL-ACCEPTABLE-RR0000M0-RTN
(1)                             CL*42
01490
CONTINUE
CL*42
01491
ELSE
CL*42
01492          PERFORM 9300-RR0033M0-
ABEND                                 CL*42
01493      END-
IF
CL*42
01494
.
CL*42
01495      EJECT
If we put a full-stop "." after DM634-PCB the compilation will
be
successful.
Hence, there is an error in the ++INCLUDE parsing.

Local fix

  • N/A

Problem summary

  • Application Discovery DOES NOT PARSE ++INCLUDE MEMBERS
CORRECTLY.

Problem conclusion

  • In case of a COPY or ++INCLUDE statement that was not ended with
 period (.) neither in the COBOL statement, nor inside the
copybook, the first word following this statement was
interpreted as an identifier even if it was a keyword. This
didn't happen if the code inside the copybook was pasted inside
the COBOL source code in place of the COPY or ++INCLUDE
statement.

Fixed for version 5.1.0.0.

Temporary fix

  • 



Comments


    

  • 



APAR Information




    

  • APAR number
    PH02250
    • 

  • Reported component name
    APPL DISCOVERY
    • 

  • Reported component ID
    5737B1600
    • 

  • Reported release
    504
    • 

  • Status
    CLOSED  PER
    • 

  • PE
    NoPE
    • 

  • HIPER
    NoHIPER
    • 

  • Special Attention
    NoSpecatt / Xsystem
    • 

  • Submitted date
    2018-08-30
    • 

  • Closed date
    2018-11-19
    • 

  • Last modified date
    2018-11-19
    • 





    

  • 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


    

  • R505  PSY
       UP
    • 








      
              
                            

              

              [{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSRR9Q","label":"IBM Application Discovery for IBM Z"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"504","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]
              

                          

          
 
        

      

    

      

        

          

            
Document Information


            

            


                        

            Modified date:
            

            19 November 2018
            

            
                      

        


        

        


      

    

  



    

  

  
    
            

          
Page Feedback