Re: question on fonts (DFreinkel)

[Gad Miron <gadmiron@xxxxxxxxx>]

An IBM example of various fonts

https://www.ibm.com/docs/en/i/7.1?topic=resources-example-specifying-font

HTH
Gad



> date: Fri, 11 Jun 2021 20:10:49 +0000
> from: Eric Hill via RPG400-L <rpg400-l@xxxxxxxxxxxxxxxxxx>
> subject: RE: question on fonts
>
> I did something like this.  This is the DDS for a print file:
>
> =====================================================================
> 0005.00      A          R XHDR
>
> 0006.00      A*
>
> 0007.00      A*
>
> 0008.00      A                                  1  5 'FONT 6199 - PS 8'
>
> 0009.00      A                                      FONT(6199 (*POINTSIZE
> 8))
> 0010.00      A                                  3  5 'FONT 6199 - PS 10'
>
> 0011.00      A                                      FONT(6199 (*POINTSIZE
> 10))
> 0012.00      A                                  5  5'FONT 6199 - PS 12'
>
> 0013.00      A                                      FONT(6199 (*POINTSIZE
> 12))
> 0014.00      A                                  7  5 'FONT 86 - PS 10'
>
> 0015.00      A                                      FONT(86 (*POINTSIZE
> 10))
> 0016.00      A                                  9  5 'FONT 86 - PS 12'
>
> 0017.00      A                                      FONT(86 (*POINTSIZE
> 12))
> 0018.00      A                                 11  5 'FONT 760'
>
> 0019.00      A                                      FONT(760)
>
> 0020.00      A                                 13  5 'FONT 4427 - PS 8'
>
> 0021.00      A                                      FONT(4427 (*POINTSIZE
> 8))
> 0022.00      A                                 15  5 'FONT 4427 - PS 10'
>
> 0023.00      A                                      FONT(4427 (*POINTSIZE
> 10))
> 0024.00      A                                 17  5 'FONT 4427 - PS 12'
>
> 0025.00      A                                      FONT(4427 (*POINTSIZE
> 12))
> 0026.00      A                                 19  5 'FONT 5687 - PS 8'
>
> 0027.00      A                                      FONT(5687 (*POINTSIZE
> 8))
> 0028.00      A                                 21  5 'FONT 5687 - PS 10'
>
> 0029.00      A                                      FONT(5687 (*POINTSIZE
> 10))
> 0030.00      A                                 23  5 'FONT 5687 - PS 12'
>
> 0031.00      A                                      FONT(5687 (*POINTSIZE
> 12))
> 0032.00      A                                 25  5 'FONT 5707 - PS 8'
>
> 0033.00      A                                      FONT(5707 (*POINTSIZE
> 8))
> 0034.00      A                                 27  5 'FONT 5707 - PS 10'
>
> 0035.00      A                                      FONT(5707 (*POINTSIZE
> 10))
> 0036.00      A                                 29  5 'FONT 5707 - PS 12'
>
> 0037.00      A                                      FONT(5707 (*POINTSIZE
> 12))
> 0038.00      A                                 31  5 'FONT 66'
>
> 0039.00      A                                      FONT(66)
>
> 0040.00      A                                 33  5 'FONT 69'
>
> 0041.00      A                                      FONT(69)
>
> 0042.00      A                                 35  5 'FONT 762'
>
> 0043.00      A                                      FONT(762)
>
> =====================================================================
>
> Create the above print file with *DEVTYPE(*AFPDS).
>
> Then a quick and dirty RPG to print the above:
>
> =========================================
> FFONTPRTP  O    E             PRINTER
>
>  /free
>
>   write xhdr;
>
>   *inlr = *on;
>
>  /end-free
> =========================================
>
> Call the FONTPRT program and send the spool file to a printer capable of
> *AFPDS type printing.  This may not be 100% correct on all fonts but it
> gets pretty close.  There may be more fonts you can add now as I did this
> back in 2013 for some form printing.
>
> Hope this helps!