ttf fonts on iseries - part 2

["tim" <tim.dclinc@xxxxxxxxx>]

I just discovered the ability to use ttf on the iseries by copying them to
"qibm\UserData\OS400\Fonts\TTFonts" and specifying the FONTNAME keyword. I
copied 2 ttf to this folder OLDENGL and GOUDOS. 

 

But when I run the program, I don't get both fonts. Only 1. I tried
different variations of writing data1/data2, data2/data1, etc, but couldn't
figure out whats up.

 

Anyone else have this issue. 

 

My dds is as follows: 

 

R DATA1                                                       

  OLDENGL       25         1FONTNAME('OLDENGL' +              

                                     (*POINTSIZE 20) +        

                                     (*CODEPAGE T1V10037) +   

                                     )                        

                            SPACEB(2)                         

R DATA2                                                       

  GOUDOS        25         1FONTNAME('GOUDOS' +               

                                     (*POINTSIZE 20) +        

                                     (*CODEPAGE T1V10037) +   

                                     )                        

                            SPACEB(2)                         

 

My RPG

FAFP2P     o    e             printer   

 /free                                  

   *inlr = *on;                         

   oldengl = 'Old English';             

   goudos  = 'Goudy Old Style';         

   write data1;                         

   write data2;                         

   *inlr = *on;                         

                                        

 /end-free