home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / R_SPERSO.4GL < prev    next >
Encoding:
Text File  |  1989-12-08  |  684 b   |  33 lines
  1. DATABASE leads
  2. GLOBALS "globals.4gl"
  3.  
  4. REPORT r_sperson(empnum, lnm, fnm)
  5. {
  6. The r_sperson report lists the employee codes and names of salespeople
  7. on the screen.
  8. }
  9. DEFINE   empnum            LIKE sperson.empnum,
  10.          lnm               LIKE sperson.lname,
  11.          fnm               LIKE sperson.fname
  12.  
  13. OUTPUT
  14.    TOP MARGIN 0
  15.    BOTTOM MARGIN 0
  16.    PAGE LENGTH 22
  17.  
  18. FORMAT
  19.    PAGE HEADER
  20.       CLEAR SCREEN
  21.       PRINT "LIST OF CODES AND SALESPEOPLE"
  22.       SKIP 1 LINE
  23.       PRINT "Code", COLUMN 15, "Name"
  24.       SKIP 1 LINE
  25.  
  26.    PAGE TRAILER
  27.       CALL wwait()
  28.  
  29.    ON EVERY ROW
  30.       PRINT empnum, COLUMN 15, lnm CLIPPED, ", ", fnm CLIPPED
  31.  
  32. END REPORT
  33.