[Bulk] printing micr font -pow 7.10.g3 on vms v 8

[shulbert at littlejohnllp.com]

Possibly different endianness requires more portable code (from this list
yonks ago):

  DEFINE D-ESC-NUM INT*6 UNSIGNED SIZE 2 &
       = 257 * 27
  DEFINE D-ESC CHAR*1 &
       = CHAR(D-ESC-NUM)[1:1]

-- 
Stephen Hulbert 
Senior Analyst Programmer 
For and on behalf of 
Littlejohn LLP
Direct: 020 7516 2201

-----Original Message-----
From: Ken Langendock [mailto:ken.langendock at rogers.com] 
Sent: 15 July 2009 03:55
To: 'Desmond Dujon'; powerh-l at lists.sowder.com
Subject: RE: [Bulk] printing micr font -pow 7.10.g3 on vms v 8

I'm not sure this will help but this is how I send escape sequences to deal
with font sizes.
Ken


  DEFINE D-ESC-NUM INTEGER * 2 UNSIGNED &
       = 27
  DEFINE D-ESC CHARACTER * 1 &
       = CHAR(D-ESC-NUM)
; (symbol)
  DEFINE HPIII-FONT-APPLICATION-ASCII CHARACTER * 4 &
       = D-ESC + '(0U'

; (spacing)
  DEFINE HPIII-FONT-SPACING-FIXED CHARACTER * 5 &
       = D-ESC + '(s0P'

; (height)
  DEFINE HPIII-FONT-HEIGHT-10 CHARACTER * 9 &
       = D-ESC + '(s10.00V'

; (PITCH)
  DEFINE HPIII-FONT-PITCH-10 CHARACTER * 9 &
       = D-ESC + '(s10H'    ; (10)
  DEFINE HPIII-FONT-PITCH-13 CHARACTER * 9 &
       = D-ESC + '(s13H'    ; (13)
  DEFINE HPIII-FONT-PITCH-16 CHARACTER * 9 &
       = D-ESC + '(s16.67H' ; (16)

; (style)
  DEFINE HPIII-FONT-UPRIGHT CHARACTER * 7 &
       = D-ESC + '(s000S'

; (stroke)
  DEFINE HPIII-MEDIUM CHARACTER * 6 &
       = D-ESC + '(s0B'

; (type face)
  DEFINE HPIII-CGTIMES CHARACTER * 8 &
       = D-ESC + '(s4101T'

; (orientation)
  DEFINE HPIII-LANDSCAPE CHARACTER * 5 &
       = D-ESC + '&l1O'
  DEFINE HPIII-PORTRAIT CHARACTER * 5 &
       = D-ESC + '&l0O'

  DEFINE HPIII-PORTRAIT80 CHARACTER * 5 &
       = TRUNCATE(HPIII-PORTRAIT) 
  DEFINE HPIII-PORTRAIT132 CHARACTER * 80 &
       = TRUNCATE(HPIII-PORTRAIT) &
       + TRUNCATE(HPIII-FONT-PITCH-16)
  DEFINE HPIII-LANDSCAPE132 CHARACTER * 80 &
       = TRUNCATE(HPIII-LANDSCAPE) &
       + TRUNCATE(HPIII-FONT-PITCH-13)
  DEFINE HPIII-LANDSCAPE175 CHARACTER * 80 &
       = TRUNCATE(HPIII-LANDSCAPE) &
       + TRUNCATE(HPIII-FONT-PITCH-16)
  DEFINE HPIII-LANDSCAPE220 CHARACTER * 80 &
       = TRUNCATE(HPIII-LANDSCAPE) &
       + TRUNCATE(HPIII-FONT-PITCH-16)

  DEFINE PCL-RESET CHARACTER * 2 = D-ESC + "E"
  DEFINE PCL-NUM-LINES CHARACTER * 6 = D-ESC + "&l68F"
  DEFINE PCL-LINES-INCH CHARACTER * 5 = D-ESC + "&l6D"

  DEFINE PCL-LARGE-FONT CHARACTER * 25 &       ; Using Letter Gothic Bold
                = D-ESC + "(10U" &
                + D-ESC + "(s0p10.00h0s3b4102T"
  DEFINE PCL-MEDIUM-FONT CHARACTER * 25 &
                = D-ESC + "(10U" &
                + D-ESC + "(s0p12.00h0s3b4102T"
  DEFINE PCL-SMALL-FONT CHARACTER * 25 &
                = D-ESC + "(10U" &
                + D-ESC + "(s0p16.00h0s3b4102T"

INITIAL HEADING &
        HPIII-LANDSCAPE132 &
        SKIP 1  TAB 1   SYSDATE &



-----Original Message-----
From: powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com
[mailto:powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com] On
Behalf Of Desmond Dujon
Sent: July 14, 2009 10:15 PM
To: powerh-l at lists.sowder.com
Subject: [Bulk] printing micr font -pow 7.10.g3 on vms v 8


We are trying to get some cheques printed out using MICR from powerhouse v
7.10.g3 on OpenVMs v 8. We bought a font memory card from TROY and installed
it in a HP2420dn laser printer.  We are experiencing some problems in
getting the escape sequences to work and print the MICR font as they should
to the printer. Can anyone help whether by an example or by sending the
escape sequences, which would be extremely helpful.
thanks



-- 
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l at lists.sowder.com
Subscribe: 'subscribe' in message body to powerh-l-request at lists.sowder.com
Unsubscribe: 'unsubscribe <password>' in message body to
powerh-l-request at lists.sowder.com
http://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
Add 'site:lists.sowder.com powerh-l' to your search terms to search the list
archive at Google.


Littlejohn
1 Westferry Circus
Canary Wharf
London
E14 4HD

T: 020 7516 2200
F: 020 7516 2400
www.littlejohnllp.com

Littlejohn LLP, Chartered Accountants

** Notice of change of email and web address **

With effect from 30th January 2009 our email addresses have changed to @littlejohnllp.com
and our website address is now www.littlejohnllp.com

The information contained in this communication is confidential and may be
legally privileged. It is intended solely for the use of the individual or
entity to whom it is addressed and others authorised to receive it. If you
are not the intended recipient you are hereby notified that any disclosure,
copying, distribution or taking of any action in reliance on the contents of
this information is strictly prohibited and may be unlawful.
 
Littlejohn LLP reserves the right to monitor the content of any
message sent to or from littlejohnllp.com.

Littlejohn LLP is registered as a limited liability partnership in England and Wales No. OC342572.  
Registered office as above.
 
Any reference to a partner is to a member of the limited liability partnership. 
A list of members is available at the registered office.

Littlejohn Advisors LLP is a limited liability partnership registered in 
England and Wales No. OC331599. Registered office as above.