document.open();document.writeln('
');document.writeln('
###########################################################################');document.writeln('# SIMPLE REPORT SCRIPT');document.writeln('# PROGRAMMED BY: EMILIO VAZQUEZ @ 02-05-2010');document.writeln('# WEB          : http://www.emiliovazquez.com ');document.writeln('# ');document.writeln('############################################################################');document.writeln('');document.writeln('');document.writeln('# we will use this variable to store all data that we obtain from ');document.writeln('# our query results (var_orders)');document.writeln('DEFINE var_orders RECORD LIKE orders.*');document.writeln('DEFINE var_orderdate1 DATE,');document.writeln('       var_orderdate2 DATE');document.writeln('');document.writeln('MAIN');document.writeln('');document.writeln('   DEFER INTERRUPT');document.writeln('   DEFER QUIT');document.writeln('');document.writeln('   OPTIONS');document.writeln('      MESSAGE LINE 23,');document.writeln('      ERROR LINE LAST,');document.writeln('      PROMPT LINE LAST,');document.writeln('      HELP KEY CONTROL-W,');document.writeln('      HELP FILE "interhlp.ex",');document.writeln('      FORM LINE 3');document.writeln('      ');document.writeln('      INITIALIZE var_orders.* TO NULL');document.writeln('');document.writeln('      #stores date for orders to be selected');document.writeln('      PROMPT " PLEASE ENTER INITIAL DATE FOR ORDERS: " FOR var_orderdate1');document.writeln('      PROMPT " PLEASE ENTER FINAL DATE FOR ORDERS:   " FOR var_orderdate2');document.writeln('');document.writeln('');document.writeln('CALL get_data()         ');document.writeln('');document.writeln('END MAIN');document.writeln('');document.writeln('#This function will contain the query to select our data');document.writeln('FUNCTION get_data()');document.writeln('');document.writeln('   DECLARE var_report CURSOR FOR ');document.writeln('');document.writeln('    SELECT *');document.writeln('    FROM orders');document.writeln('    WHERE order_date BETWEEN var_orderdate1 AND var_orderdate2');document.writeln('    ');document.writeln('   ');document.writeln('   START REPORT rept');document.writeln('');document.writeln('      #results from query above will be stored');document.writeln('      #in "var_orders",we are using an '*' since');document.writeln('      #we want multiple columns stored in a single variable');document.writeln('      #These rows will be taken from the 'var_report' cursor');document.writeln('      #declared above (DECLARE var_report CURSOR FOR )');document.writeln('      FOREACH var_report INTO  var_orders.*');document.writeln('          ');document.writeln('');document.writeln('         OUTPUT TO REPORT rept(var_orders.*)');document.writeln('');document.writeln('      END FOREACH');document.writeln('');document.writeln('   FINISH REPORT rept');document.writeln('');document.writeln('RETURN');document.writeln('');document.writeln('END FUNCTION');document.writeln('');document.writeln('#This function will receive the data');document.writeln('#from get_data()');document.writeln('REPORT rept(r_orders)');document.writeln('');document.writeln('#variables para creacion de reportes');document.writeln('DEFINE r_orders RECORD LIKE orders.*');document.writeln('');document.writeln('');document.writeln('   OUTPUT');document.writeln('      LEFT MARGIN 0');document.writeln('      TOP MARGIN 0');document.writeln('      BOTTOM MARGIN 0');document.writeln('      PAGE LENGTH 60');document.writeln('      REPORT TO "report.txt"');document.writeln('       # A text file will be generated into the directory ');document.writeln('       # where the program was executed');document.writeln('');document.writeln('   FORMAT');document.writeln('   ');document.writeln('   #page header will be printed once in first page');document.writeln('   PAGE HEADER');document.writeln('      #Page size is set to 80 columns and paper orientation to portrait');document.writeln('      LET col = (80 - LENGTH(xt))/2 + 1 ');document.writeln('     ');document.writeln('      SKIP 2 LINES');document.writeln('      ');document.writeln('      PRINT COLUMN 01, today,');document.writeln('            COLUMN col, xt CLIPPED,');document.writeln('            COLUMN 77, pageno using "####"');document.writeln('            ');document.writeln('      SKIP 3 LINES');document.writeln('      ');document.writeln('      PRINT COLUMN 01, "SAMPLE REPORT --------------------------"');document.writeln('      SKIP 2 LINES');document.writeln('      ');document.writeln('      PRINT COLUMN 01, "ORDER NUM.",');document.writeln('            COLUMN 10, "DATE",');document.writeln('            COLUMN 25, "CUST.NAME",');document.writeln('            COLUMN 35, "ITEM NUM.",');document.writeln('            COLUMN 40, "DESCRIPTION",');document.writeln('            COLUMN 60, "TOTAL"');document.writeln('');document.writeln('   ON EVERY ROW # Each row will be printed below');document.writeln('');document.writeln('');document.writeln('      PRINT COLUMN 01, r_orders.order_id,');document.writeln('            COLUMN 10, r_orders.order_date,');document.writeln('            COLUMN 25, r_orders.customer_name CLIPPED,# clipped is used to cut extra spaces in cells');document.writeln('            COLUMN 35, r_orders.item_number CLIPPED,');document.writeln('            COLUMN 40, r_orders.description CLIPPED,');document.writeln('            COLUMN 60, r_orders.total USING "<<<<<.&&"');document.writeln(' ');document.writeln('    ON LAST ROW');document.writeln('      ');document.writeln('      #total number of rows will be printed here using count(*)');document.writeln('      PRINT COLUMN 01, "total: ", count(*) USING "<<<" ');document.writeln('          ');document.writeln('END REPORT');document.writeln('
');document.writeln('');document.writeln('');document.writeln('
');document.close();