I'll try again, too. ;-)
As other posters have mentioned, it's not the program but the printer, printer
driver and font.
If the printer prints your data with the 3 of 9 font, you have printed a
barcode.
Let's say I want to print barcode labels for tapes in my automatic tape
library.
Something like the COBOL below might work. (take it easy on my snippet, I
haven't written COBOL in *decades*)
Notice the start and stop characters framing the barcode value.
01 output-line-area
05 pic x(8)
10 startc pic x value "*".
10 vser pic x(6).
10 stopc pic x value "*".
Move input-vser to vser.
Write output-line-area.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Goldsby, Gary
Sent: Friday, July 13, 2012 10:23 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Printing barcodes on mainframe generated reports
G'day mates,
This is my second attempt to get information about how to print
barcodes on a report that is created in a Cobol program on a mainframe IBM
platform. My particular issue is I do not understand how to look at a barcode
and know what is required on the printline to satisfy the input requirements of
the barcode logic.
My installation is using AFP formats and fonts and printing via
Infopac and / or RMDS.
The particular barcode I am interested in is known as '3 of 9'.
If you have a cobol program that is sending a 13 digit UPC
number to a '3 of 9' barcode I would like to see the working storage variables
and the procedure division logic you are using.
Thanks for your time,
Gary
________________________________
This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain information that is confidential and
protected by law from unauthorized disclosure. Any unauthorized review, use,
disclosure or distribution is prohibited. If you are not the intended
recipient, please contact the sender by reply e-mail and destroy all copies of
the original message.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
