OA57412: ABEND S0C4 AT +464 IN ROUTINE CKRPTR.CKRPRTL WITH A DEFTYPE LOOKUP IN A SUMMARY STATEMENT

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Abend PSW 078D2001 8E19D3B4 00060004 00000480 (AMODE 64 primary
  problem state key 8)
  system abend 0C4-04 (protection exception) Abend at 8E19D3B4 (at
  offset 000464 in routine CKRPRTR.CKRPRTL)
  
  Abend S0C4-04 in routine CKRPTR.CKRPRTL when using a
  DEFTYPE lookup in a summary statement
  
  n type=compliance name=check header=no name=LSTTESTS required,
    prefixlen=0 prefixsep=' ',
    tt='C O M P L I A N C E   T E S T   R E S U L T S   complex '
  
   exclude ifdefined(COMPLIANCE_EXCLUDE)
  
   define flg_compliant min(test_compliant)
   define flg_noncomply boolean where test_noncompliant=yes,
                                       not(rule_exempt=yes)
   define flg_undecided boolean where,
          not(test_compliant or test_noncompliant or,
              test_assert_as='compliant'c or,
              test_assert_as='noncompliant'c or,
          rule_exempt or rule_set_not_applicable)
   define flg_base boolean where test_base_field<>' '
   define flg_object('object',6,hb) boolean where exists(class)
   define highprio('Pri',2,dec$blank,bw) max(auditpriority)
   define flg_result_no("Didn't find",hb) boolean where
  test_result=no
   define once(0 hb ' ' noretain) TRUE
  
   define once_no_assert(0 hb ' ' noretain) TRUE where
  not(test_assert)
   define flg_asserted('Asserted as',hb,11,cond) true where,
          test_assert and exists(test_assert_as)
   define flg_same_ovr('Also set',8,hb,cond) true where,
          exists(test_assert_recorder) and,
          not(test_assert) and not(test_override)
  sortlist flg_noncomply(nd,bw) | flg_undecided(nd,bw) |,
     '  ',
     flg_noncomply(hb,'Non-Compliant ',0) |,
     flg_undecided(hb,'Undecided ',0) |,
     rule_set_not_applicable(hb,'rule set N/A ',0) |,
     test_compliant(hb,'Compliant ',0) |,
     once('test ') | test(0) | once | test_desc(0,ww),
   / '  ' test_result(hb,'Found',0) | flg_result_no(0),
     | once | test_type(0) | once(' value: '),
     | test_newlist_type(0) | once('.') |,
     test_field(0) | test_reloper(0) |,
     test_compliant_value(0,ww),
   / '  '(ne) once_no_assert('Actual value: '),
     | test_field_value(0,ww,hor),
   / flg_base(ne,hb,'   for',0),
     test_base_field(0) test_field_base_value(0,wrap),
   / '  '(ne) test_override(12,hb,'Overridden as',cond),
       flg_same_ovr flg_asserted test_assert_as(cond,0),
       test_assert_recorder('by',p,cond),
       test_assert_by('for',p,cond,0),
       test_assert_comment('because',p,cond,ww,0),
   / suppress(ne,hb,'       suppressed') suppress_reason(ww,0),
   /
   summary complex(page,tt) ver(page,tt),
           'standard'(page,tt) standard(page,tt,16),
           rule_set_sortkey(nd,page),
           (_newlist_narrow=0 ? 'unload'(page,tt) ),
           :system.unload_datetime(page,tt,18),
           'Rule set'(page,t) rule_set(page,t,13),
           rule_set_caption(page,t,25),
           'system'(page,t) system(page,t),
           system:system.system.sysname(page,t),
           system:system.system.sysclone(page,t),
           (_newlist_narrow=0 ? '   CKFREEZE collected at'(page,t)
  ),
           system:system.system.collect_datetime(page,t,18) |,
           rule_set_desc(0,ww) *,
    /      highprio(0,noprop) |,
           flg_noncomply(nd,noprop) |,
           flg_noncomply(hb,' Non-Compliant ',0,noprop) |,
           flg_undecided(hb,' Undecided ',0,noprop) |,
           flg_compliant(hb,' Compliant ',0,noprop) |,
           rule_set_not_applicable(hb,' N/A ',0) |,
           rule_exempt(hb,' Exempt ',0) |,
           flg_object(noprop) :class(nd) :profile(nd),
           system(0) proftype(0) volser_key(0) class(0)
  :profile(0),
           resource(0,wrap) /
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of zSecure Admin/Audit exploiting the  *
  *                 TOPTILE (TT) output field modifier applied   *
  *                 to lookups in the SUMMARY CARLa statements.  *
  ****************************************************************
  * PROBLEM DESCRIPTION: zSecure Admin/Audit might ABEND0C4      *
  *                      while processing CARLa SUMMARY          *
  *                      statement containing lookups with a     *
  *                      TOPTILE output field modifier.          *
  ****************************************************************
  * RECOMMENDATION: Apply the PTF provided and review the        *
  *                 documentation update.                        *
  ****************************************************************
  When a lookup specification with a TITLLE/TOPTITLE output field
  modifier is present in the SUMMARY field list, the zSecure
  Admin/Audit might ABEND0C4.
  

Problem conclusion

• zSecure Admin/Audit has been modified so that it correctly
  processes the lookups with TITLE/TOPTITLE output field format
  modifiers in the SUMMARY statement. Please note the
  documentation updates as provided by the APAR tracking comment
  data.
  

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:

  UJ01416 UJ01417 UJ01418

Modules/Macros

• CKRINSU  CKROUNIT CKRPRTR  GKRINSU  GKROUNIT GKRPRTR
  

Fix information

• Fixed component name

  ZSEC BASE,ADMIN

• Fixed component ID

  5655T0100

Applicable component levels

• R230 PSY UJ01416

     UP19/11/28 P F911

• R231 PSY UJ01417

     UP19/11/28 P F911

• R240 PSY UJ01418

     UP19/11/28 P F911

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.