Retro video games delivered to your door every month!
Click above to get retro games delivered to your door ever month!
X-Hacker.org- Artful Two for Clipper 5.0 - Norton Guide http://www.X-Hacker.org [<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]

Syntax

LINEOUT( acText, cChannel, nRecs_pp [, cAlias[, nPage_recs[, nLines_pp ]]] )

Purpose

Write one real or virtual record in a hard-coded report.

Arguments

     acText -- string or array of strings (composing the real/virtual
                   record) to show/write/display

     cChannel -- output destination:
                     P=printer, F=file, else screen

     nRecs_pp -- how many real or virtual records per page

     cAlias -- if passed, alias of table to back up in if resuming an
                   interrupted report; defaults to current table

     nPage_recs -- if passed, # of records to back up to if resuming an
                       interrupted report; defaults to nRecs_pp

     nLines_pp -- if passed, # of lines per page, overriding
                      records-per-page control

Setup

This is the output function for LIST_EM(), and in that context requires no
setup.

If you call LINEOUT() independently, however, you must declare two
PRIVATE variables, _lines and _recs, and initialise them both to 0.
These are LINEOUT()'s line and record counters. Of course, your own
function may also use them.

Example

     PRIVATE _lines := 0, _recs := 0

     USE CUSTOMER
     DO WHILE !EOF()
         LINEOUT( TRIM( Last_Name ) + " " + ;
                  TRIM( First_Name ), "P", 55 )
         SKIP
     ENDDO

Returns

The logical result from OUT_OK() (which offers to interrupt output if
ESC is pressed).

Side Effects

_recs is incremented by 1.

Artful Calls

OUT_OK, PAGE_CNTRL, PRINTER

Source File

AA_LISTM.PRG

See Also: LIST_EM() OUT_OK()

Online resources provided by: http://www.X-Hacker.org --- NG 2 HTML conversion by Dave Pearson