book
Article ID: 131314
calendar_today
Updated On: 04-24-2019
Products
SOLVE:Operations Automation
SOLVE:Access Session Management
SOLVE:FTS
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