IBM Security Z Security

 View Only

 Using zSecure for ACF2 Reporting

Lynn Gilson's profile image
Lynn Gilson posted Thu December 11, 2025 04:50 PM

So rusty with zCarla but I'd like to modify one of your programs to simply shift some columns of data over with this auto-generated code in batch:

n type=acf2_ruleline n=rulelin0 required allowrestrict,                

 tt="zSecure Audit for ACF2 rule line overview with nextkey expansion ",

   ,                                                                   

   st="All rule lines with HLQ IB15*"                                  

 def expansion(1 "x" hb) boolean where exists(NextKey)                 

 S  (KEY=IB15* OR PREFIX=IB15*.**)                                     

 sortlist "complex"(tt,page) Complex(tt,page) TimeStamp(tt,page),,     

   ,                                                                   

   ,                                                                   

   ,                                                                   

 key(nd) sequence_number(nd) rule_entry(nd,firstonly) ,                

 evaluation_id(20 indent(nextkey_depth) "$key"),                       

 Rule_Entry(ww,0)    NextKey_Depth(nd)                                 

\/  

 

Trying to get a report like this only with the ‘NextKey’ shifted over to the right to column 10.  I shifted them manually in this sample below.  In the auto-generated code it only shifts it over 1 space - I'd like to shift it over 10 spaces for NextKey and over 20 spaces for the RuleEntry column.  Is this easily modified?  

 

----+----1----+----2----+----3----+----4- ---+----5----+----6----+----7----+----8----+----9----+----0

********************************************************* Top of Data *****************************

zSecure Audit for ACF2 rule line overview with next key expansion complex GWLPLEX  11Dec2025 15:21  

All rule lines with HLQ IB15*                                                                      

----+----1----+----2----+----3----+----4- ---+----5----+----6----+----7----+----8----+----9----+----0                                                                                                   

$key               RuleEntry                                                                     

IB15               AFP.- UID(*) NEXTKEY(IB15AFP)                                                 

         IB15AFP   AFP.- UID(AG51) READ(A) EXEC(A)                                               

         IB15AFP   AFP.- UID(GPEP) READ(A) EXEC(A)                                               

         IB15AFP   AFP.- UID(INDP14) READ(A) EXEC(A)                                             

         IB15AFP   AFP.- UID(INDP) READ(A) EXEC(A)                                               

         IB15AFP   AFP.- UID(PAGS) READ(A) EXEC(A)                                               

         IB15AFP   AFP.- UID(********INDI) READ(A) EXEC(A)  

Many thanks for this forum TechXchange.

Lynn