× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Gary,

The hex value of ESC p is 1B70. To get this to your printer, define a constant named ESCP in the RPG definition specs:

 D ESCP             C                   CONST(X'03031B70')

Then insert this string variable into your print data whenever you want to send an ESC p to the printer.

Let me know if this works.

Wayne

Gary Segal wrote:
Thank You Wayne. I will try that as well. I am not very good with hex. Do you know what is the syntax for "ESC p"? what is the length of the field?
Thanks
Gary
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx]
On Behalf Of Wayne McAlpine
Sent: Thursday, November 02, 2006 4:33 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: Cash Register on AS400. Updated and more Questions.

You might want to give the ASCII transparency character a shot.

The ASCII transparency code (Hex 03) allows you to send a string of ascii
control characters to the printer.

The syntax is hex 03 followed by the hex value for the number of characters you
are going to send followed by the escape sequence in hex.

For example, to send an ESC H] sequence, insert the character string
X'03031B485D' into your print text.


Gary Segal wrote:
   I am back. After 4 hours of testing. I aim still wasn't able to open the
   cash drawer.

   I tried all possible variations that I could think off. None of them open
   the drawer. I can print the receipt without any problems. I get hex
   characters printed on it. (see Attached.)

   1. Changing WSCST

   :INITPRT
   DATA ='1B70'X.
   :INITPRT
   DATA ='1B401270'X.
   :INITPRT
   DATA ='2797'X.

   2. Inserting Hex into spool file

   C Move X'2797' P#Hex 1
   C Move X'2797' P#Hex2 2
   C Move X'1B70' P#Hex 1
   C Move X'1B70' P#Hex2 2

   and compile PRTF with:
   Unprintable character action:
   Replace character . . . . . . *NO *SAME, *YES, *NO
   Replacement character . . . . 40-FE, *SAME

   3.  I have changed "Printer Commands" on a printer properties. I was able
   to open the drawer from PC(Print test Pgage),

   But, as soon as I print from AS400 to the same printer (same parms in
   "Printer Commands") "Sim Sim" stays close.

   Any other Ideas. I am I doing something wrong. Looks like that no one
   knows how to do it. I can not believe that I am the first one how is
   trying to do this.

   Thank You all for your help............

   Gary


--------------------------------------------------------------------------------
-------------------------------------
   With ASCII Transparency?

   > Also spoke to IBM(Client Access support team). They said that there
   > in no way to trigger "ESC P" in Client access accept by putting it in
   > WSCST(Work Station Customizing Object), but they no longer support it
   > therefore they can not let me know how to do it.
   > Does anyone has any knowledge what syntaxes do I have to put in
my WSCST object and where? Text file is pretty big. > Please see attached.

   It seems to me IBM support have given you an acceptable pointer to the
   solution.
   The caveat is that I've never tried this particular support using a WSCST
   however ...
   A look through the WSCST source you sent shows two interesting tags
   :INITPRT and :RESETPRT
   A cursory glance through the WSCST Programming Reference says:
   "The INITPRT (initialize printer) tag defines the ASCII control sequence
   for the initialize printer function for an ASCII printer. The host print
   transform function uses the INITPRT tag at the beginning of each print
   job."

   and

   "The RESETPRT (reset printer) tag defines the ASCII control sequence for
   the reset printer function for an ASCII printer. The RESETPRT tag is used
   by the host print transform at the end of each print job."

   Because printing a receipt is a "print job" (presuming each receipt is a
   separate spooled file) it would seem reasonable that you could modify
   either of these tags to include the ESC P incantation. Your only decision
   is whether to open the drawer before printing the receipt (i.e. :INITPRT)
   or after (:RESETPRT).

   The current data for these tags already includes the Escape character. I'm
   fairly sure that Escape codes can be strung together so you only need to
   add the 70 to the end of the current data. Easy enough to try it both with
   and without the second 1B and see what happens.

   Regards,

   Simon Coulter.


--------------------------------------------------------------------------------
--------------------------------------
   Hello again.

   still need some more help. I am almost there. I am able to print to
   Receipt printer from AS400, but still can not open cash drawer.

   I have spoke to Wasp(Cash drawer manufacturer). They told me:

   "ESC P should open the cash drawer. In hexadecimal this is 1B70 and in
   decimal it is 27112"

   I tried to put in spool file as hex. No luck

   Also spoke to IBM(Client Access support team). They said that there in no
   way to trigger "ESC P" in Client access accept by putting it in WSCST(Work
   Station Customizing Object), but they no longer support it therefore they
   can not let me know how to do it.

   Does anyone has any knowledge what syntaxes do I have to put in my WSCST
   object and where? Text file is pretty big. Please see attached.

   Thanks a million

   Gary Segal

   Goebel Of North America
   609-730-8929 Direct
   609-737-1980 Ext 8781
   609-737-8685 Fax
   215-431-7294 Mobil

   ===============================================================

   Original
   --------------

   Hi guys,
   I need some advise on "Point of Sale" hardware.
   We have a store with two POS(Wasp) systems that are using Wasp software
   and
   hardware. We have to upload/download inventory, convert data, etc.... It
   does  not work smoothly....... we have 2 stand a long Wasp Quick store
   systems:

   http://www.waspbarcode.com/point_of_sale/quickstore_pos_bundle_p.asp
   We would like to write Cash Register software that will work directly with
   our  inventory files and merge into our existing applications.

   1. Is there any POS software with open source?
   2. What hardware is the best to use?
   3. How can I make iSeries(model 9406 V5R2M0) to communicate with a Wasp
   cash  register?
   4. Is there a special API's to open the cash drawer?

   Thank you in advance

   Gary Segal
   Goebel Of North America
   609-730-8929 Direct
   609-737-1980 Ext 8781
   609-737-8685 Fax
   215-431-7294 Mobil
   GSegal@xxxxxxxxxx


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.