Page History

...

Refer also to Producing Reports Using LANSA.

Anchor
Define report number 1 to be printed on a 198 character printer Define report number 1 to be printed on a 198 character printer

Define report number 1 to be printed on a 198 character printer

   DEF_REPORT  FORMSIZE(66 198)

Anchor
Define report number 3 to be printed via print file INVOICE Define report number 3 to be printed via print file INVOICE

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)

Anchor
Define report number 1 to have 3 copies printed on output queue LASER Define report number 1 to have 3 copies printed on output queue LASER

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)')

Anchor
Define report number 1 to have form length returned in field #RETLEN Define report number 1 to have form length returned in field #RETLEN

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, the current line number is returned in field #RETLIN and the current page number is returned in field #RETPAG

...