Look for coded fonts beginning with "X039" by default there is no 3OF9 barcode
font supplied with AFP. If you need fonts, you would have to purchase them. But
you could generate reports using AFP BOCOA Objects and generate 3of9 barcode.
You could use any of the barcode type supported as listed on the FIELD
subcommand on PPFA user's guide. The example below uses mat2of5
Example:
//STEP EXEC PGM=AKQPPFA
//SYSPRINT DD SYSOUT=A
//FORMLIB DD DISP=SHR,DSN=XXXXXX.PDEFLIB
//PAGELIB DD DISP=SHR,DSN=XXXXXX.PDEFLIB
//SYSIN DD *
pagedef bcaddr replace yes
width 8.5 IN
height 11.0 IN ;
font addr GT15 ;
font barc 396P18 ;
pageformat bcaddr1 topmargin 1 in botmargin 1 in ;
layout c'statmid' newpage position same absolute next ;
field start 1 length 15 align left
position 1.1 in 0 in
font addr ; /*variable - customer name */
field start 16 length 17 align left
position 1.1 in next
font addr ; /*variable - customer address */
field start 34 length 22 align left
position 1.1 in next
font addr ; /*variable - customer city, st. */
field start 60 length 6 align left
position 3.5 in 2.5 in
barcode type mat2of5 hri below height 0.25 in ;
/* barcode type mat2of5 hri off height 0.25 in ; */
The data file could be printed using the following JCL
//NL01 OUTPUT DEST=AFPFAST2,UCS=(60D8),CLASS=E,PAGEDEF=BCADDR,
// USERLIB=(XXXXXX.IBM3900.PDEFLIB)
//PRTMBR1 EXEC PGM=IEBGENER
//SYSUT1 DD DISP=SHR,DSN=XXXXXX.AFP.BCTEST
//SYSUT2 DD SYSOUT=G,DCB=(*.SYSUT1),
// OUTPUT=*.NL01,COPIES=1
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
/*
Sample input file:
statmid Chubby Checker 123 Redlight Lane Twistnshout MA 02345 257990
statmid Chubby Checker 123 Redlight Lane Twistnshout MA 02345 257991
>>> On 1/13/2010 at 8:52 AM, in message
>>> <1571eb09bcfc964b9343540f7626eaf90f715...@cv2k3exchclus00.corp.cvpsnet.net>,
>>> "Adams, Tracy" <tad...@cvps.com> wrote:
I need to print a barcode 39 font from AFP. A. what is the appropriate
font name and B. how do I know if I have it? TIA
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
NOTICE OF CONFIDENTIALITY
The information contained in this communication, including but not limited to
any accompanying document(s) and/or attachment(s), is privileged and
confidential and is intended solely for the above-named individual(s). If you
are not the intended recipient, please be advised that any distribution,
copying, disclosure, and/or use of the information contained herein is strictly
prohibited. If you received this communication in error, please destroy all
copies of the communication, whether in electronic or hard copy format, and
immediately contact the Security Office at EdFund at (916) 526-7539 or
securityoff...@edfund.org. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
