wrong message for ITERATE (was NETREXX-148)

NetRexx still gives an incorrect message with ITERA TE:
LEAVE without label is not inside LOOP construct the correct message should be:
ITERATE without label is not inside LOOP construct
=============================================== Example log follows:
Copyright (c) RexxLA, 2011,2015. All rights reserved. Parts Copyright (c) IBM Corporation, 1995,2008. Program dbdict.nrx
=== class com.thsitc.db123.dbdict ===
constructor dbdict()
overrides Scan()
function main(String[])
function define_dict(Rexx)
function parse_dict_file
799 +++ if o_scan.get(',') then iterate +++ ^^^^^^^
+++ Error: LEAVE without label is not inside LOOP construct
801 +++ end--loop
+++ ^^^
+++ Error: Unexpected END (for example, no unended DO, LOOP , or SELECT) 398 +++ f_dict = Dict.dict_name
+++ ^^^^^^
+++ Warning: Variable is set but not us ed
function finish_class
function save_pending_rec
function get_item
function get_item_list
function get_items_yes_no
function get_money_yes_no
function get_logical_parent
function check_fetch(Rexx,Rexx)
function check_options_list
function compute_key_parms(int,Rexx)
function abort(Rexx)
function load_record_def
function get_IMS_field_def
72 +++ save_globals=boolean 0
+++ ^^^^^^^^^^^^
+++ Warning: Private property is define d but not used Compilation of 'dbdict.nrx' failed [2 errors, 2 warnings]
Thomas Schneider, Wien
RexxLA / NetRexx

wrong message for ITERATE (was NETREXX-148) #24
