PI70773: SEGV IN SORT WITH RC=35

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

• Sort statement does not produce the expected results when the
  record length of "SD" "SORTFILE" is greater than the record
  length of "GIVING" file "FXSORTED".
  
  The test1, is simulating the normal behavior when everything
  works fine. Test1 is composed by the source code: test1.cob and
  the  input file for this test: INPUTFILE1.
  The test2, is simulating the wrong behavior the problem that
  they are facing. Test2 is composed by the source code:
  testc2.cob and  the input file for this test: INPUTFILE2.
  
  1) cob2 -g -q64 test1.cob -o test1
       cob2 -g -q64 test2.cob -o test2
  2)  export INPUTFILE2=INPUTFILE2
       export INPUTFILE1=INPUTFILE1
  3)
  $ ./test1
  rec: 0001 data: *1111aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa*
  rec: 0002 data: *3311zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz*
  rec: 0003 data: *5555mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm*
  No more data from FX-SORTED
  Read recs from input file: 0003
  Read recs from sorted file: 0003
  $ ./test2
  <Thread 1>
  <Thread 1>  Traceback:
  <Thread 1>    Offset 0x00000590 in procedure writeERRmsg
  <Thread 1>    Offset 0x00000044 in procedure iwzWriteERRmsg
  <Thread 1>    Offset 0x00000968 in procedure _iwzSortMerge
  <Thread 1>    Offset 0x00000274 in procedure TESTCASE, near line
  46 in file /gsa/tlbgsa-p1/05/xlsup/testcase/aix/61670/test2.cob
  <Thread 1>    --- End of call chain ---
  IWZ026W   The SORT-RETURN special register was never referenced,
  but the current content indicated the sort or merge operation in
  program TESTCASE on line number 46 was unsuccessful.  The
           sort or merge return code was 35.
  
  No more data from FX-SORTED
  Read recs from input file: 0003
  Read recs from sorted file: 0000
  $
  
  
  ===== ACTUAL OUTPUT:
  $ ./test2
  <Thread 1>
  <Thread 1>  Traceback:
  <Thread 1>    Offset 0x00000590 in procedure writeERRmsg
  <Thread 1>    Offset 0x00000044 in procedure iwzWriteERRmsg
  <Thread 1>    Offset 0x00000968 in procedure _iwzSortMerge
  <Thread 1>    Offset 0x00000274 in procedure TESTCASE, near line
  46 in file /gsa/tlbgsa-p1/05/xlsup/testcase/aix/61670/test2.cob
  <Thread 1>    --- End of call chain ---
  IWZ026W   The SORT-RETURN special register was never referenced,
  but the current content indicated the sort or merge operation in
  program TESTCASE on line number 46 was unsuccessful.  The
           sort or merge return code was 35.
  
  No more data from FX-SORTED
  Read recs from input file: 0003
  Read recs from sorted file: 0000
  $
  
  ===== EXPECTED OUTPUT:
  Should not SEGV
  

Local fix

• N/A
  

Problem summary

• USERS AFFECTED:
  Clients who use the SORT utility with COBOL programs may
  encounter this issue
  
  PROBLEM DESCRIPTION:
  The SORT statement does not produce the expected results when
  the record length of "SD" "SORTFILE" is greater than the record
  length of "GIVING" file "FXSORTED".
  

Problem conclusion

• The SORT utility has been corrected to handle the above case.
  

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:

  PI70777

Fix information

• Fixed component name

  COBOL AIX RUNTI

• Fixed component ID

  5724Z8702

Applicable component levels

• R411 PSY

     UP