?
Solved

Maxicode Barcode

Posted on 2011-05-12
8
Medium Priority
?
1,248 Views
Last Modified: 2012-05-11
I need an example of RPGLE Maxicode along with DDS specs.  All my efforts get error PQT3655.
0
Comment
Question by:Glennikins
  • 4
  • 4
8 Comments
 
LVL 36

Expert Comment

by:Gary Patterson
ID: 35755648
Show your code, please.

Also please post the entire message, including second level text.

On your spooled file, try changing FIDELITY(*CONTENT) if it is currently set to *ABSOLUTE

- Gary Patterson
0
 
LVL 36

Expert Comment

by:Gary Patterson
ID: 35755658
PQT3655 is a printer data check.  Are you sure the printer you are trying to print to is capable of printing Maxicode barcodes?  What make/model is the printer?

- Gary
0
 

Author Comment

by:Glennikins
ID: 35782167
Gary,
Sorry for the delay, I consult here and only a few days a week.
I verified the Print File is at FIDELITY(*CONTENT).

The printers I am sending the spool file to are:
Ricoh SPC 410DN
Ricoh MP C6000
Ricoh Pro 907EX

I moved the MaxiCode into it's own Rec Format and now I do NOT get the PQT3655 error BUT I do not see the MAXICODE.  Also All data below the Maxicode has disappeared.

Do you have a sample DDS and Pgm I could use?

Thanks,
Glenn
0
Configuration Guide and Best Practices

Read the guide to learn how to orchestrate Data ONTAP, create application-consistent backups and enable fast recovery from NetApp storage snapshots. Version 9.5 also contains performance and scalability enhancements to meet the needs of the largest enterprise environments.

 
LVL 36

Expert Comment

by:Gary Patterson
ID: 35782282
Not that I can share (client's property), but I can tell you if yours is correct if you post it.

- Gary Patterson
0
 

Author Comment

by:Glennikins
ID: 35798432
DDS
 *                                                            
A          R MAXIREC                                          
A            MAXIDATA     138     19 15 BARCODE(MAXICODE +    
A                                        (*MAXICODE 4))      
 *                                                            
RPG ================== (string taken from UPS manual)

EVAL MAXIDATA = '[)><RS>01<GS>96841706672<GS>840<GS>011' +    
                '<GS>1Z12345675<GS>USPS<GS>123X56<GS>18' +    
                '7<GS><GS>1 1<GS>N<GS><GS>SALT LAKE '    +    
                'CITY<GS>UT<RS><EOT>';                        
write   MaxiRec;                                              

=====================
Thanks for your help.
0
 
LVL 36

Accepted Solution

by:
Gary Patterson earned 2000 total points
ID: 35798769
Well, that soesn't look right.  Probably two issues:

1) <RS>, <GS>, and <EOT> are not literals.  They represent the ASCII control codes:

Group Separator <GS> = Decimal 29 (x1D)
Record Separator <RS> = Decimal 30 (x1E)
End of Transmisstion <EOT> = Decimal 4 (x04)

http://www.asciitable.com/

2) The AS/400 uses EBCDIC, not ASCII, so if you are printing to an ASCII printer, the data will go through two transforms, most likely.  First, it will get converted from the job CCSID to Code page 500, and then the printer will convert from code page 500 to ASCII.  Your time zone shows Pacific, so I'll assume the job CCSID is US EBCDIC: 37.

The EBCDIC Code Page 37 and 500 equivalents are (these are the same in both code pages):

GS = Decimal 29 (x1D)
RS = Decimal 30 (x1E)
EOT = Decimal 55 (x37)

http://en.wikipedia.org/wiki/EBCDIC_037
http://en.wikipedia.org/wiki/EBCDIC_500

So try this:

d @GS   s           1a    inz(x'1D')
d @RS   s            1a   inz(x'1E')
d @EOT s           1a    inz('x'37')

EVAL MAXIDATA = '[)>'+@RS+'01'+@GS+ ...+@GS+'UT'+@RS+@EOT;

http://publib.boulder.ibm.com/infocenter/iadthelp/v7r0/index.jsp?topic=/com.ibm.etools.iseries.langref2.doc/rzakdmstptbarco.htm

- Gary Patterson


0
 

Author Comment

by:Glennikins
ID: 35816757
Gary,

I will try your code example on Tuesday Night, my next scheduled client visit.

Thanks,
Glenn
0
 

Author Closing Comment

by:Glennikins
ID: 35836882
Gary, your suggestion was right on.  The only other thing I needed was to compile the PRTF with Replace Unprintable Char *NO.  Once I did both of these the Maxicode worked.

Thanks for your help.
Glenn
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Microsoft Office Picture Manager was included in Office 2003, 2007, and 2010, but not in Office 2013. Users had hopes that it would be in Office 2016/Office 365, but it is not. Fortunately, the same zero-cost technique that works to install it with …
Moore’s Law has proven itself time and time again since it was first introduced. So what’s next? Will Moore’s law continue to remain relevant, or will new technology take over and bring us the next big advancement in computing?
This Micro Tutorial will teach you how to add a cinematic look to any film or video out there. There are very few simple steps that you will follow to do so. This will be demonstrated using Adobe Premiere Pro CS6.
Is your OST file inaccessible, Need to transfer OST file from one computer to another? Want to convert OST file to PST? If the answer to any of the above question is yes, then look no further. With the help of Stellar OST to PST Converter, you can e…
Suggested Courses
Course of the Month14 days, 23 hours left to enroll

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question