We have done it. In the Cobol program we set up a data definition like;
01 WSP1-PRINT-LINE-1.
12 WSP1-CC PIC X VALUE '1'.
12 WSP1-BARCODE-INV-NO.
16 FILLER PIC X VALUE '*'.
16 WSP1-BARCODE PIC X(8) VALUE SPACES.
16 FILLER PIC X VALUE '*'.
12 FILLER PIC X(112) VALUE SPACES.
You then move in the barcode you want printed and write out the print line.
The report uses an AFP Pagedef that has barcode font defined like;
FONT B393@0 B393 ROTATION 0 ;
/*BARCODE*/ FIELD START 7 LENGTH 8
FONT B393@0
POSITION 10.3 IN 6.90 IN ;
And that prints the barcode. You may have to play around with the Pagedef to
get the proper size on the bar code. Hope this can get you started and good
luck
Brad Wissink
Information Technology Services
Iowa State University
515-294-3088
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
Goldsby, Gary
Sent: Wednesday, April 04, 2012 12:14 PM
To: [email protected]
Subject: Printing a '3 of 9' barcode on a mainframe generated report
G'day mates,
I would like to know if anyone has been successful in using a
COBOL program to create a report that contains a UPC based '3 of 9' barcode. I
am using COBOL on a MVS system and sending the print data to RMDS and Infopac
where AFP is used to define the barcode position and length.
Any hints / tips would be appreciated.
Gary Goldsby
The Kroger Co.
________________________________
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
[email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
