home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dba0187.zip / TRUCOL1.CMD < prev    next >
OS/2 REXX Batch file  |  1986-12-05  |  2KB  |  93 lines

  1. * TRUCOL1.CMD by Bob Krahmer
  2. * Copyright 1986, Data Based Solutions, Inc.
  3. * All Rights Reserved
  4.  CLEAR
  5.  SET TALK OFF
  6.  SET DELE ON
  7.  SET PRINT ON
  8.  * NEXT LINE SETS COMPRESSED PRINT ON EPSON PRINTERS. MODIFY AS NEEDED.
  9.  ?? CHR(27)+CHR(15)
  10.  SET PRINT OFF
  11.  ERASE
  12.  STORE 1 TO COUNT
  13.  STORE 'ODD' TO FOOTER
  14.  STORE 1 TO PAGE
  15.  USE ASSN
  16.  GO BOTTOM
  17.  IF LNAME>'     '
  18.     DO WHILE COUNT <= 20
  19.        APPEND BLANK
  20.        STORE COUNT + 1 TO COUNT
  21.     ENDDO
  22.     STORE 1 TO COUNT
  23.  ENDIF
  24.  GO TOP
  25.  SET FORMAT TO PRINT
  26.  DO WHILE .NOT. EOF
  27.     @ 2,57 SAY "THIS IS THE HEADING"
  28.     STORE 6 TO LINE
  29.      DO WHILE COUNT <= 10
  30.      IF LNAME > '    '
  31.      STORE TRIM(!(LNAME))+', '+TRIM(TITLE)+' '+TRIM(FNAME) TO NAME1
  32.      ELSE
  33.      STORE ' ' TO NAME1
  34.      ENDIF
  35.      SKIP +10
  36.      IF LNAME > '    '
  37.      STORE TRIM(!(LNAME))+', '+TRIM(TITLE)+' '+TRIM(FNAME) TO NAME2
  38.      ELSE
  39.      STORE ' ' TO NAME2
  40.      ENDIF
  41.      SKIP -10
  42.      IF ADDRESS > '     '
  43.      STORE TRIM(ADDRESS) TO ADDRESS1
  44.      ELSE
  45.      STORE ' ' TO ADDRESS1
  46.      ENDIF
  47.      SKIP +10
  48.      IF ADDRESS > '     '
  49.      STORE TRIM(ADDRESS) TO ADDRESS2
  50.      ELSE
  51.      STORE ' ' TO ADDRESS2
  52.      ENDIF
  53.      SKIP -10
  54.      IF CITY > ' '
  55.      STORE TRIM(CITY)+', '+TRIM(STATE)+'  '+ZIPCODE TO CITY1
  56.      ELSE
  57.      STORE ' ' TO CITY1
  58.      ENDIF
  59.      SKIP +10
  60.      IF CITY > ' '
  61.      STORE TRIM(CITY)+', '+TRIM(STATE)+'  '+ZIPCODE TO CITY2
  62.      ELSE
  63.      STORE ' ' TO CITY2
  64.      ENDIF
  65.      @ LINE,30 SAY NAME1
  66.      @ LINE,80 SAY NAME2
  67.      STORE (LINE +1) TO LINE
  68.      @ LINE,30 SAY ADDRESS1
  69.      @ LINE,80 SAY ADDRESS2
  70.      STORE (LINE +1) TO LINE
  71.      @ LINE,30 SAY CITY1
  72.      @ LINE,80 SAY CITY2
  73.      SKIP -9
  74.      STORE (LINE +3) TO LINE
  75.      STORE COUNT + 1 TO COUNT
  76.      ENDDO
  77.     IF FOOTER='ODD'
  78.        @ 60,80 SAY "FOOTING FOR ODD PAGE #"+STR(PAGE,3)
  79.        STORE 'EVEN' TO FOOTER
  80.     ELSE
  81.        @ 60,30 SAY "FOOTING FOR EVEN PAGE #"+STR(PAGE,3)
  82.        STORE 'ODD' TO FOOTER
  83.     ENDIF
  84.     STORE 1 TO COUNT
  85.     SKIP +10
  86.     STORE PAGE+1 TO PAGE
  87.  ENDDO
  88.  SET PRINT ON
  89.  EJECT
  90.  SET PRINT OFF
  91.  CLEAR
  92.  RETURN
  93.