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



John,
<New Version of seuscrll.lx below>
I placed my 'set action...' in profile.lx in the macro directory.  Good
macro for people used to SEU paging.  Anyone know what Alt-Page Up
(lp_start) and Alt-Page Down (lp_end) are for in the original CODE/400
settings?  They don't seem to do anything.  Still some bugs in this
seuscrll.lx though and needs to be a little more complex than that in order
to not blow up and be more accurate like SEU paging.  Below is the new
version with my changes.  How about you use this and put your seuscrll.lx
and your other load_help.lx on the FAQ at faq.midrrange.com > Programming >
CODE/400 > CODE/400 ReXX Macros?  I could do it but your name should be on
it and you might want to put future macros here too.  I am hoping IBM can
review the FAQ macros and think about adding them to future versions.  What
say you IBM?  I liked your load_help.lx too but make sure you add the "_"
for Others.C.ILE C_--... between ILE and C.  No offense.  It just seems
like if I get hold of something and it can be broke, I will break it.  :)

/* --------------------------------------------------- */
/* 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        */
/* Example:                                            */
/*'set ACTION.PGUP MACRO SEUSCRLL SCU'                 */
/*'set ACTION.PGDN MACRO SEUSCRLL SCD'                 */
/* --------------------------------------------------- */

/*  --------------------------------------------------------------   */
/*  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.                                                    */
/*  02/25/03  Craig Strong                                           */
/*  Fixed SEU full screen paging blow ups and made more accurate.    */
/*  --------------------------------------------------------------   */



parse upper arg option .

if (option = 'SCD') then
do
'EXTRACT CURSORROW'
if (CURSORROW > 1) then
do
'SCROLL DOWN' CURSORROW - 1
end
else
do
'EXTRACT DISPDEPTH'
'SCROLL DOWN' DISPDEPTH
end
end

else if (option = 'SCU') then
do
'EXTRACT CURSORROW'
'EXTRACT DISPDEPTH'
if (CURSORROW < DISPDEPTH) then
do
'SCROLL UP' DISPDEPTH - CURSORROW
end
else
do
'SCROLL UP' DISPDEPTH
end
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

************
Thanks,
Craig Strong



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.