Frequently users request access to the IBM i SFLFOLD (subfile fold) facility which LANSA does not support.
However, by using a simple left-right scrolling facility the technique can be emulated, and often made better.
Imagine that a "list" of information that is 3 screens wide has to be presented to the user.
Scrolling up and down the list is no problem, however, scrolling from left to right can also be achieved like this:
def_list #list1 fields(whatever) top_entry(#top)
def_list #list2 fields(whatever) top_entry(#top)
def_list #list3 fields(whatever) top_entry(#top)
select <whatever>
add_entry #list1
add_entry #list2
add_entry #list3
endselect
change #listno 1
dountil '#io$key = RA'
case #listno
when = 1
display browselist(#list1) userkeys((8 'Right'))
when = 2
display browselist(#list2) userkeys((7 'Left')(8 'Right'))
when = 3
display browselist(#list3) userkeys((7 'Left'))
endcase
case #IO$key
when = 07
change #listno (#listno - 1)
when = 08
change #listno (#listno + 1)
endcase
enduntil
The user can then use function key 7 (scroll left) or function key 8 (scroll right) to scroll left and right across the lists. The use of the same top-entry value for all 3 lists should ensure that the same page of the list is always displayed.
