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:IBM-MAIN@bama.ua.edu] On Behalf Of Goldsby, Gary Sent: Wednesday, April 04, 2012 12:14 PM To: IBM-MAIN@bama.ua.edu 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 lists...@bama.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN