home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dba0187.zip
/
TRUCOL1.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1986-12-05
|
2KB
|
93 lines
* TRUCOL1.CMD by Bob Krahmer
* Copyright 1986, Data Based Solutions, Inc.
* All Rights Reserved
CLEAR
SET TALK OFF
SET DELE ON
SET PRINT ON
* NEXT LINE SETS COMPRESSED PRINT ON EPSON PRINTERS. MODIFY AS NEEDED.
?? CHR(27)+CHR(15)
SET PRINT OFF
ERASE
STORE 1 TO COUNT
STORE 'ODD' TO FOOTER
STORE 1 TO PAGE
USE ASSN
GO BOTTOM
IF LNAME>' '
DO WHILE COUNT <= 20
APPEND BLANK
STORE COUNT + 1 TO COUNT
ENDDO
STORE 1 TO COUNT
ENDIF
GO TOP
SET FORMAT TO PRINT
DO WHILE .NOT. EOF
@ 2,57 SAY "THIS IS THE HEADING"
STORE 6 TO LINE
DO WHILE COUNT <= 10
IF LNAME > ' '
STORE TRIM(!(LNAME))+', '+TRIM(TITLE)+' '+TRIM(FNAME) TO NAME1
ELSE
STORE ' ' TO NAME1
ENDIF
SKIP +10
IF LNAME > ' '
STORE TRIM(!(LNAME))+', '+TRIM(TITLE)+' '+TRIM(FNAME) TO NAME2
ELSE
STORE ' ' TO NAME2
ENDIF
SKIP -10
IF ADDRESS > ' '
STORE TRIM(ADDRESS) TO ADDRESS1
ELSE
STORE ' ' TO ADDRESS1
ENDIF
SKIP +10
IF ADDRESS > ' '
STORE TRIM(ADDRESS) TO ADDRESS2
ELSE
STORE ' ' TO ADDRESS2
ENDIF
SKIP -10
IF CITY > ' '
STORE TRIM(CITY)+', '+TRIM(STATE)+' '+ZIPCODE TO CITY1
ELSE
STORE ' ' TO CITY1
ENDIF
SKIP +10
IF CITY > ' '
STORE TRIM(CITY)+', '+TRIM(STATE)+' '+ZIPCODE TO CITY2
ELSE
STORE ' ' TO CITY2
ENDIF
@ LINE,30 SAY NAME1
@ LINE,80 SAY NAME2
STORE (LINE +1) TO LINE
@ LINE,30 SAY ADDRESS1
@ LINE,80 SAY ADDRESS2
STORE (LINE +1) TO LINE
@ LINE,30 SAY CITY1
@ LINE,80 SAY CITY2
SKIP -9
STORE (LINE +3) TO LINE
STORE COUNT + 1 TO COUNT
ENDDO
IF FOOTER='ODD'
@ 60,80 SAY "FOOTING FOR ODD PAGE #"+STR(PAGE,3)
STORE 'EVEN' TO FOOTER
ELSE
@ 60,30 SAY "FOOTING FOR EVEN PAGE #"+STR(PAGE,3)
STORE 'ODD' TO FOOTER
ENDIF
STORE 1 TO COUNT
SKIP +10
STORE PAGE+1 TO PAGE
ENDDO
SET PRINT ON
EJECT
SET PRINT OFF
CLEAR
RETURN