RE: Useful CODE/400 Macros

Just got around to implementing this...  It is very cool...takes me way back
to the good old dumb terminal days...

-----Original Message-----
From: David Morris [mailto:David.Morris@plumcreek.com]
Sent: Monday, January 21, 2002 1:30 PM
To: code400-l@midrange.com
Cc: varpg@ca.ibm.com
Subject: RE: Useful CODE/400 Macros


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.

_______________________________________________
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.