BARCODE PROGRAMMING IN RPGII
gpg.p...@skynet.be
Does anyone know how to program BARCODES in RPGII without subroutine
SUBR52 ????
We want to program barcodes with transparancy mode.
Any help would be appreciated.
E-mail : gpg.p...@skynet.be
EL_Railfan
It really depends on what printer you are using to print the barcodes. A
long time ago I was printing barcodes from a S/34 (!) to a Printronix
printer with a QMS board. The special codes were just constants in the
ouput specs (or printer files) these days.
--
The EL_Railfan
el_ra...@yahoo.com.SPAMLESS
gpg.p...@skynet.be wrote in article <67e21n$840$1...@news1.skynet.be>...
Mcsinc
You have to use then Subr50 to pass the scs commands you want,unless the
printer you have is say a "parallel" one and it is attached to say an IO brand
terminal where you can do command passthru and passthru the commands.
You can't go and put hex commands onto the spool file, for if you put anything
there with bit value less than X'40' (space), it changes it to a space.
chris
Douwe Wullink
Of course you can program barcodes again and again but you can also use a
forms management tool to help you with it. Then you gain printer
independance and save lots of programming time.
Call Edutronics in the Netherlands to help you solve barcode problems +31
413 293611
Ask for Hajo kanters.
gpg.p...@skynet.be heeft geschreven in bericht
<67e21n$840$1...@news1.skynet.be>...
Roger
>
> Does anyone know how to program BARCODES in RPGII without subroutine
> SUBR52 ????
> We want to program barcodes with transparancy mode.
>
> Any help would be appreciated.
> E-mail : gpg.p...@skynet.be
Here's something to get you started
Mcsinc
That is not RPGII which was the question asked.
>Subject: Re: BARCODE PROGRAMMING IN RPGII
>From: Roger <rko...@netlabs.net/nojunk>
>Date: Mon, Dec 29, 1997 15:57 EST
>Message-id: <6892to$bfa$1...@news.netlabs.net>
>
>This is a multi-part message in MIME format.
>
>--------------1C606FB85AA3
>Content-Type: text/plain; charset=us-ascii
>Content-Transfer-Encoding: 7bit
>--------------1C606FB85AA3
>Content-Type: text/plain; charset=us-ascii; name="Bcrb"
>Content-Transfer-Encoding: 7bit
>Content-Disposition: inline; filename="Bcrb"
>
> H
> H* BAR CODE PRINTING - MAIBasicFour PT-4222 Printer
> H* R. KORTZ 8/22/94
> FQPRINT O F 120 OF LPRINTER
> E PL 120 1 PRINT LINE
> LQPRINT 6FL 5OL
> I '000001000016' C TEST#
> C**** *ENTRY PLIST
> C**** PARM PAITNO 12
> C* Process data
> C EXSR PRODTA
> C SETON LR
> C* - - - - - - - - - - - - - - - - - - - - - - - - - *
> C *INZSR BEGSR
> C* +SR: INITIAL PROCESS
> C MOVE TEST# PAITNO 12
> C* Build PRINTER COMMAND characters
> C* ESCAPE char (X'1B')
> C MOVE X'1B' ESC 1 1B
> C* HEX 01
> C BITOF'0123456' HEX01 1
> C BITON'7' HEX01 01
> C* HEX 02
> C BITOF'0123457' HEX02 1
> C BITON'6' HEX02 02 BGN TRNSPY
> C* HEX 03
> C BITOF'012345' HEX03 1
> C BITON'67' HEX03 03 TRNSPY LEN
> C* HEX 05
> C BITOF'012346' HEX05 1
> C BITON'57' HEX05
> C* HEX 06
> C BITOF'012347' HEX06 1
> C BITON'56' HEX06
> C* HEX 08
> C BITOF'0123567' HEX08 1
> C BITON'4' HEX08 08 TRNSPY LEN
> C* HEX 18
> C BITOF'012567' HEX18 1
> C BITON'34' HEX18
> C* HEX 19
> C BITOF'01256' HEX19 1 EM
> C BITON'347' HEX19
> C* HEX 1D
> C BITOF'0126' HEX1D 1
> C BITON'3457' HEX1D
> C* HEX 21
> C BITOF'013456' HEX21 1 !
> C BITON'27' HEX21
> C* HEX 28
> C BITOF'013567' HEX28 1 GS
> C BITON'24' HEX28
> C ENDSR INIT
> C* - - - - - - - - - - - - - - - - - - - - - - - - - *
> C PRODTA BEGSR
> C* +SR: PROCESS DATA
> C* SELECT UPC-A CODE
> C MOVE *BLANK PL
> C Z-ADD1 P 30
> C MOVE HEX03 PL,P Beg Transp
> C ADD 1 P
> C MOVE HEX08 PL,P ASCII Len
> C ADD 1 P
> C MOVE HEX01 PL,P SOH
> C ADD 1 P
> C MOVE HEX01 PL,P SOH
> C ADD 1 P
> C MOVE ESC PL,P Escape
> C ADD 1 P
> C MOVE HEX21 PL,P !
> C ADD 1 P
> C MOVE HEX02 PL,P HEIGHT
> C ADD 1 P
> C MOVE HEX03 PL,P ETX
> C ADD 1 P
> C MOVE HEX01 PL,P READBLE CHR
> C ADD 1 P
> C MOVE HEX19 PL,P EM
> C EXCPTPRTD1
> C* PRINT BAR CODE
> C MOVE *BLANK PL
> C Z-ADD1 P
> C MOVE HEX03 PL,P Beg Transp
> C ADD 1 P
> C MOVE HEX06 PL,P ASCII Len
> C ADD 1 P
> C MOVE HEX01 PL,P SOH
> C ADD 1 P
> C MOVE HEX01 PL,P SOH
> C ADD 1 P
> C MOVE ESC PL,P Escape
> C ADD 1 P
> C MOVE HEX28 PL,P (
> C ADD 1 P
> C MOVE HEX1D PL,P GS
> C ADD 1 P
> C MOVE HEX05 PL,P SPACE
> C ADD 1 P
> C MOVEAPAITNO PL,P
> C ADD 12 P
> C MOVE HEX03 PL,P Beg Transp
> C ADD 1 P
> C MOVE HEX01 PL,P ASCII Len
> C ADD 1 P
> C MOVE HEX19 PL,P
> C EXCPTPRTD1
> C ENDPD ENDSR PRODTA
> C* - - - - - - - - - - - - - - - - - - - - - - - - - *
> OQPRINT E 1 PRTD1
> O PL 120
>
>--------------1C606FB85AA3--
>
>
>
>
>
>
>
>
karcelay
Another option is to define the printer format as a table source records and
pass them at print time with the desired values using EXCPT..
;-)
Bob Lepp
Best way is to select a bar code printer which does not require hex
values below x'40', any which does is very frustrating, just me
experience talking.
Bob
karcelay wrote:
>
> Another option is to define the printer format as a table source records and
> pass them at print time with the desired values using EXCPT..
>
> ;-)
>
> Roger wrote:
>
Johnny
Another option which I have used and proves much easier (especially if
coding rpgii on pc systems as well as midrange systems).....
Look into a printer emulation box such as the IOTxPlus. The box is a
normal twinax (or whatever) device and connects to normal parallel
printers. It allows simple codes to be output from your program and
it does the translation for you. IO Corporation makes it and it
supports multiple printer and emulation types and .. .does not require
a barcode capable printer - just a dot matrix.
Bob Lepp <bob...@inforamp.net> wrote:
>Best way is to select a bar code printer which does not require hex
>values below x'40', any which does is very frustrating, just me
>experience talking.
>
>Bob
>
>karcelay wrote:
>>
>> Another option is to define the printer format as a table source records and
>> pass them at print time with the desired values using EXCPT..
>>
>> ;-)
>>
>> Roger wrote:
>>