Intermate i5, AS/400, iSeries manual Creating the Main overlay, F18=DSPSPLF F19=DSPPFM

Creating the Main overlay:

This overlay will be used to call the different sub-overlays, which will perform the actual formatting of the spool entry:

We enter 1. Design overlay, and we create a new overlay named MAIN. We leave the global overlay settings untouched and enter the design window. Here we define the If..then line that will search for the item groups:

Design InterForm 400 overlay		APF300D
Overlay name: MAIN	Overlay text:
Seqnbr. Type Overlay definition

Seqnbr. Type
1,0 ?	If . . . . . Input line	__1	- _70
	Position	_11	- _14
	Is > = < N	= ITEM__________________________
	Then . . . . Overlay	SUB1______ Nos. of lines to remap *VAR
	Upper edge	_0,040 A/+/- -
	Left edge	______ A/+/-
	Blank after	_	B = blank original text
F3=Exit			F11=Delete	F12=Cancel
F13=Set view/print parameters F14=PCL-view			F18=DSPSPLF F19=DSPPFM

We are not sure in which line the item group will appear, so we will just check all lines from 1 to 70.

The horizontal position of the text ITEM will always be fixed in position 11-14.

We enter the name of the sub overlay SUB1, which we will create later for formatting of the footer.

We define *VAR for Number of lines to remap, as we do not know how many item lines each item group will consist of.

We define a negative movement of 1/6" (0,040). We press Enter and we get the following screen:

Vertical cursor repositioning before execute of sub overlay

Position related to actual position

Number of pels . . _40 ( -99 - 99 )

Or reposition related to previous non blank input line

Number of pels . . ___ ( 0 - 999 )

F3=ExitF12=Cancel

In this screen we offset the cursor 1/6" (40 pels) downwards to compensate for the negative movement we just made. This may seem strange, but the purpose is to generate an extra line between each item group. This is needed because we want to split the ITEM header, which was originally a single line, into two lines.

We now press Enter to save the If..then line and we define a new If..then line that will

108User’s Manual for InterForm400®