7.24.3 DEF_REPORT Examples
Define report number 1 to be printed on a 198 character printer
Define report number 3 to be printed via print file INVOICE
Define report number 1 to have 3 copies printed on output queue LASER
Define report number 1 to have form length returned in field #RETLEN
Refer also to Producing Reports Using LANSA.
Define report number 1 to be printed on a 198 character printer
DEF_REPORT FORMSIZE(66 198)
Define report number 3 to be printed via print file INVOICE
INVOICE has a length of 50 and a width of 80. Last print line and overflow line are set to 48 and 49 respectively:
DEF_REPORT REPORT_NUM(3) PRT_FILE(INVOICE) FORMSIZE(50 80) LAST_LINE(48) OVERFLOW(49)
Define report number 1 to have 3 copies printed on output queue LASER
Use a formtype of A4 LETTER and for the output to be held:
DEF_REPORT OUTQ(LASER) COPIES(3) FORMTYPE('A4 LETTER') OTHER_OVR('HOLD(*YES)')
Define report number 1 to have form length returned in field #RETLEN
Form width is returned in field #RETWID, the overflow value is returned in field #RETOVF, current line number is returned in field #RETLIN and current page number is returned in field #RETPAG.
DEF_REPORT RET_LENGTH(#RETLEN) RET_WIDTH(#RETWID) RET_OVERF(#RETOVF) RET_LINE(#RETLIN) RET_PAGE(#RETPAG)