Example: Print font samples
These examples contain instructions and source code that allow you to print a font global identifier (FGID), font character set, or coded font and to see what it looks like.
The source code provided is data description specifications (DDS), which can be used with the following high-level languages:
- C
- COBOL
- RPG
- By using the code examples, you agree to the terms of the Code license and disclaimer information.
- These sample programs work only with printers configured as AFP(*YES).
- See AFP compatibility fonts and font substitution for the names of FGIDs, font character sets, and coded fonts.
Use the following instructions to print a font global identifier (FGID), font character set, or coded font and see what it looks like. If you need assistance with any of the CL commands, use the F4 (Prompt) key and then press the Help key on any of the parameters.
- Create a library to contain the objects needed to print the font samples.
In this example, the library is named FONTSAMPLE.
CRTLIB FONTSAMPLE
- Add FONTSAMPLE to your library list.
ADDLIBLE FONTSAMPLE
- Create a source physical file in FONTSAMPLE to contain your source code.
In this example the source file is named SOURCE.
CRTSRCPF FONTSAMPLE/SOURCE
- Add a member named FONT to that physical file. This member is used for
entering the source code for the printer file.
ADDPFM FILE(FONTSAMPLE/SOURCE) MBR(FONT)
- Edit the member FONT with the source entry utility (SEU).
STRSEU SRCFILE(FONTSAMPLE/SOURCE) SRCMBR(FONT) TYPE(PRTF)
Type the DDS source code (shown in DDS source code) for the printer file. Edit the DDS source and insert the correct font identifier or name. When you are done, press F3 to exit.
- Create the printer file from the DDS source you just typed in.
CRTPRTF FILE(FONTSAMPLE/FONT) SRCFILE(FONTSAMPLE/SOURCE) SRCMBR(FONT) DEVTYPE(*AFPDS)
- Choose the high-level language you will be using to produce printed output.
The compiler for the high-level language you choose must be installed on
your system. Samples are given for C, RPG, and COBOL. Add a member to the
physical file SOURCE. Use one of the following names depending on which language
you choose:
- CCODE for the C language
- COBOLCODE for the COBOL language
- RPGCODE for the RPG language
ADDPFM FILE(FONTSAMPLE/SOURCE) MBR(CCODE, COBOLCODE, or RPGCODE)
- Edit the member (CCODE, COBOLCODE, or RPGCODE) with source entry utility
(SEU). Type the command that corresponds to the high-level language you are
using.
- C:
STRSEU SRCFILE(FONTSAMPLE/SOURCE) SRCMBR(CCODE) TYPE(C)
- RPG:
STRSEU SRCFILE(FONTSAMPLE/SOURCE) SRCMBR(RPGCODE) TYPE(RPG)
- COBOL:
STRSEU SRCFILE(FONTSAMPLE/SOURCE) SRCMBR(COBOLCODE) TYPE(CBL)
- Type the program source for one of these languages:
- C source code
- RPG source code
- COBOL source code
When you are done, press F3 to exit.
- Create the program, using the command below that corresponds to the language
you chose:
- C:
CRTCPGM PGM(FONTSAMPLE/CPGM) SRCFILE(FONTSAMPLE/SOURCE) SRCMBR(CCODE)
- RPG:
CRTRPGPGM PGM(FONTSAMPLE/RPGPGM) SRCFILE(FONTSAMPLE/SOURCE SRCMBR(RPGCODE)
- COBOL:
CRTCBLPGM PGM(FONTSAMPLE/CBLPGM) SRCFILE(FONTSAMPLE/SOURCE) SRCMBR(COBOLCODE)
- Call the program that corresponds to the language you chose:
- C:
Call CPGM
- RPG:
Call RPGPGM
- COBOL:
Call CBLPGM
The output from the program is sent to a spooled file named FONT. You cannot view the spooled file until it prints.