Re: Printing the Trademark Symbol

["midrange" <franz9000@xxxxxxxxx>]

I took Vern's suggestion and coded it (not as elegant as Vern's code, but it
works). 

 

This is a copy/paste from a pdf version of an afpds spooled file

(note: the email client tells me TM is Ariel Font 6.0 but the DDS Print file
font 2304 is Helvetica and point is 5.0 - we have a posting earlier this
week about spool to pdf fonts changing.)

 

Parts Description TM

Parts Descriptionz TM

Parts Descriptionzz TM

Parts Descriptionzzz TM

Parts Descriptionzzzz TM

 

 

 

A* CRTPRTF FILE(JFTESTX1P) SRCFILE(QDDSSRC) DEVTYPE(*AFPDS)       

A*****************************************************************

A          R $PRTH1                    FONT(11)                   

A            @INVTEXT      40          POSITION(&IX &IY)          

A            @TRADEMRK      2          FONT(2304 (*POINTSIZE 5.0))

A                                      POSITION(&TX &TY)          

A            IX             5S 3P                                 

A            IY             5S 3P                                 

A            TX             5S 3P                                 

A            TY             5S 3P

 

 

 

c                   eval      @invtext = 'Parts Description'     

c                   eval      @trademrk= 'TM'                    

c                   eval      ix = 2.0                           

c                   eval      iy = .5                            

c                   eval      tx = 1.96                          

c                   eval      ty = 0.0                           

c                   do        5             p5                3 0

c                   eval      @len= %len(%trim(@invtext))        

c                   eval      ty = iy + (@len * .1) + .05        

c                   write     $prtH1                             

c                   eval      ix += .5                           

c                   eval      tx += .5                           

c                   eval      @invtext = %trim(@invtext) + 'z'   

c                   enddo                                        

c                   return     

 

Jim Franz  

 

 

-----Original Message-----

From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Vernon
Hamberg

Sent: Thursday, August 13, 2015 10:34 AM

To: RPG programming on the IBM i (AS/400 and iSeries)

Subject: Re: Printing the Trademark Symbol

 

The trademark symbol is just the letters TM, usually in a superscript,
right? There's no circle around it, such as on copyright and registered
symbols. But the trademark symbol is not in CCSID 37. Maybe another font,
eh? Or it's very likely UTF-8 (CCSID 1208) - It might be U2122.

 

If you are using AFPDS, you can probably control this and just use the TM
text with appropriate font - haven't done it, so this is a WAG.

 

On 8/13/2015 9:04 AM, Jeff Young wrote:

> I have been asked by a friend if there is a way the the Trademark 

> Symbol can be stored in a database file and then printed on a document.

> > From what little I know, i believe that if he wants it in a database 

> > file,

> he can create the table with SQL and add a BLOB field.

> How would that be loaded / retrieved and sent to a printer via an 

> RPGLE program?

> I thought about creating a PF, but that would first require getting 

> the symbol in the spool file first.

>

> Any suggestions will be appreciated.

>

> TIA

>

> Jeff Young

> Sr. Programmer Analyst