Useful CODE/400 Macros

[craigs@xxxxxxxxx]

Since we are on the subject of wish lists, I thought I would mention the
macros I have and use on a regular basis.  I meant to mention this earlier.
Every one of them I have created in-house or modified from the website for
ultimate flexibility, elimination of errors, and ease of use.  Some of the
macros like clipline.lx and modmark.lx on the website, had errors so I
stopped using them but modified them instead.  I am willing to share them
with IBM if they are interested.  I use CODE/400 quite a bit and I have
been using the following macros for quite awhile:
1. ModBlock.lx - Used to fill in a modification mark in positions 1-5 and
can also be used to update the modification date depending on what parm you
pass.  You can select a block in any fashion (select/mark) and the block
will be modified.  You can even use the select all to modify the blocks.
Of course, if you don't even select anything, the line you are on
automatically gets selected.  Since both functions have the same type of
processing, they are in one macro.  Other errors like cutting off the
comments in ILE RPG are now fixed.  Also allows blanking out a mod mark or
zeroing out a date.  Written by Scott Johnson as Mod2, rewritten by Craig
Strong as ModBlock.  I think this is also a good example of using
subroutines in REXX.

2. ClipLine.lx - Uses the mark text method for cut/copy.  Now includes an
identification of a block as unmarked by blocktype = 'UNSET' method to
handle all selections like ModBlock.lx does.  I think there are some
original errors that are fixed now too.
Written by David Morris, modified by Brian James for mark text, and
modified by Craig Strong to fix original errors.

3. Create_Subroutine_RPG (also as RPGLE) - Create subroutine.  Written by
Craig Strong.  Note: This macro might not want to be used as is because you
would want comments different ways.  It prompts for the comment and then
the name of the subroutine.

If anyone would like any of these macros, please e-mail me and I will send
them out right away.
The original authors of the first two macros did an excellent job writing
them and setting a strong foundation, I just took them some steps further.
Maybe other people can come up with different mods.  I could still see a
use for the ModBlock macro after the IBM modification in service pack 5 to
include a SIGNATURE as a Mod Mark when adding a line.

Thanks,
Craig Strong
craigs@dekko.com