Xerox 4850 Reference page 53

FDL VERSION B03
DISK-ID: ARIEL
1 FORM 1STFRM;
2 GRID FMT1;
3 FONTS UN114A,UN106A,UN104C;
4 AT 7 DRAW 18 LINES FROM 0 TO 132 USING HAI AND REPEAT EVE 3
5 AT 8 DRAW 18 LINES FROM 0 TO 24 USING HAI AND REPEAT EVE 3
6 AT 9 DRAW 18 LINES FROM 0 TO 24 USING HAI AND REPEAT EVE 3
7 COMMENT *** DRAW VERTICAL LINES ***
8 COMMENT *** DRAW VERTICAL LINES ***
9 AT 24 DRAW VER LINE FROM 5 TO 61 USING HAI
10 AT 32 DRAW 11 VER LINE FROM 5 TO 61 USING HAI AND REPEAT EVE 10
11 AT 29 DRAW VER LINE FROM 10 TO 61 USING BRO HAI
12 AT 38 DRAW 10 VER LINE FROM 10 TO 61 USI BRO HAI AND REPEAT EVE 10
13 AT 8 DRAW 18 VER LINE FROM 8 TO 9 USI HAI AND REPEAT VER EVE 3
14 AT 19 DRAW 18 VER LINE FROM 8 TO 9 USI HAI AND REPEAT VER EVE 3
15 COMMENT ***DRAW BOXES ***;
16 AT 2,2 DRAW BOX 35 WIDE BY 2 HIGH USI HAIRLINE;
17 AT 2,82 DRAW BOX 50 WIDE BY 2 HIGH USI HAI;
18 18 AT 5,0 DRAW BOX 132 WIDE BY 56 HIGH USI HAI;
19 AT 5.1,0 BOX 132 WIDE BY 1.8 HIGH USI SHADING;
20 AT 10.1,0 DRAW 9 BOXES 132 WIDE BY 2.8 HIGH USI SOL HAI
21 INK 'BLUE' AND FILL USING INK 'XEROX.PICTORIAL.PALE BLUE'
22 AND REPEAT VER EVE 6;
23 COMMENT *** TEXT AT COMMAND ***;
24 TEXT USING FONT 2 AT 2,2.5 'COMP.';
25 TEXT USING FONT 2 AT 2,11 'BR.';
26 TEXT USING FONT 2 AT 2,14 'DEPT.';
27 TEXT USING FONT 2 AT 2,22 'DATE';
28 TEXT USING FONT 2 AT 2,30 'PP';
29 TEXT USING FONT 2 AT 2,34 'PAGE';
30 TEXT USING FONT 1 INK 'BLUE' AT 3,47 'EARNINGS REGISTER';
31 TEXT USING FONT 2 AT 61,0 '7860-143-1';
32 VER TEXT USING FONT 3 AT 66,-5 'F8662';
33 COMMENT *** TEXT IN BOX COMMANDS ***;
34 TEXT USI FONT 2 IN BOX 5.1,24 'THIS PAY' BOX 'REGULAR' BOX 'OVERTIME';
35 TEXT USI FONT 2 IN BOX 7,0 'NAME'
36
37
38 BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
39
40
41
42
43
44
45
46
47 TEXT USING FONT 2 IN BOX 8,19 'EMP.##';
48 TEXT USING FONT 2 IN LEFT CENTER BOX 9,0 'SAL/RATE';
49 TEXT USING FONT 2 IN BOX 9,0 'GROSS YTD';
50 END;
XEROX 4850/4890 HIGHLIGHT COLOR LPS FORMS CREATION REFERENCE
Figure 6-12.
13:13 30-APR-XX PAGE
VX.7 R9.7 REL #5 XX/XX/XX
BOX 'GROSS' 'ADJ. NET' 'NET PAY'
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT'
BOX 'UNITS-UNITS YTD' 'CURRENT AMT.' 'YTD AMOUNT';
Source statement (1STFRM.FSL)
1
CODING A COMPLEX FORM
000010
000020
000030
000040
000050
000060
000070
000080
000090
000100
000110
000120
000130
000140
000150
000160
000170
000180
000190
000200
000210
000220
000230
000240
000250
000260
000270
000280
000290
000300
000310
000320
000330
000340
000350
000360
000370
000380
000390
000400
000410
000420
000430
000440
000450
000460
000470
000480
000490
000500
6-9