That requires you knowing where you are, exactly on the page.
I always do a series of skips and spaces but I know where the
line is when I print.
Here is a some heading and then some lines all on the same page:
0115.00                 R TXT13B 030912
0116.00 SPACEB(1)                                030912
0117.00 29'CODE'                                   030912
0118.00 39'AMOUNT'                                 030912
0119.00 65'DEDUCTIBLE'                             030912
0120.00 93'PREMIUM'                                030912
0121.00                 R TXT14 030831
0122.00                                             LINE(2.2   0.2 7.90 
*HRZ *MEDIUM)        030912
0123.00                                             LINE(2.650 0.2 7.90 
*HRZ *MEDIUM)        030912
0124.00                                             LINE(2.950 0.2 7.90 
*HRZ *MEDIUM)        030912
0125.00                                             LINE(3.250 0.2 7.90 
*HRZ *MEDIUM)        030912
0126.00                                             LINE(3.550 0.2 7.90 
*HRZ *MEDIUM)        030912
0127.00                                             LINE(3.850 0.2 7.90 
*HRZ *MEDIUM)        030912
0128.00                                             LINE(4.150 0.2 7.90 
*HRZ *MEDIUM)        030912
0129.00                                             LINE(4.450 0.2 7.90 
*HRZ *MEDIUM)        030912
0130.00                                             LINE(4.750 0.2 7.90 
*HRZ *MEDIUM)        030912
0131.00                                             LINE(5.050 0.2 7.90 
*HRZ *MEDIUM)        030912
0132.00                                             LINE(5.350 0.2 7.90 
*HRZ *MEDIUM)        030912
0133.00                                             LINE(5.650 0.2 7.90 
*HRZ *MEDIUM)        030912
0134.00                                             LINE(5.950 0.2 7.90 
*HRZ *MEDIUM)        030912
and the RPG that writes the lines:
0046.00      C WRITETXT13B                                               
030912
0047.00      C WRITETXT14                                                
030831
0048.00      C WRITETXT15                                                
030916
0049.00      C WRITETXT16                                                
030916
0050.00      C WRITETXT17                                                
030916
0051.00      C WRITETXT18                                                
030916
0052.00      C WRITETXT19                                                
030916
0053.00      C WRITETXT20                                                
030916
0054.00      C WRITETXT21                                                
030916
0055.00      C WRITETXT22                                                
030916
0056.00      C WRITETXT23                                                
030916
0057.00      C WRITETXT24                                                
030916
0058.00      C WRITETXT25                                                
031024
Printing lines is going to require a good bit of testing to get the 
"exact" results you want
and it can be different results(slightly) with different printers.
PS: Some fonts will be different if printed on different printers and 
that will change the
alignment of the form.
On 8/6/2013 12:11 PM, Steve Richter wrote:
I am using GUMBO to email an *AFPDS spooled file  to PDF.  But that is just
for testing.  In production I will be printing to a LAN attached laser
printer in the warehouse.
this font seems to work ok:
A                                      FONT(2304 +
A                                      (*POINTSIZE 12 10))
2305 being the bold version of 2304.
What I am having trouble understanding is how do I use POSITION on the same
page as I am using line feeds to advance down the page.  So I print 12
heading lines and then want to print a horizontal line across the page.
The LINE function prints a horizontal line but I think it takes an absolute
position.  But how to know that absolute position after printing x number
of header  lines?
As an Amazon Associate we earn from qualifying purchases.