Hi Lynn,
When I break out the incoming XML, I translate it using QDCXLATE as follows:
// get the zpl/epl and decode it
If Name <> 'GraphicImage';
Return;
EndIf;
HasErrors = *Off;
ValueBefore = Value;
LengthAfter = Base64_Decode( %Addr(ValueBefore) + 2
: %Len(ValueBefore)
: %Addr(ValueAfter)
: %Size(ValueAfter) );
// translate the line of text into EBCDIC
Z = %Len(%Trim(ValueAfter));
Translate(Z: ValueAfter: 'QTCPEBC');
I do use two different programs, one to receive and one to print.
The receive program drops the XML to the IFS and then calls the print
program whose only function is to drop ValueAfter to a printer file, qsysprt
after breaking the string up in 198 byte increments (or shorter, looking for
a X'25' Line feed in the label string)
HTH,
Craig
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of Lynn McManus
Sent: Wednesday, September 25, 2013 4:14 PM
To: 'Web Enabling the IBM i (AS/400 and iSeries)'
Subject: Re: [WEB400] Retrieving shipping label strings from webservices
Craig,
Seems I am still having issues getting this to print. I am decoding using
the base-64 from Scott Klement. What CCSID did you translate from/to to get
the data in EBCDIC? I've tried various combinations and none are working.
Thanks!
Lynn McManus
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of Craig
Sent: Monday, August 26, 2013 9:32 AM
To: 'Web Enabling the IBM i (AS/400 and iSeries)'
Subject: Re: [WEB400] Retrieving shipping label strings from webservices
For UPS you have to decode it using Scott Klement's Base 64 and then
translate it to EBCDIC and chop it up using X'25' as line end if you are
using a System I connected Zebra printer.
If you are sending it directly to the printer, you won't have to translate
it, just send the ascii string to the printer via a socket.
I have done both and both work quite well.
I just wrote a UPS routine to get the file from them, parse it, log it and
produce a label (xml tag is GraphicImage) Works great, but now the powers to
be don't want to use UPS, so it's just sitting.
HTH,
Craig
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of Lynn McManus
Sent: Monday, August 26, 2013 9:50 AM
To: 'Web Enabling the IBM i (AS/400 and iSeries)'
Subject: Re: [WEB400] Retrieving shipping label strings from webservices
Do you send the text file to a zebra printer?
Lynn McManus
BlueFountain Tech.
401 Meridian Street
Suite 300
Huntsville, AL 35801
(256) 319-7851
(256)319-7846 Fax
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of Grizzly Malchow
Sent: Monday, August 26, 2013 8:34 AM
To: Web Enabling the IBM i (AS/400 and iSeries)
Subject: Re: [WEB400] Retrieving shipping label strings from webservices
I've achieved this by base 64 decodeing and saving the data to an IFS file.
I just save it to a text file. Then you can print the IFS/stream file.
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of Lynn McManus
Sent: Friday, August 23, 2013 2:27 PM
To: web400@xxxxxxxxxxxx
Subject: [WEB400] Retrieving shipping label strings from webservices
Hello,
I have RPGLE program that submits SOAP requests to UPS or FEDEX and am
parsing the response to retrieve tracking information. This all works very
well. Now, I am trying to extract the shipping label string that is included
in the response. I can see it. But have no idea what to do with it if I do
parse it out. I believe I will need to decode the data from base 64, ok no
issues with that, but how do I store/send this information to my zebra
printer? I have found zero information yet on hints to figure this out. Any
help would be appreciated.
Thanks in advance,
Lynn
Lynn McManus
BlueFountain Tech.
401 Meridian Street
Suite 300
Huntsville, AL 35801
(256) 319-7851
(256)319-7846 Fax
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing
list To post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing
list To post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing
list To post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing
list To post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.
--
This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing
list To post a message email: WEB400@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/web400.
midrange.com
