home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / REPORT7.4GL < prev    next >
Encoding:
Text File  |  1989-12-08  |  1.4 KB  |  69 lines
  1. DATABASE stores
  2.  
  3. MAIN
  4.  
  5.     DEFINE p_items RECORD LIKE items.*,
  6.         p_stock RECORD LIKE stock.*
  7.  
  8.     DECLARE q_curs CURSOR FOR
  9.         SELECT items.stock_num, items.manu_code,
  10.             quantity, description, unit
  11.         FROM items, stock
  12.         WHERE items.stock_num = stock.stock_num
  13.             AND items.manu_code = stock.manu_code
  14.             ORDER BY items.stock_num
  15.  
  16.     START REPORT qty_rep3
  17.  
  18.     FOREACH q_curs INTO p_items.stock_num, 
  19.                 p_items.manu_code,
  20.                 p_items.quantity,
  21.                 p_stock.description,
  22.                 p_stock.unit
  23.  
  24.         OUTPUT TO REPORT qty_rep3 (p_items.stock_num,
  25.                         p_items.manu_code,
  26.                         p_items.quantity,
  27.                         p_stock.description,
  28.                         p_stock.unit)
  29.  
  30.     END FOREACH
  31.  
  32.     FINISH REPORT qty_rep3
  33.  
  34. END MAIN
  35.         
  36.                 
  37.  
  38. REPORT qty_rep3 (stock_num, manu_code, quantity, description, unit)
  39.  
  40.     DEFINE stock_num    LIKE items.stock_num,
  41.         manu_code    LIKE items.manu_code,
  42.         quantity    LIKE items.quantity,
  43.         description    LIKE stock.description,
  44.         unit    LIKE stock.unit
  45.  
  46.     FORMAT
  47.         PAGE HEADER
  48.             PRINT "Stock Number",
  49.                 COLUMN 15, "Manufacturer",
  50.                 COLUMN 30, "Description",
  51.                 COLUMN 50, "Unit",
  52.                 COLUMN 60, "Quantity"
  53.             SKIP 2 LINES
  54.  
  55.         ON EVERY ROW
  56.             PRINT stock_num,
  57.                 COLUMN 15, manu_code,
  58.                 COLUMN 30, description,
  59.                 COLUMN 50, unit,
  60.                 COLUMN 60, quantity
  61.  
  62.         AFTER GROUP OF stock_num
  63.             SKIP 1 LINE
  64.             PRINT COLUMN 20, "Total Quantity on Order: ",
  65.                 COLUMN 55, GROUP SUM(quantity) USING "###"
  66.             SKIP 2 LINES
  67.  
  68. END REPORT
  69.