How to set NO to Message Learning on all RULESETs by NCL

book

Article ID: 131314

calendar_today

Updated On:

Products

CA SOLVE:Operations Automation SOLVE:Access Session Management CA SOLVE:FTS CA SOLVE

Issue/Introduction



Is there any sample NCL to set NO to message learning on all RULESETs ?
 

Environment

Release: SLACCS00200-5.0-SOLVE:Access-Session Management
Component:

Resolution

A sample NCL to set NO to Message Learning on RAMDB when it is YES.

   &#LIST = $RM&ZUNIQUE                                              
  &NDBOPEN RAMDB                                                    
  &NDBSCAN RAMDB SEQUENCE=&#LIST +                                  
                 SORT=$RM00OBJID +                                  
                 DATA $RM00CLASS   EQ 93  +                         
                 AND  $RM00VERSION EQ 'ZEVW'                        
  &CALL PROC=$RMDBMS +                                              
        SHARE=($RM>) +                                              
        PARMS=(SERVICE=GET,LISTNAME=&#LIST,CLASS=93,DBCALL=CONT)    
  &DOWHILE &RETCODE = 0                                             
    &PARSE DELIM=, VARS=#RLOPT* DATA=&$RM93RLOPTS                   
    &WRITE TERM=YES LOG=NO COLOUR=P +                               
           DATA=RULESET &$RM00NAME MESSAGE LEARNING=&#RLOPT6        
    &IF .&#RLOPT6 = .YES &THEN +                                    
    &DO                                                             
       &#RLOPT6 = NO                                                
       &$RM93RLOPTS = &CONCAT &#RLOPT1 , &#RLOPT2 , &#RLOPT3 , +    
                              &#RLOPT4 , &#RLOPT5 , &#RLOPT6        
       &CALL PROC=$RMDBMS +                                         
             SHARE=($RM>) +                                         
             PARMS=(SERVICE=SET,OBJID="&$RM00OBJID",+               
                    CLASS=93,DBCALL=CONT)                           
       &IF &RETCODE = 0 &THEN +                                     
          &WRITE TERM=YES LOG=NO COLOUR=G +                         
                 DATA=MESSAGE LEARNING SET TO &#RLOPT6              
       &ELSE +                                                      
          &WRITE TERM=YES LOG=NO COLOUR=R DATA=&SYSMSG              
    &DOEND                                                          
    &CALL PROC=$RMDBMS +                                            
          SHARE=($RM>) +                                            
          PARMS=(SERVICE=GET,LISTNAME=&#LIST,CLASS=93,DBCALL=CONT)  
  &DOEND                                                            
  &NDBCLOSE RAMDB