Data Object Font Examples

In the page definition below there are several examples of font coding:

• There are 2 AFP fonts defined, myfont and font1.
• There are 4 Data Object fonts defined, fontU, font2, font3, and font4.
  • fontU is not referenced in the page definition, but is specified as referenced externally, because it is used in the GOCA object AmFlag.
  • Fonts myfont, font1, font2, font3, and font4 are referenced normally on a PRINTLINE command.
  • font2 uses the UDTYPE subcommand with a named code page.
  • font3 specifies a height and is preloaded.
  • font4 has its name specified in Unicode UTF-16BE. (Traditional only)
  • font4 has its name specified in Unicode UTF-16. (Record Format and XML only)

 Pagedef ttxmp1 replace yes;
   FONT   myfont 'XZM32F';
   FONT   font1 M32F;

   DOFONT fontU 'Unreferenced Font, Used in OBJECT AmFlag';
   DOFONT font2 'Times New Roman' UDTYPE EBCDIC CP 'T1V10037';
   DOFONT font3 'New Goethic Condensed'  PRELOAD Height 12;
   DOFONT font4 X16'00480065006C00760065'    /*Helve       */
                   '0074006900630061';       /* tica       */
   DOFONT micr1 'Times New Roman' HEIGHT 12  MICR;
   OBJECT amflg OBXNAME 'AmFlag' OBTYPE goca  OBKEEP;

 PAGEFORMAT PF1;
   EXTREF fontU;
   Printline Font myfont;
   Printline Font font1 ;
   Printline Font font2 ;
   Printline Font font3 ;
   Printline Font font4 OBJECT amflg;
   Printline;
     FIELD Start 21 Length 16 FONT micr1;

 DOFONT tnreb 'Times New Roman WT J' Height 12 UDTYPE EBCDIC
        CP 'T1V10500';
 DOFONT tnreb 'Times New Roman WT J' Height 12 UDTYPE EBCDIC2
        CP 'T10300';
 DOFONT tnras 'Times New Roman WT J' Height 12 UDTYPE ASCII;
 DOFONT tnru8 'Times New Roman WT J' Height 12 UDTYPE UTF8;
 DOFONT tnru16 'Times New Roman WT J' Height 12 UDTYPE UTF16;