home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / REPORT5.4GL < prev    next >
Encoding:
Text File  |  1989-12-08  |  1.1 KB  |  61 lines
  1. DATABASE stores
  2.  
  3. MAIN
  4.  
  5.     DEFINE p_stock RECORD LIKE stock.*
  6.  
  7.     DECLARE q_curs CURSOR FOR
  8.         SELECT stock_num, manu_code,
  9.             description, unit, unit_price
  10.         FROM stock
  11.  
  12.     START REPORT qty_rep
  13.  
  14.     FOREACH q_curs INTO p_stock.stock_num, 
  15.                 p_stock.manu_code,
  16.                 p_stock.description,
  17.                 p_stock.unit,
  18.                 p_stock.unit_price
  19.  
  20.         OUTPUT TO REPORT qty_rep (p_stock.stock_num,
  21.                         p_stock.manu_code,
  22.                         p_stock.description,
  23.                         p_stock.unit,
  24.                         p_stock.unit_price)
  25.  
  26.     END FOREACH
  27.  
  28.     FINISH REPORT qty_rep
  29.  
  30. END MAIN
  31.         
  32.                 
  33.  
  34. REPORT qty_rep (stock_num, manu_code, description, unit, unit_price)
  35.  
  36.     DEFINE stock_num    LIKE stock.stock_num,
  37.         manu_code    LIKE stock.manu_code,
  38.         description    LIKE stock.description,
  39.         unit    LIKE stock.unit,
  40.         unit_price    LIKE stock.unit_price
  41.  
  42.  
  43.     FORMAT
  44.         PAGE HEADER
  45.             PRINT "Stock Number",
  46.                 column 15, "Manufacturer",
  47.                 column 30, "Description",
  48.                 column 50, "Unit",
  49.                 column 57, "New Unit Price"
  50.             SKIP 2 lines
  51.  
  52.         ON EVERY ROW
  53.             PRINT stock_num,
  54.                 column 15, manu_code,
  55.                 column 30, description,
  56.                 column 50, unit,
  57.                 column 57, unit_price * 1.15 USING "$$$$$.$$"
  58.  
  59.  
  60. END REPORT
  61.