IBM Support

PK81768: Rational Business Developer V7.1.0: Prevent file I/O record pas sed in as argument being used in function's I/O statements

Subscribe

You can track all active APARs for this component.

 

APAR status

  • Closed as program error.

Error description

  • Rational Business Developer V7.1.0.2:
    
    For COBOL target environments, if the record used in a function
    I/O statement is IndexedRecord, RelativeRecord or SerialRecord,
    the record variable used in the I/O statement must be either
    defined in the function or in the program.  It cannot be passed
    in as an argument to the function and used in I/O statements.
    
    Generation should prevent file I/O records passed as arguments
    to functions from being used in I/O statements in that
    function when generating for COBOL target environments.
    
    Currently, this is allowed and produces the following compiler
    errors during COBOL generation:
    
      IGYPS2121-S "EZESTA-FILE1-74-EOF" was not defined as a
                  data-name.  The statement was discarded.
    
      IGYPS2096-S An incomplete condition was found in a
                  conditional expression.  The operand(s) was(were)
                  discarded.
    
    This COBOL restriction is only for indexed, relative and serial
    records.
    

Local fix

  • The workaround is to either define the record at the function
    level if data does not need to be shared outside the function or
    at the program level so all functions within the program's scope
    has access to the data.
    

Problem summary

  • Apparently, cobol can not deal with program parms that are
    used as targets of  file I/O operations.
    

Problem conclusion

  • I have added a generation time check to prevent this from
    reaching cobol generation.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PK81768

  • Reported component name

    RATL BUS DEV

  • Reported component ID

    5724S5000

  • Reported release

    710

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt

  • Submitted date

    2009-03-03

  • Closed date

    2009-04-13

  • Last modified date

    2009-04-13

  • 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

    RATL BUS DEV

  • Fixed component ID

    5724S5000

Applicable component levels

  • R710 PSN

       UP

[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSMQ79","label":"Rational Business Developer"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"7.1","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}}]

Document Information

Modified date:
13 April 2009