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


  • Subject: RE: Move subfile left and right?
  • From: booth@xxxxxxxxxxxx
  • Date: Thu, 24 Aug 2000 21:32:35 GMT

Faced with the same problem in Sys/36 days I made various "views" that 
were toggled with function keys so the right side of the 80 column display 
could show "View 1" or "View 2" or "View 3".  The views were set up with 
logically related fields so that a user could in fact see what he wanted.

_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________




"Schlemme, Michael C." <mschlemme@frpaper.com>
Sent by: owner-rpg400-l@midrange.com
08/24/2000 03:18 PM
Please respond to RPG400-L

 
        To:     "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
        cc: 
        Subject:        RE: Move subfile left and right?
How about ......... (just some ideas, not the entire logic..........) 
 
  o A long work field to contain all the data you need on one line 
  o An 80 (or whatever) byte subfile field to contain a part of the long 
work field 
  In program 
    StartingValue = 1 
    LongWorkField = '    123.47-        Department name       20:25:05  
xxxxxxxxooooooooeeeeeeee 
                              99995555555blahblahblah 
    SflField = %SubSt(LongWorkField : StartingValue : %Size(SflField)) 
    Write subfile record 
    If WindowRightKey 
      If StartingValue + %Size(SflSize) <= %Size(LongWorkField) 
        StartingValue = StartingValue + %Size(SflField) 
      Else 
        Message = 'Can''t window right' 
     Same idea for Window left key. 
     Could window right/left based on cursor/subfile record position or 
for all subfile records on screen. 

How's this for a starting idea ??????????? 
  
 
  On display file 
     SflRecord = %SubStr(LongWorkField : StartingValue : 80) 
-----Original Message----- 
From:   eric.delong@pmsi-services.com [SMTP:eric.delong@pmsi-services.com] 
Sent:   Thursday, August 24, 2000 7:54 AM 
To:     RPG400-L@midrange.com 
Subject:        Re: Move subfile left and right? 

     Hmmm, what about 132 column display? May cause squinting and 
     crossed eyes, but otherwise gives you the extra room you need. 
 
     eric.delong@pmsi-services.com 

______________________________ Reply Separator 
_________________________________ 
Subject: Move subfile left and right? 
Author:  <RPG400-L@midrange.com> at INET_WACO 
Date:    8/24/00 4:21 PM 

 
 
Hi all! 
 
Sorry if this is OT, but as the program is written in RPG, I figured the 
question would fit here . . . 
 
I have a subfile with a selection field, 6 signed numeric fields(11,2), as 
well 
as a description field (30 char, and *all* 30 characters are being used. 
 
My problem is to fit the whole record on one line of a 80 column screen. 
(132 
width is next to impossible to read on CA, and the users *insist* that all 
the 
fields be on 1 line). I can't create a splf and just display that, as the 
users 
need to make additional selections on the sfl rec. 
 
Is there short way to define the fields beyond 80 char, and let the 
subfile 
behave like query or dspsplf? 
I can only think of using 2 subfiles, but that seems a bit cumbersome. 
 
Any "quick and dirty" solutions would be welcome :-) 
 
TIA 
Jaco Jonker. 
 
 
+--- 
| This is the RPG/400 Mailing List! 
| To submit a new message, send your mail to RPG400-L@midrange.com. 
| To subscribe to this list send email to RPG400-L-SUB@midrange.com. 
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. 
| Questions should be directed to the list owner/operator: 
david@midrange.com 
+--- 
 

+--- 
| This is the RPG/400 Mailing List! 
| To submit a new message, send your mail to RPG400-L@midrange.com. 
| To subscribe to this list send email to RPG400-L-SUB@midrange.com. 
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. 
| Questions should be directed to the list owner/operator: 
david@midrange.com 
+--- 


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

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.