Intermate AS/400, i5, iSeries manual Making Equal Distance Between Column Headers

Step 8. Making Equal Distance Between Column Headers

We now want to Format the column headers in the middle of the page (Model, P-Group...) in intervals of 1 inch. As we want to adjust the vertical position as well we will use the Remap Window command. We type 11 to create a new sequence line followed by Field exit and we select type 9:

	Design InterForm		400 overlay					APF300D
Overlay name: MYDEMO			Overlay text: Mydemo
Seqnbr. Type		Overlay definition
0009	8	Tabulator lin.043-055		pos 08-080 left		4,000C	font	9903
0010	8	Tabulator lin.043-055		pos 08-080	left	4,000C	font	9903

Seqnbr. Type
11,0 9	Remap window	Input line	_28 - _28 Position __8 - _14
	Print:	From upper edge	05,060	Line spacing . .	_40
		From left edge	000002	Ignore blank lines	N (Y N)
		Adjustment	C	(U L R C N B E +)
		Rotation	000
		Font	9902	F4=List
		Blank original	_	B = blank original version
	Condition: Position		___ - ___
		Is > = < N	_ ______________________________
		Blank after	_	B = Blank condition after
F3=Exit	F4=Prompt	F18=DSPSPLF		F12=Cancel

By using F18 we find the column header “Model” to be in line 28 position 8 to 12. However we state position 14 for safety reasons. Line spacing and Ignore blank lines are not important as we are operating with only one line. However a good working rule is always to set the line spacing to 6 lpi (1/6" = 40/240" = 40 pels).

Note that we are not blanking the original text as we might want to use the text later. Blanking of unwanted text is done as the last step in this exercise:

We press Enter to save and procede with column header “P-Group”. We type 12 to create a new sequence line followed by Field exit and 9:

Seqnbr. Type
12,0 9	Remap window	Input line	_28 - _28 Position _15 - _25
	Print:	From upper edge	05,060	Line spacing . .	_40
		From left edge	000003	Ignore blank lines	N (Y N)
		Adjustment	C	(U L R C N B E +)
		Rotation	000
		Font	9902	F4=List
		Blank original	_	B = blank original version
	Condition: Position		___ - ___
		Is > = < N	_ ______________________________
		Blank after	_	B = Blank condition after
F3=Exit	F4=Prompt	F18=DSPSPLF		F12=Cancel

We press Enter to save and procede with column header “Serial No.”. We type 13 to create a new sequence line followed by Field exit and 9:

88User’s Manual for InterForm400®