home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / REPORT6.4GL < prev    next >
Encoding:
Text File  |  1989-12-08  |  1.5 KB  |  73 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.             AND items.stock_num = 5
  15.  
  16.     START REPORT qty_rep2
  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_rep2 (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_rep2
  33.  
  34. END MAIN
  35.         
  36.                 
  37.  
  38. REPORT qty_rep2 (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.     ORDER BY stock_num
  47.  
  48.     FORMAT
  49.         PAGE HEADER
  50.             PRINT "Stock Number",
  51.                 COLUMN 15, "Manufacturer",
  52.                 COLUMN 30, "Description",
  53.                 COLUMN 50, "Unit",
  54.                 COLUMN 60, "Quantity"
  55.             SKIP 2 LINES
  56.  
  57.         ON EVERY ROW
  58.             PRINT stock_num,
  59.                 COLUMN 15, manu_code,
  60.                 COLUMN 30, description,
  61.                 COLUMN 50, unit,
  62.                 COLUMN 60, quantity
  63.  
  64.         ON LAST ROW
  65.             SKIP 1 LINE
  66.             PRINT COLUMN 20, "Total Quantity on Order: ",
  67.                 COLUMN 55, SUM(quantity) USING "###"
  68.             SKIP 2 LINES
  69.             PRINT COLUMN 20, "Total Number of Orders: ",
  70.                 COLUMN 55, COUNT(*) USING "###"
  71.  
  72. END REPORT
  73.