PK53127: ERROR RUNNING FABZOSMB, LINE 216: INCORRECT CALL TO ROUTINE WHENUSING HIGH RBA/BLK VALUES AND DEFAULT FOR NUMERIC DIGITS IS 9

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Error running FABZOSMB, line 216: Incorrect call to routine when
  using high RBA/BLK values and default for Numeric Digits is 9
  Further, it is not possible to include Comment-Lines in the
  SYSIN card. When doing larger updates in Batch, it would be
  helpful/neccessary to have comments inbetween the specific
  actions. For example, when i need to redo Segment Inserts in a
  Block, it is desired to add a comment for each Segment insert.
  

Local fix

•  After modifying the FABZOSMB Rexx at line 49 with:
   Numeric digits 10               /* set default to 10 Digit */
   it works correctly.
  For the problem related to the comments:
  Modified the REXX FABZOSMB and inserted the following
  statements after line 95:
       when KEYWORD = '*' then do
         say'Comment only'
       end
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: IMS Database Repair Facility for z/OS        *
  *                 Version 1 Release 2                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: Error running FABZOSMB, line 216:       *
  *                      Incorrect call to routine.  This        *
  *                      happens for high RBA or BLK values      *
  *                      because the installation default for    *
  *                      Numeric Digits is 9.                    *
  *                                                              *
  *                      Further, it is not possible to include  *
  *                      Comment-Lines in the SYSIN.             *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  Entering an RBA value greater than (X'3B9AC9FF') causes
  the REXX error in function X2D() because the value returned
  is more than 9 decimal digits.
  
  There is no comment syntax defined for the SYSIN control
  statements of FABZOSMB or of FABZVZAP.
  

Problem conclusion

• The NUMERIC DIGITS value of REXX EXEC FABZOSMB is set to 10.
  This allows entry of RBA hex values up to the full 4G limit.
  
  Control statement syntax is extended to include a line comment
  form in the commands read from SYSIN.  When the first non-blank
  character of a line is asterisk (*), the line will be printed
  and then bypassed.   The comment indicator is not required to
  be in column 1.  To futher enhance readability of the output
  formatting, blanks lines are allowed and processed as comments.
  A blank line contains only spaces in columns 1-72, 73-80 may be
  sequence numbered.
  120Y
  FABZOSMB
  FABZP01
  FABZVZAP
  

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:

  UK30991

Modules/Macros

•    FABZOSMB FABZP01  FABZVZAP
  

Fix information

• Fixed component name

  IMS DATABASE RE

• Fixed component ID

  5655E0300

Applicable component levels

• R120 PSY UK30991

     UP07/11/08 P F711

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.