Re: Roll amount

[fkany@xxxxxxxxxxxxxxxxxx]

I placed the commands below in PROFILE.LX:

'set ACTION.PGUP MACRO SEUSCRLL SCU'
'set ACTION.PGDN MACRO SEUSCRLL SCD'

I have to switch the Key behavior to LPEX in order to use the commands.
For SEU key behavior, I have to press ALT + PAGE UP or PAGE DOWN to scroll
to the cursor position.  Is there a way to use this same function in SEU
key behavior?






"John Larimer" <jklarimer@xxxxxxxxxxx>@midrange.com on 02/25/2003 09:46:53
AM

Please respond to CODE/400 Discussion & Support <code400-l@xxxxxxxxxxxx>

Sent by:    code400-l-bounces@xxxxxxxxxxxx


To:    code400-l@xxxxxxxxxxxx
cc:

Subject:    Re: Roll amount



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

_______________________________________________
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