Intermate i5, AS/400, iSeries manual Making Equal Distance between Item Line Columns

Step 9. Making Equal Distance between Item Line Columns

We now want to perform the same actions for the item-line columns below the dotted line. As the horizontal positions of the item line columns are identical to the column headers, we can copy the sequence lines 11 to 15 and just correct the vertical position (from upper edge) and the input line numbers.

We select F5 for service functions and select 3. Copy definitions into this overlay:

Design InterForm	400 overlay	APF300D
Overlay name: MYDEMO	Overlay text: Mydemo
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
0011	9	Remap window 28-028 pos 08-014			top 5,060	left 2,000 C
0012	9	Remap window 28-028 pos 15-025			top 5,060	left 3,000		C
0013	9	Remap window 28-028	pos 26-039		top 5,060	left 4,000		C
0014	9	Remap window 28-028	pos 40-053		top 5,060	left 5,000		C
0015	9	Remap window 28-028	pos 54-070		top 5,060	left 6,000		C

In this function you can copy lines into this overlay definition.

Overlay to be copied from . . . . . . . .

Sequence numbers from/to to be copied . . Inserted at sequence number . . . . . . .

F4 = overview overlays

F24 = shift to look at FROM-overlay

__________ blank = this overlay

0011_ - 0015_

16___

We define the copies of line 11 to 15 to be inserted from sequence line 16 and onwards.

By using F18 we find the item lines to range from line 30 and onwards. We estimate the last possible item line to be in the line just before the lower part of the body text, i.e. line

42:

We enter each sequence line from 16 to 20 and correct the line interval to 30-42, but leave all other values untouched:

Seqnbr. Type
16,0 9	Remap window	Input line	_30 - _42 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

90User’s Manual for InterForm400®