PI30224: OPEN FAILS ON A NAMED PIPE

COBOL for AIX Fix Pack 13 (October 2015 PTF) for 4.1.1
COBOL for AIX Fix Pack 14 (August 2016 PTF) for 4.1.1
COBOL for AIX Fix Pack 15 (August 2017 PTF) for 4.1.1
COBOL for AIX Fix Pack 16 (July 2018 PTF) for 4.1.1

APAR status

• Closed as program error.

Error description

• The following test case shows error code 39 when attempting to
  open a name pipe.
  
  ===== COMPILE COMMAND:
  cob2 opentest.cbl -o opentest
  
  ===== TESTCASE:
  $ cat opentest.cbl
         IDENTIFICATION DIVISION.
         PROGRAM-ID.    opentest.
         ENVIRONMENT DIVISION.
         CONFIGURATION SECTION.
         INPUT-OUTPUT SECTION.
         FILE-CONTROL.
             SELECT PIPE-FILE
                 ASSIGN USING WS-PIPE-NAME
                 ORGANIZATION IS LINE SEQUENTIAL
                 FILE STATUS IS WS-PIPE-STATUS
                 ACCESS MODE IS SEQUENTIAL.
         DATA DIVISION.
         FILE SECTION.
         FD  PIPE-FILE
             RECORD IS VARYING FROM 1 TO 2020 CHARACTERS
             DEPENDING ON WS-PIPE-LENGTH.
         01  PIPE-REC.
             03  PIPE-REC-NO             PIC X(4).
             03  PIPE-DATE-TIME.
                 05  PIPE-DATE           pic x(08).
                 05  PIPE-TIME           PIC X(08).
             03  PIPE-TEXT               pic x(2000).
         WORKING-STORAGE SECTION.
         01  WS-PIPE-STATUS              PIC X(2).
         01  WS-PIPE-LENGTH              PIC 9(5).
         01  WS-PIPE-NAME                PIC X(90) VALUE
  "pipefile".
         PROCEDURE DIVISION.
         0000-BEGIN.
             OPEN OUTPUT PIPE-FILE.
             display "Open output PIPE-FILE status. Return code: "
                  WS-PIPE-STATUS.
              close PIPE-FILE.
  
             OPEN EXTEND PIPE-FILE.
             display "Open extend PIPE-FILE status. Return code: "
                  WS-PIPE-STATUS.
              close PIPE-FILE.
  
             OPEN INPUT PIPE-FILE.
             display " Open input PIPE-FILE status. Return code: "
                  WS-PIPE-STATUS.
             close PIPE-FILE.
  
             STOP RUN.
  $
  
  
  ===== ACTUAL OUTPUT:
  $ mknod pipefile p
  $ cob2 opentest.cbl -o opentest
  $ opentest
  Open output PIPE-FILE status. Return code: 39
  Open extend PIPE-FILE status. Return code: 39
  Open input PIPE-FILE status. Return code: 39
  $
  
  
  ===== EXPECTED OUTPUT:
  It should open the file successfully.
  

Local fix

• N/A
  

Problem summary

• USERS AFFECTED:
  COBOL for AIX users using named pipe (FIFO) for I/O are affected
  by this issue.
  
  PROBLEM DESCRIPTION:
  Open of a named pipe (FIFO) returns FS=39. Pipe (FIFO) were not
  special cased (ie treated properly).
  

Problem conclusion

• Pipe (FIFO) are now properly handled.
  

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:

  PI55346

Fix information

• Fixed component name

  COBOL FOR AIX

• Fixed component ID

  5724Z8700

Applicable component levels