Re: Useful CODE/400 Macros -- CODE400-L

I think that would be great.


--- Scott Johnson <sjohnson@highsmith.com> wrote:
>
> Craig and Others,
>
> If we need someplace to offer these and/or other
> Code Macros besides an IBM
> site, I can offer up my personal site at
> www.veriteccomputing.com .  I
> already have some VARPG stuff there. I was going to
> add my own Code macros
> to it, but never got around to it.  I changed
> positions and got away from
> using CODE. Now I am back.
>
> I am not trying to promote anything on that site.  I
> no longer have the
> time to run a sideline consulting service and never
> got around to changing
> the site.  I just want to offer it up as a place to
> put stuff like the
> macros.
>
> --
>
------------------------------------------------------
> Scott P. Johnson
> Applications Development Team Coordinator
> Microcomputer Development Specialist
> IBM Certified Specialist - AS/400 RPG Programmer
>
------------------------------------------------------
>
>
>
>                     craigs@dekko.com
>                     Sent by:                  To:
>  code400-l@midrange.com
>                     code400-l-admin@mi        cc:
>                     drange.com
> Subject:     Useful CODE/400 Macros
>
>
>                     01/16/2002 12:03
>                     PM
>                     Please respond to
>                     code400-l
>
>
>
>
>
>
> 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
>
> _______________________________________________
> This is the CODE/400 Discussion & Support
> (CODE400-L) mailing list
> To post a message email: CODE400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/cgi-bin/listinfo/code400-l
> or email: CODE400-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/code400-l.
>
>
>
>
>
> _______________________________________________
> This is the CODE/400 Discussion & Support
> (CODE400-L) mailing list
> To post a message email: CODE400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/cgi-bin/listinfo/code400-l
> or email: CODE400-L-request@midrange.com
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/code400-l.
>


__________________________________________________
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/