Please at least give the procedures sane names. This naming is one of the things that alienates us from the rest of the programming world and btw names can have more that 6 characters. We are no longer in the 80s. Use a decent editor. Use content assist if you don't like to type long names.Now I understand what you mean by cursors, setll, and setgt.I posted a code example earlier, but i suppose it was rather cryptic.
cursor = rm_sll(rm_cur(map));
sum += rm_p_(rm_itm(cursor));
To iterate through all key/item pairs, procedure "rm_cur" creates a cursor,
"rm_sll" does a setll (set lower limit, without key so the cursor is set at
the beginning), "rm_rdn" (reads the next key/item pair) and "rm_itm"
returns the current item. "rm_sll" returns it's first argument which is the
cursor, to enable "chaining" of procedure calls. Procedure "rm_p_" is the
opposite of "rm_p" and converts a packed decimal value stored in the map to
a "normal" RPG packed decimal. "rm_dis" disposes the cursor.
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.