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
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

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.
~~~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.

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 midrange.com 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.