OA24792: STARTBR ON ESDS -545 RIDFLD MUST BE FULLWORD VARIABLE WHEN USING A REXX VARIABLE OF ZEROS ASSIGNED TO A RBA FIELD.

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When you are assigning hex zeros to a REXX variable in a REXX
  exec to be used as a RBA field with ESDS.
  RBAFLD = '00000000'X
  'CICS STARTBR FILE(FILEA) RIDFLD(RBAFLD) RBA'
     you are getting:
  -545    RIDFLD must be fullword variable.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: All.                                         *
  ****************************************************************
  * PROBLEM DESCRIPTION: RC of -545 on a STARTBROWSE of an ESDS  *
  *                      dataset.                                *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  In the reported problem, a Rexx exec issued the following
  command:
                                                                 .
  CICS STARTBR FILE(fileesds) RIDFLD(rid_val) RBA
                                                                 .
  Where the RIDFLD parameter (rid_val) was set to a 4 byte hex
  value (eg '00000000'x).
  This command was parsed in the Rexx interpreter and rejected
  by it with a -545 return code because it did not treat the
  RIDFLD parameter as a fullword variable.
  
  This behaviour is also applicable to other commands that
  specify the RBA or RRN parameter such as READNEXT and READPREV.
  
  Keywords: RRDS 545
  

Problem conclusion

• CICCP022 has been modified and will now check the length of the
  RIDFLD parameter is 4 bytes when either the RBA or RRN option
  has been specified.
  

Temporary fix

• FIX AVAILABLE BY PTF ONLY
  

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

  UA43494

Modules/Macros

• CICCP022
  

Fix information

• Fixed component name

  REXX/CICS COMM

• Fixed component ID

  565511200

Applicable component levels

• R110 PSY UA43494

     UP08/09/13 P F809

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.