home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_08_06 / 8n06091a < prev    next >
Text File  |  1990-03-14  |  1KB  |  36 lines
  1. *****Listing 4*****
  2.  
  3. database cardfile
  4.  
  5. main
  6.     define label_rec record like contact.*
  7.     define filehandle integer
  8.     define err_code   smallint
  9.     define buffer     char(256)
  10.     define filename   char(80)
  11.     define max_val    smallint
  12.  
  13.     display "Labels v1.00a -- (c) Victor R. Volkman"
  14.     call fgl_max(4,2,1,3) returning max_val
  15.     display "max value was ",max_val
  16.     let filename = "labels.prn"
  17.     call FGL_fopen(filename,"w") returning filehandle
  18.  
  19.     declare label_cur cursor for
  20.        select * from contact
  21.              order by last_name, first_name
  22.  
  23.     foreach label_cur into label_rec.*
  24.         let buffer = "\n", label_rec.first_name clipped, " ",
  25.             label_rec.last_name
  26.         CALL FGL_fputs(buffer,filehandle) returning err_code
  27.         let buffer = label_rec.address
  28.         CALL FGL_fputs(buffer,filehandle) returning err_code
  29.         let buffer =  label_rec.city clipped, " ",label_rec.state clipped,
  30.             " ", label_rec.zip, "\n\n"
  31.         CALL FGL_fputs(buffer,filehandle) returning err_code
  32.     end foreach
  33.     CALL FGL_fclose(filehandle)
  34.  
  35. end main
  36.