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



Zak:

Suggestions? Hmmm... Try the following ILE CL module. Compile it and then do 
CRTPGM with it, specifying BNDDIR(QSYS/QC2LE). As a bare starting point, it 
might give you some ideas for how to handle the display. Change values and see 
what happens; check other DSM APIs for other effects.

RollScn CL:

pgm

   dcl    &NbrLines        *char     4
   dcl    &TopRow          *char     4
   dcl    &BotRow          *char     4

   chgvar      %bin( &NbrLines   )   2
   chgvar      %bin( &TopRow     )   4
   chgvar      %bin( &BotRow     )  10

   callprc 'QsnRollDown'    ( +
                              &NbrLines    +
                              &TopRow      +
                              &BotRow      +
                              *omit        +
                              *omit        +
                              *omit        +
                            )

   dlyjob      5

return
endpgm

Then, for a PF, consider writing a bare program with a program-described file 
of record-length, say, 32766. Before calling that program, issue an OVRDBF to 
point that file to the one you want to TAIL and specify EOFDLY(*NONE) and 
LVLCHK(*NO). Convert each record you read to include displayable-only 
characters, roll the screen down a line and display your record on the now 
available line.

Modify to taste. Investigate REUSEDLT() PFs also.

Tom Liotta

midrange-l-request@midrange.com wrote:

>   4. Tail400? (was Piping and Redirection) (Metz, Zak)
>
>To clarify, though, I'm not really trying to "copy" the *nixy stuff. What d=
>id catch my eye was there they might be a practical application for a autom=
>atically-updated message queue display, especially one that allows extensiv=
>e and flexible filtering.
>
>If anyone else is thinking along those lines, please share any suggestions =
>and I will do it.

--
--
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertechgroup.com


__________________________________________________________________
The NEW Netscape 7.0 browser is now available. Upgrade now! 
http://channels.netscape.com/ns/browsers/download.jsp

Get your own FREE, personal Netscape Mail account today at 
http://webmail.netscape.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.