home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1992 December
/
simtel1292_SIMTEL_1292_Walnut_Creek.iso
/
msdos
/
dbase
/
techs.arc
/
TECH17.ARC
/
READ.ME
< prev
Wrap
Text File
|
1980-01-01
|
2KB
|
65 lines
PROGRAM NAME: Atsay.PRG
DESCRIPTION: Print spooling in dBASE III
ISSUE: November, 1985
PAGE: 13
SOFTWARE VERSIONS: dBASE III, Developer's Release
FUNCTION: This program provides a way of sending a customized
report, generated with @...SAYs, to a text file for printing at a
later date.
FILES NEEDED: Atsay.PRG
SETUP INSTRUCTIONS:
To set up, first, place the Atsay program into your procedure
file. Next, in the calling program SET ALTERNATE TO <filename>
and initialize the following memory variables.
max_row := numeric, maximum number of rows per page
max_col := numeric, maximum number of columns per row
prev_row := 0
prev_col := 0
Then, replace each @...SAY and @...GET that you want to capture
to the alternate file in your report program with a "DO Atsay
WITH..." statement. For example,
@ 5,6 SAY Name PICTURE "!!!!!"
becomes:
DO Atsay WITH 5, 6, Name, "!!!!!"
and
@ 5,6 SAY "Name" GET Name
becomes:
DO Atsay WITH 5,6,"Name",""
or DO Atsay WITH prev_row,prev_col+1,Name,""
Your calling program should look something like the following:
* ---In the report procedure.
SET ALTERNATE TO <filename>
SET ALTERNATE ON
STORE 0 TO prev_row, prev_col
max_row = 23
max_col = 79
* ---Report algorithm goes here.
* ---Syntax used in place of the @...SAY command:
* ---DO Atsay WITH <row>, <column>, <expression>, <picture>
*
CLOSE ALTERNATE
RETURN
* End of report procedure.
The text file containing the spooled report can be printed by
using the PC/MS-DOS PRINT.COM, COPY <filename> PRN, TYPE
<filename> > LPT1, or from other word processing software.