Problem with open() in QP0LLIB1

[Pete Hall <pbhall@xxxxxxxxxxxxx>]

We are experiencing an error in V5R1M0 when executing the open() function
from service program QP0LLIB1.

We are using the following RPG prototype:

     DopenAPI          PR            10I 0 EXTPROC('open')
     D PR_PthStr                       *   VALUE OPTIONS(*STRING)
     D PR_OpnFlg                     10I 0 VALUE
     D PR_Mod                        10U 0 VALUE OPTIONS(*NOPASS)
     D PR_CnvCCSID                   10U 0 VALUE OPTIONS(*NOPASS)

And calling the API with the following values:

    FileHandle = OpenAPI(path: 553648154: 448)

The API is returning -1 in FileHandle, which indicates that the open
failed. However, the target file is being created by the function call, and
calling the __errno function returns a pointer to 0 (zero), indicating that
no error has occurred.

A valid file handle is returned when this same code is executed under
V4R5M0. A search of APARs and PTF cover letters didn't turn up any similar
problems. The latest DB2 group and hyper PTFs are installed.

Has anyone seen this before? A fix would be nice too...

TIA


Pete Hall
pbhall@ameritech.net
http://www.ameritech.net/users/pbhall/index.html