× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




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



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.