HP3000-L Archives

January 1999, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
printing bar codes on hp-3000 -Reply
From:
Marti Jarsey <[log in to unmask]>
Reply To:
Marti Jarsey <[log in to unmask]>
Date:
Tue, 26 Jan 1999 16:41:03 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (31 lines) 
Jim McCoy wrote:

>>I need to add a bar code to a document that currently prints on the
>>hp-3000.
>>This is a Cobol application.
>>What is available in the line of HP-3000 software for printing bar codes
>>and can easily integrate with existing applications?
>>
>>Jim Mc Coy

What we have done is used the HP LaserJet Bar Codes & More Font Cartridge
and just added the necessary escape sequences to the cobol progam.  When
the usage of bar codes became wide spread we coded them into a copylib.

The font cartridge comes with the escape sequences documented, below is one
of our examples.  I have placed a ~ where an escape would be.  Note the "*"
before the printable value.  This is required to let the reader know that a
bar coded field has begun.

 01  HEADER.
     05  FILLER           PIC X(04) VALUE "PART".
     05  FILLER           PIC X(25) VALUE "~(8U~(s1p27v0s3b4148T".
     05  HDR-PART-NUMBER.
         07  FILLER       PIC X(01) VALUE "*".
         07  BUILD-PART   PIC X(30).
     05  FILLER           PIC X(30)
                               VALUE "~(8U~(s0p10.00h12.0v0s0b3T".

     MOVE   WP-PART-NUMBER        TO    BUILD-PART.
     WRITE  HEADER                          FROM  OUTPUT-REC.

ATOM RSS1 RSS2