Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved


Chapter 3 Tools : $SETRPTMEDIUM

$SETRPTMEDIUM
Sets the medium to which a report is to be printed. (C)
Invocation
CALL $SETRPTMEDIUM(report, mediumtype, medium)
 
The name of the report whose output medium you are setting. Its syntax is C (fixed-length character string) with length 16.
VISUAL – The report is to appear on the screen. The corresponding medium setting must be SCR.
PRINTER – The report is to be directed to a printer. The corresponding medium setting must be PRT.
DIRECTFILE – The report is to be output to the file whose name is contained in the variable medium.
INDIRECTFILE – The report is output to a file identified in medium. Medium contains either the DDNAME associated with the file (on z/OS systems) or the name of an environment variable containing the name of the file (on Open Systems).
The qualification of the mediumtype. These can be:
filename – The output is sent directly to the named file.
ddname – Specifies the DDNAME associated with the file (on z/OS).
environmental variable – Specifies the name of the environment variable containing the name of the file to which you are directing output.
Usage Notes
The default settings for outputting a report are VISUAL for mediumtype and SCR for medium. These are used if NULL or an empty string is supplied, or if a report is printed without explicitly setting the medium for its output.
Example
The following rule sends the output of the test report RPTEST_2 to the screen:

 
RPTEST_2;
_
_ ------------------------------------------------------------------------
_ ------------------------------------------------------------+-----------
_ FORALL $EMPLOYEES : | 1
_ FORALL EMPLOYEES (EMPLOYEES.REGION) : |
_ RPTEST_2$$$$$$$$4.* = EMPLOYEES.*; |
_ RPTEST_2$$$$$$$$4.* = $EMPLOYEES.*; |
_ INSERT RPTEST_2$$$$$$$$4('SETRPTATT'); |
_ END; |
_ END; |
_ CALL $SETRPTMEDIUM('RPTEST_2', 'VISUAL' 'SCR'); | 2
_ PRINT RPTEST_2; | 3
_ CALL ENDMSG(MESSAGE('@RPTGEN', 602, 'RPTEST_2', 'SCR' ''; | 4
_ ------------------------------------------------------------------------
_ ON LOGLIMIT :
_ CALL END MSG(MESSAGE('@RPTGEN', 698, ''));
_

 

Copyright © TIBCO Software Inc. All Rights Reserved
Copyright © TIBCO Software Inc. All Rights Reserved