PRINTING SAMPLES OF ISERIES FONTS
IBM says that you can use system resident fonts, like "Times New Roman" how do I get a sample of valid fonts and the method to use them.
Fontname - does not seen to work in my DDS print file.
FNTCHRSET - is accepted by DDS but does not seen to work.
how do I Know which code-page to use.
Software/Hardware used:
Software/Hardware used:
ASKED:
March 7, 2005 1:29 PM
UPDATED:
October 21, 2010 7:12 AM
Answer Wiki:
I believe the FONTNAME keyword works with *AFPDS type print files. When you create the print file, specifiy DEVTYPE(*AFPDS). That should allow you to use the keyword correctly.
To see all answers submitted to the Answer Wiki: View Answer History.
The fonts available to use will vary depending on the printer, the device type of the printer file used, and what fonts you have installed. If you are using an AFPDS printer file, if you have AFPDS capable printers, and if you have the fonts installed, the best thing to get a sample of the fonts is to generate the list yourself.
We have the 240-pel, 300-pel and 600-pel fonts installed in the libraries QFNTCPL, QFNT01, QFNT02, etc. To use the fonts we use the FONT keyword on the printer-file.
To use multiple fonts in one document, we will override the basic FONT of the printer-file with a different font on the Record format or the individual field where we want to apply the different font. (The FONT keyword on the record-level or field-level can be conditioned with indicators– this allows various fonts for the same record format or field.)
To get a list of the fonts I wrote a program that generated a printer-file with the various fonts and sample text in each font. (I don’t have the program anymore.)
If you have an AFPDS printer, you should be able to get it to print a list of installed fonts.
HTH
There are all kinds of fonts available, especially for an AFPDS printer file. Here’s an example PRTF source:
A R RCD001 A 31 A 'Sample fonts' A R RCD006 A SPACEB(001) A 5 A 'ADMDVSS ' A FONT(ADMDVSS ) A 45 A 'ADMDVSSE ' A FONT(ADMDVSSE ) A 5 A 'ADMDVSSF ' A FONT(ADMDVSSF ) A SPACEB(001) A 45 A 'ADMDVSSG ' A FONT(ADMDVSSG ) A 5 A 'ADMDVSSI ' A FONT(ADMDVSSI ) A SPACEB(001) A 45 A 'ADMDVSSK ' A FONT(ADMDVSSK ) A 5 A 'ADMDVSSS ' A FONT(ADMDVSSS ) A SPACEB(001) A 45 A 'ADMMISSF ' A* FONT(ADMMISSF ) A 5 A 'ADMMISSG ' A* FONT(ADMMISSG ) A SPACEB(001) A 45 A 'ADMMISSI ' A* FONT(ADMMISSI ) A 5 A 'ADMMISSP ' A* FONT(ADMMISSP ) A SPACEB(001) A 45 A 'ADMMVSS ' A FONT(ADMMVSS ) A 5 A 'ADMUVCIP ' A FONT(ADMUVCIP ) A SPACEB(001) A 45 A 'ADMUVCRP ' A FONT(ADMUVCRP ) A 5 A 'ADMUVCSP ' A FONT(ADMUVCSP ) A SPACEB(001) A 45 A 'ADMUVDRP ' A FONT(ADMUVDRP ) A 5 A 'ADMUVGEP ' A FONT(ADMUVGEP ) A SPACEB(001) A 45 A 'ADMUVGGP ' A FONT(ADMUVGGP ) A 5 A 'ADMUVGIP ' A FONT(ADMUVGIP ) A SPACEB(001) A 45 A 'ADMUVSRP ' A FONT(ADMUVSRP ) A 5 A 'ADMUVTIP ' A FONT(ADMUVTIP ) A SPACEB(001) A 45 A 'ADMUVTRP ' A FONT(ADMUVTRP ) A 5 A 'ADMUWCIP ' A FONT(ADMUWCIP ) A SPACEB(001) A 45 A 'ADMUWCRP ' A FONT(ADMUWCRP ) A 5 A 'ADMUWCSP ' A FONT(ADMUWCSP ) A SPACEB(001) A 45 A 'ADMUWDRP ' A FONT(ADMUWDRP ) A 5 A 'ADMUWGEP ' A FONT(ADMUWGEP ) A SPACEB(001) A 45 A 'ADMUWGGP ' A FONT(ADMUWGGP ) A 5 A 'ADMUWGIP ' A FONT(ADMUWGIP ) A SPACEB(001) A 45 A 'ADMUWSRP ' A FONT(ADMUWSRP ) A 5 A 'ADMUWTIP ' A FONT(ADMUWTIP ) A SPACEB(001) A 45 A 'ADMUWTRP ' A FONT(ADMUWTRP ) A 5 A 'ADMVMFB ' A FONT(ADMVMFB ) A SPACEB(001) A 45 A 'ADMVMOB ' A FONT(ADMVMOB ) A 5 A 'ADMVMRP ' A FONT(ADMVMRP ) A SPACEB(001) A 45 A 'ADMVMSB ' A FONT(ADMVMSB ) A 5 A 'ADMVMSS ' A FONT(ADMVMSS ) A SPACEB(001) A 45 A 'ADMWMFB ' A FONT(ADMWMFB ) A 5 A 'ADMWMOB ' A FONT(ADMWMOB ) A SPACEB(001) A 45 A 'ADMWMRP ' A FONT(ADMWMRP ) A 5 A 'ADMWMSB ' A FONT(ADMWMSB ) A SPACEB(001) A 45 A 'ADMWMSS ' A FONT(ADMWMSS )Compile that with DEVTYPE(*AFPDS), and test it with:
F FONTS o e printer C write RCD001 C write RCD006 C eval *INLR = *onThere are a couple commented-out font samples in that DDS that I’m not getting to work right now, but the others are working fine. Print to an AFP-capable printer or just use the iNav AFP viewer to see results.
I hope that gives an idea of some of the capabilities that are available almost by default on many systems. All of those should already be on most systems without extra cost.
Tom