Example of Instructions

The following example shows a rule file that contains these instruction groups.

<rule>
<content>
DOCUMENT:
%%i = 1
do while %%i < 3
message(0, I, "DO WHILE, i=" | %%i)
%%Mess1 = "DO WHILE, i=" | %%i
WRITE(DDOUTPUT2,%%Mess1)
%%i = %%i + 1
loop
do
message(1, I, "DO UNTIL after, i=" | %%i)
%%Mess2 = "DO UNTIL after, i=" | %%i
WRITE(DDOUTPUT2,%%Mess2)
%%i = %%i + 1
loop until %%i > 3
%%a = substr(%%Account_Number, 1, 4)
%%j = %%a # 20
for %%i = %%j to %%j + 25 step 2
if %%i = 26 then
message(7, I, "Iterating for, i=" | %%i)
%%Mess3 = "Iterating for, i=" | %%i
WRITE(DDOUTPUT2,%%Mess3)
iterate for
endif
select case %%i
case 14
  message(2, I, "Case 1, i=" | %%i)
  %%Mess4 = "Case 1, i=" | %%i
  WRITE(DDOUTPUT2,%%Mess4)
case 16 to 20, 24, is > 33
  message(3, I, "Case 2, i=" | %%i)
  %%Mess5 = "Case 2, i=" | %%i
  WRITE(DDOUTPUT2,%%Mess5)
case is >= 30
  message(4, I, "Case 3, i=" | %%i)
  %%Mess6 = "Case 3, i=" | %%i
  WRITE(DDOUTPUT2,%%Mess6)
case else
  message(5, I, "Case else, i=" | %%i)
  %%Mess7 = "Case else, i=" | %%i
  WRITE(DDOUTPUT2,%%Mess7)
end select
if %%i > 35 then
message(6, I, "Exiting for, i=" | %%i)
%%Mess8 = "Exiting for, i=" | %%i
WRITE(DDOUTPUT2,%%Mess8)
exit for
endif
next
</content>
</rule>