U@PRINTRPTGRP

U@PRINTRPTGRP builds a report page, then prints each line. Use this routine when you want the system to control the details of report appearance (such as line format, line advancing, page breaks, and new page headers) rather than controlling those details yourself.

Report distribution services allow reports to be sent to users under control of the program.


Module	LAPRINTC
Input	Report group number
Output	Printed lines

Programming Example

This example prints a report group.

`IF PWS@COUNT = 0 EVAL E@MSGNBR = 125 CALLP U@GETMSG Get Msg EVAL RC2@WRNNG = E@CRTMESSAGE EVAL RC2@EMNMBR = ZEROS EVAL RC2@EMFCNB = BLANKS EVAL RC2@EMLSNM = BLANKS EVAL RC2@EMFRNM = BLANKS EVAL RC2@PEMSEX = *BLANKS EVAL E@RPGRPREQST = R@GRP@CNEMEM CALLP U@PRINTRPTGRP ENDIF`

     IF        PWS@COUNT = 0
     EVAL      E@MSGNBR       = 125                          
     CALLP     U@GETMSG                              Get Msg 
     EVAL      RC2@WRNNG      = E@CRTMESSAGE                 
     EVAL      RC2@EMNMBR     = *ZEROS                      
     EVAL      RC2@EMFCNB     = *BLANKS         
     EVAL      RC2@EMLSNM     = *BLANKS 
     EVAL      RC2@EMFRNM     = *BLANKS                      
     EVAL      RC2@PEMSEX     = *BLANKS                      
     EVAL      E@RPGRPREQST   = R@GRP@CNEMEM               
     CALLP     U@PRINTRPTGRP 
     ENDIF