The SUBR52 is a routine that does generate the imbedded commands for the


> -----Original Message-----
> From: Mark Villa []
> Sent: Monday, November 12, 2001 9:29 AM
> To:
> 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:
> ~~~[]On Behalf Of Klein, Ron
> ~~~Sent: Monday, November 12, 2001 9:55 AM
> ~~~To: ''
> ~~~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:
> ~~~To subscribe, unsubscribe, or change list options,
> ~~~visit:
> ~~~or email:
> ~~~Before posting, please take a moment to review the archives
> ~~~at
> ~~~
> ~~~
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
> list
> To post a message email:
> To subscribe, unsubscribe, or change list options,
> visit:
> or email:
> Before posting, please take a moment to review the archives
> at

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.