IBM Support

PH34320: FS=39 ISSUE WHEN OPENING A FILE WITH NEGATIVE COMP-3 VALUE

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

  • When opening a file, if the last column of the file record is a
    COMP-3 data and is a negative number, even if the actual length
    of the file record is the same as the length defined by the
    program, then the file "open" will return with a status code
    of 39.
    
    eg:
    ===== ACTUAL OUTPUT:
    $ export FCMERR1=RSD-data.ps
    $ ./a.out
    I-FAI-ACCESS-METHOD=[OI        ]
    FST=[39]
    FILE-REC=[]
    $
    
    ===== EXPECTED OUTPUT:
    $ export FCMERR1=RSD-data.ps
    $ ./a.out
    I-FAI-ACCESS-METHOD=[OI        ]
    FST=[00]
    FILE-REC=[]
    $
    

Local fix

  • N/A
    

Problem summary

  • USERS AFFECTED:
    Users opening a file with negative comp-3 value may by affected
    by this issue.
    
    PROBLEM DESCRIPTION:
    The COBOL Runtime incorrectly issues a FS=39 error when opening
    a file with negative comp-3 value.
    

Problem conclusion

  • The COBOL Runtime has been fixed to handle the above issue.
    

Temporary fix

Comments

APAR Information

  • APAR number

    PH34320

  • Reported component name

    COBOL AIX RUNTI

  • Reported component ID

    5724Z8702

  • Reported release

    510

  • Status

    CLOSED PER

  • PE

    NoPE

  • HIPER

    NoHIPER

  • Special Attention

    NoSpecatt / Xsystem

  • Submitted date

    2021-02-10

  • Closed date

    2021-02-26

  • Last modified date

    2021-02-26

  • 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

    COBOL AIX RUNTI

  • Fixed component ID

    5724Z8702

Applicable component levels

[{"Line of Business":{"code":"LOB17","label":"Mainframe TPS"},"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS6SGM","label":"COBOL for AIX"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"510"}]

Document Information

Modified date:
27 February 2021