Click above to get retro games delivered to your door ever month!

##############################################################################
###+--------+#################################################################
#+-| REPORT |-----------------------------------------+#######################
#| +--------+ The REPORT command displays the report  |#######################
#|            specified by <Report-ident> through the |#######################
#|            same I/O system as the ? command        |#######################
#+----------------------------------------------------+#######################
##############################################################################
##############################################################################
#+--| Syntax |---------------------------------------------------+############
#|     [!<Alias>] REPORT FORM <Report-ident> [Scope] [PLAIN]     |############
#|     [NOEJECT] [SUMMARY] [TO PRINT] [TO FILE] <C-exp>]         |############
#|     [HEADING <C-exp>] [WHILE <L-exp>] [FOR <L-exp>]           |############
#+---------------------------------------------------------------+############
##############################################################################
##############################################################################
#########+---| Description |----------------------------------------+#########
#########| The default scope for REPORT is ALL.                     |#########
#########| -------------------------------------------------------- |#########
#########| PLAIN                                                    |#########
#########|                                                          |#########
#########| Suppresses the output of the heading declared in the     |#########
#########| <report-ident>.                                          |#########
#########| -------------------------------------------------------- |#########
#########| HEADING                                                  |#########
#########|                                                          |#########
#########| Overrides the heading declared in the <Report-ident> and |#########
#########| substitutes <C-exp> for the heading.                     |#########
#########| -------------------------------------------------------- |#########
#########| NOEJECT                                                  |#########
#########|                                                          |#########
#########| If the TO PRINT clause has been specified, then NOEJECT  |#########
#########| will suppress the initial printing of the form feed      |#########
#########| character (ASCII 12).                                    |#########
#########| -------------------------------------------------------- |#########
#########| SUMMARY                                                  |#########
#########|                                                          |#########
#########| The SUMMARY clause overrides the SUMMARY flag in the     |#########
#########| REPORTDEF, forcing a summary report.                     |#########
#########| -------------------------------------------------------- |#########
#########| TO FILE <C-exp>                                          |#########
#########|                                                          |#########
#########| Forces the report to output through the SET ALTERNATE    |#########
#########| system.  Alternate files already selected are overridden |#########
#########| by TO FILE.                                              |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Create a report called "accounts".                  |#########
#########|                                                          |#########
#########| REPORTDEF accounts                                       |#########
#########|     HEADING      = "G. E. Lane Corp"                     |#########
#########|     WIDTH        = 80                                    |#########
#########|     PAGE_LENGTH  = 55                                    |#########
#########|     LEFT_MARGIN  = 2                                     |#########
#########|     DOUBLE_SPACE = .T.                                   |#########
#########|     PLAIN        = .T.                                   |#########
#########|     SUMMARY      = .T.                                   |#########
#########|                                                          |#########
#########|     GROUPDEF                                             |#########
#########|         HEADING           = "City"                       |#########
#########|         EXPRESSION CHAR   = names->city                  |#########
#########|         EJECT             = .F.                          |#########
#########|     ENDDEF                                               |#########
#########|                                                          |#########
#########|     SUBGROUPDEF                                          |#########
#########|         HEADING           = "Amount:"                    |#########
#########|         EXPRESSION DBL    = names->yeartodate            |#########
#########|         EJECT             = .F.                          |#########
#########|     ENDDEF                                               |#########
#########|                                                          |#########
#########|     COLUMNDEF                                            |#########
#########|         HEADING           = "Recno"                      |#########
#########|         WIDTH             = 5                            |#########
#########|         DECIMALS          = 0                            |#########
#########|         EXPRESSION LONG   = recno()                      |#########
#########|         TOTAL             = .F.                          |#########
#########|     ENDDEF                                               |#########
#########|                                                          |#########
#########|     COLUMNDEF                                            |#########
#########|         HEADING           = "Amount"                     |#########
#########|         WIDTH             = 11                           |#########
#########|         DECIMALS          = 2                            |#########
#########|         EXPRESSION LONG   = names->total                 |#########
#########|         TOTAL             = .T.                          |#########
#########|     ENDDEF                                               |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| *--- now...execute the report                            |#########
#########|                                                          |#########
#########| PROCEDURE force_main                                     |#########
#########|     USE names                                            |#########
#########|     REPORT FORM accounts TO PRINT HEADING ;              |#########
#########|                    "--Detailed Report--"                 |#########
#########|     {...}                                                |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Send a report to a file so it can be printed        |#########
#########| *    at a later date.                                    |#########
#########|                                                          |#########
#########| !ar REPORT FORM arreport TO FILE rfile[z] HEADING ;      |#########
#########|     "Trial Report" ;                                     |#########
#########|     SUMMARY ;                                            |#########
#########+----------------------------------------------------------+#########
##############################################################################