PRINTING SAMPLES OF ISERIES FONTS

0 pts.
Tags:
AS/400
Development
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.
ASKED: March 7, 2005  1:29 PM
UPDATED: October 21, 2010  7:12 AM

Answer Wiki

Thanks. We'll let you know when a new response is added.

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.

Discuss This Question: 2  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • TheQuigs
    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
    0 pointsBadges:
    report
  • TomLiotta
    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 = *on
    There 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
    125,585 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following