7.29.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.

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.

...

   DEF_

...

REPORT 

...

 RET_LENGTH(#RETLEN) RET_WIDTH(#RETWID)

...

   RET_OVERF(#RETOVF) RET_LINE(#RETLIN)

...

   RET_PAGE(#RETPAG)