/* ReportGen Commodity demo and documentation script */ /****** ReportGenCx/SAVE ************************************** NAME SAVE SYNOPSIS void = HIDE FUNCTION Saves the current settings. INPUTS none RESULT none ************************************************************************** */ /****** ReportGenCx/HIDE ************************************** NAME HIDE SYNOPSIS result = HIDE FUNCTION hides the application window INPUTS none RESULT result - returns FALSE if not successful ************************************************************************** */ /****** ReportGenCx/UNHIDE ************************************** NAME UNHIDE SYNOPSIS result = UNHIDE FUNCTION restores the application window INPUTS none RESULT result - returns FALSE if not successful ************************************************************************** */ /****** ReportGenCx/ICONIFY ************************************** NAME ICONIFY SYNOPSIS result = ICONIFY FUNCTION iconifies the application INPUTS none RESULT 1 if successful, 0 for failure ************************************************************************** */ /****** ReportGenCx/UNICONIFY ************************************** NAME UNICONIFY SYNOPSIS result = UNICONIFY FUNCTION uniconifies the application INPUTS none RESULT result - 1 if successful, 0 for failure ************************************************************************** */ /****** ReportGenCx/VERSION ************************************** NAME VERSION SYNOPSIS result = VERSION FUNCTION returns the version string INPUTS none RESULT result - returns the version string of ReportGenCx ************************************************************************** */ /****** ReportGenCx/AUTHOR ************************************** NAME AUTHOR SYNOPSIS result = AUTHOR FUNCTION returns the author information INPUTS none RESULT result - returns the author string of ReportGenCx ************************************************************************** */ /****** ReportGenCx/QUIT ************************************** NAME QUIT SYNOPSIS void = QUIT FUNCTION quits the application INPUTS none RESULT none ************************************************************************** */ options results ADDRESS REPORTGEN.1 say 'Hiding..' HIDE Call mywait() say 'UnHiding..' UNHIDE Call mywait() say 'Iconify..' ICONIFY Call mywait() say 'UnIconify..' UNICONIFY Call mywait() VERSION say 'Version: 'RESULT Call mywait() AUTHOR say ' Author: 'RESULT Call mywait() say 'Quitting..' QUIT exit mywait: procedure address command 'c:wait 2' return