900-DISTRIBUTE-REPORT

900-DISTRIBUTE-REPORT copies a report to a specified user directory, prints it, or both, based on report parameter data describing a distribution group and the report.

Library DATABASE
Input

CRT-JOB-USER

CRT-JOB-NAME

CRT-STEP-KEY

WS-DB-PRODUCT-LINE

CRT-TOKEN

CRT-RDST-WORK-FILE

CRT-RDST-REPORT-NAME

CRT-RDST-PRINTER

CRT-RDST-DIST-GROUP

CRT-RDST-NBR-COPIES

CRT-RDST-SAVE-REPORT

Output The report stores or prints one or more times based on the specifications in the group list.

Programming Example

     MOVE REPORT1-WF-NAME        TO CRT-RDST-WORK-FILE.
     MOVE REPORT1-NAME           TO CRT-RDST-REPORT-NAME.
     MOVE PWT-DIST-GROUP         TO CRT-RDST-DIST-GROUP.
     MOVE PWT-PRINTER            TO CRT-RDST-PRINTER.
     MOVE PWT-NBR-COPIES         TO CRT-RDST-NBR-COPIES.
     MOVE PWT-SAVE-REPORT        TO CRT-RDST-SAVE-REPORT.
     PERFORM 900-DISTRIBUTE-REPORT.