Refer also to Producing Reports Using LANSA.
DEF_REPORT FORMSIZE(66 198)
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)
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)')
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)