RE: Useful CODE/400 Macros

["David Morris" <David.Morris@xxxxxxxxxxxxx>]

Phil,

You may be right, but it sure won't hurt if people try to channel their
macros through that page. Here is one that I find very useful. It is
also very short. I am cc'ing the varpg mail address, if they find it
worthy it will be added to their page, if not... hopefully someone will
let me know how it could become useful.

/*-------------------------------------------------------------------*/
/* PlayNow.LX                                                        */
/* Purpose: Provide ability to record and play immediately. If you   */
/*          follow the suggested installation instructions, F7 will  */
/*          start/stop recording your actions and F8 will stop       */
/*          recording and play what was recorded.                    */
/* Install: Replace the reference to d:\wdt400 with the directory    */
/*          where Code/400 is installed, then placed this macro      */
/*          in the LPATH extras directory (extras on d:\wdtmacro)    */
/*          Next, add the following to Profile.LX add (with quotes): */
/*          'RECORD off'                                             */
/*          'set action.F7 RECORD inverse'                           */
/*          'set action.F8 MACRO PlayNow'                            */
/*-------------------------------------------------------------------*/

'EXTRACT GLOBAL.PLAYNOW_RUNNING' into Running

if Running = 'YES' then do
'SET GLOBAL.PLAYNOW_RUNNING NO'
exit
end

'record OFF'
'SET GLOBAL.PLAYNOW_RUNNING YES'
'macro d:\WDT400\tmp\RECORD.LX'
'SET GLOBAL.PLAYNOW_RUNNING NO'

David Morris

>>> sublime78ska@yahoo.com 01/18/02 15:56 PM >>>
My only thoughts on IBM's site is that after a couple initial postings
it'll
be forgotten about because IBM really has no incentive to maintain
excitement about it.  A user group, otoh, already has users who are
looking
for answers and users who are giving answers.  Seems like a much better
fit.

If we had a CODE macro FAQ, we could have a folder for questions - like
how
to modify profile.lx - and a folder for actual macros.  The FAQ site is
already there, we're already here, all that's left is to actually post
stuff
there.

Just my .02
Phil

> -----Original Message-----
> From: code400-l-admin@midrange.com
> [mailto:code400-l-admin@midrange.com]On Behalf Of MCPARTLAND, Stan
> Sent: Friday, January 18, 2002 5:42 PM
> To: 'code400-l@midrange.com'
> Subject: RE: Useful CODE/400 Macros
>
>
> IBM has a page
> (http://www-4.ibm.com/software/ad/varpg/download/sharedprograms.html)
for
> shared macros.  A couple of people have contributed.