RE: Printing Barcodes

Mark,
The SUBR52 is a routine that does generate the imbedded commands for the
barcodes.

Ron

> -----Original Message-----
> From: Mark Villa [SMTP:markvilla@knology.net]
> Sent: Monday, November 12, 2001 9:29 AM
> To:   cobol400-l@midrange.com
> Subject:      RE: Printing Barcodes
>
> have not ever used IPDS or SUBR52 but have some input.
> The only way I have seen non-ipds barcodes is with:
> 1) a product that has that printer type support
> or
> 2) hand coded printer commands imbedded in the code.
>
> You said cobol36, which I a very familiar with? I have never used a
> printer
> file with the DDS keyword, which I am assuming you are doing. cobol36 does
> not know anything about DDS, so how you are attempting that is a mystery
> to
> me.
>
> The easy way out of this, I think, is to write your data to a file and run
> a
> barcode/formtool command over that data to the printer of choice.
>
> If they are ever going to change printers or have more barcode needs, it
> make sense. We use markmagic.
>
> The AS/400 AFP product will print basic barcodes to a non IPDS laser (in
> my
> testing), but if I recall it is not supported, nor acknowedlged to do so
> in
> the documentation very well, and it is native.
>
> This background I am referring to is about 2 years old, so some of these
> problems may have better solutions.
>
> Mark Villa in Charleston SC
>
> ~~~-----Original Message-----
> ~~~From: cobol400-l-admin@midrange.com
> ~~~[mailto:cobol400-l-admin@midrange.com]On Behalf Of Klein, Ron
> ~~~Sent: Monday, November 12, 2001 9:55 AM
> ~~~To: 'cobol400-l@midrange.com'
> ~~~Subject: Printing Barcodes
> ~~~
> ~~~
> ~~~Hi All,
> ~~~
> ~~~I have a question to post for a programmer in our office.  I
> ~~~will include
> ~~~her question and then add a little to that.
> ~~~
> ~~~I am trying to print a barcode using a S36 Cobol program.  I am using
> ~~~SUBR52.  I have an OVRPRTF statement specifying DEVTYPE(*IPDS).  It
> ~~~generates a spool file with *IPDS as the device type.  Host
> ~~~print transform
> ~~~is also YES.
> ~~~
> ~~~What I'm currently doing will not print out a barcode on a
> ~~~laser printer,
> ~~~and I would like to know if there is a way to print a
> ~~~barcode to a laser
> ~~~printer under these conditions.
> ~~~
> ~~~To Change the program to native is the last option that we
> ~~~want to consider.
> ~~~To have the customer buy an IPDS printer is not an option.
> ~~~
> ~~~Thanks
> ~~~Ron
> ~~~
> ~~~_______________________________________________
> ~~~This is the COBOL Programming on the iSeries/AS400
> ~~~(COBOL400-L) mailing list
> ~~~To post a message email: COBOL400-L@midrange.com
> ~~~To subscribe, unsubscribe, or change list options,
> ~~~visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
> ~~~or email: COBOL400-L-request@midrange.com
> ~~~Before posting, please take a moment to review the archives
> ~~~at http://archive.midrange.com/cobol400-l.
> ~~~
> ~~~
>
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
> list
> To post a message email: COBOL400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/cobol400-l
> or email: COBOL400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.