RE: Sending HEX for barcodes to TSP700 Printer -- MIDRANGE-L

Hi Kylea,

You will find it easier if you create a field  Esc 3 Char Alpha
Esc=X'03011B'
and an End 3 Char alpha, End=X'03011E'
And Bc128= X'03056206020435'

Then just build up the string with normal cahracters, Eval Barcode = Esc +
Bc128 + RecVar + End

Then just output Barcode to printer in required position.

THe printer will not know diffrence between Const and Variable, just gets a
string of characters, The Recvar characters will be transformed by
emulation.

Note its a good idea to use Host print transform for hex transform.

HTH

Nick Runnalls.
-----Original Message-----
From: midrange-l-admin@midrange.com
[mailto:midrange-l-admin@midrange.com]On Behalf Of
KWhite@burswood.com.au
Sent: Thursday, 3 January 2002 7:22 PM
To: MIDRANGE-L@midrange.com
Subject: Sending HEX for barcodes to TSP700 Printer



This is a multi-part message in MIME format.
--
Hi all,

Can anyone help me.

I am printing a voucher to a receipt printer.  Amongst other information a
barcode is to be printed which contains a receipt number

eg.  receipt number 000123456 for this printer converts to in hex
303030313233343536 - but within the manual for the printer it is necessary
for me to define this string within the Barcode function being.

1B  62  n1  n2  n3  n4  di   ......  dk  1E

where 1B = ESC
62 = barcode function
n1 = 06 which is CODE 128
n2 = 02 which is character below bar code is printed.
n3 = 4:12 dots
di .. dk = 303030313233343536 (being the receipt number)
1E = end of barcode.

In my RPG program I defined a CONST as follows
where  03 turns on transparency and 16 is the number of characters (HEX) in
the constant.

 #BCODE         C
CONST(X'03161B62060204353030303132333435361E')

Now obviously this would be OK if the receipt number was always the same -
my problem is when I replace any of the constants say by doing a substring
over the receipt number it views the data as a variable rather than a
literal.

Can anyone help.  What I need is a CONSTANT Variable (if only there was
such a thing?)


Kylea White
Analyst Programmer

Burswood International Resort Casino
Great Eastern Highway
BURSWOOD   WA   6100
Phn:  61 8 9362 7016
Fax:  61 8 9470 1789
Email:  KWhite@burswood.com.au
Web:  http://www.burswood.com.au



--
****************************************************************************
************************************
                                       Privacy and Confidentiality Notice

The information contained herein and any attachment is intended solely for
the named recipients.
It may contain privileged confidential information. If you are not an
intended recipient,
please delete the message and any attachments and notify the sender of
mis-delivery:
Any use or disclosure of the contents of either is unauthorised and may be
unlawful.
All liability for viruses is excluded to the fullest extent permitted by
law.
****************************************************************************
************************************

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.