Re: Roll amount

["John Larimer" <jklarimer@xxxxxxxxxxx>]

Oops, guess I should test before I hit the send button....

The set commands are:

'set ACTION.PGUP MACRO SEUSCRLL SHU'
'set ACTION.PGDN MACRO SEUSCRLL SHD'

The SEUSCRLL.LX macro has a bug and I fixed with the following:


/* --------------------------------------------------- */
/* Macro SEUSCRLL: Simulate SEU scrolling options      */
/* Parameters: SCD - Scroll down to cursor line        */
/*             SCU - Scroll up   to cursor line        */
/*             SHD - Scroll down by half a page        */
/*             SHU - Scroll up   by half a page        */
/* --------------------------------------------------- */

/*  --------------------------------------------------------------   */
/*  08/18/99         JKL                                             */
/*  The original shipped from IBM had problems when the line         */
/*  number was odd. I added the 'TRUNC' function and that solved     */
/*  the problems.                                                    */
/*  --------------------------------------------------------------   */



parse upper arg option .

if (option = 'SCD') then
 do
   'EXTRACT CURSORROW'
   'SCROLL DOWN' CURSORROW - 1
 end
else if (option = 'SCU') then
 do
   'EXTRACT CURSORROW'
   'EXTRACT DISPDEPTH'
   'SCROLL UP' DISPDEPTH - CURSORROW + 1
 end
else if (option = 'SHD') then
 do
   'EXTRACT DISPDEPTH'
   dispdepth = trunc((dispdepth / 2))
   'SCROLL DOWN' DISPDEPTH
 end
else if (option = 'SHU') then
 do
   'EXTRACT DISPDEPTH'
   dispdepth = trunc((dispdepth / 2))
   'SCROLL UP' DISPDEPTH
 end





> From: "Peter Colpaert" <Peter.Colpaert@xxxxxxxxxxxx>
> Reply-To: CODE/400 Discussion & Support <code400-l@xxxxxxxxxxxx>
> To: CODE400-L@xxxxxxxxxxxx
> Subject: Roll amount
> Date: Tue, 25 Feb 2003 12:05:39 +0100
>
> Hi group,
>
> I was wondering, is it possible to set the roll amount when pressing the
> page up/down key in CODE Editor?
>
> I would like to set it to 'Half', like it is possible in SEU.
>
> The online help was not very helpful, nor did I find anything in the
> CODE400-L archives or FAQ.
>
> Thanks in advance.
>
> Peter Colpaert
> Application Developer
>
> Honda Europe NV
> Langerbruggestraat 104
> B-9000 GENT
> Belgium
> Peter.Colpaert@xxxxxxxxxxxx
> Tel: +32 9 2501 334
> Fax: +32 9 2501 231
> ----------
> Yoda of Borg are we: Futile is resistance. Assimilate you, we will.
> ----------
>
>
>
>
> ______________________________________________________________________
> The information contained in this communication is confidential and may be
> legally privileged. It is intended solely for the use of the individual or
> the entity to whom it is addressed and others authorised to receive it. If
> you have received it by mistake, please let the sender know by e-mail reply
> and delete it from your system.
> If you are not the intended recipient you are hereby notified that any
> disclosure, copying, distribution or taking any action in reliance of the
> contents of this information is strictly prohibited and may be unlawful.
> Honda Europe NV is neither liable for the proper and complete transmission
> of the information contained in this communication nor for any delay in its
> receipt.
>
>
> _______________________________________________
> This is the CODE/400 Discussion & Support (CODE400-L) mailing list
> To post a message email: CODE400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/code400-l
> or email: CODE400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/code400-l.
>
> NOTE: WDSc for iSeries disucssion has it's own mailing list.
> Information can be found at 
> http://lists.midrange.com/cgi-bin/listinfo/wdsc-l


_________________________________________________________________
MSN 8 helps eliminate e-mail viruses. Get 2 months FREE*.  
http://join.msn.com/?page=features/virus