Re: Roll amount -- CODE400-L

I store my changes in PROFSYS.LXU.

John

From: fkany@xxxxxxxxxxxxxxxxxx
Reply-To: CODE/400 Discussion & Support <code400-l@xxxxxxxxxxxx>
To: CN=CODE/O=400 Discussion & Support <code400-l@xxxxxxxxxxxx>
Subject: Re: Roll amount
Date: Tue, 25 Feb 2003 11:14:07 -0600
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
_______________________________________________
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

_________________________________________________________________ Protect your PC - get McAfee.com VirusScan Online http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963