I will look...yes, I can see the "~" in the print file.
-----Original Message-----
From: Keven Miller (3k) [mailto:[log in to unmask]]
Sent: Monday, January 19, 2015 4:59 PM
To: Tom Hula
Subject: Re: [HP3000-L] HP PCL Question
So just to repeat back,
The data has AQ004~
it is read into variable PB-EDI-STACK-ID you STRING it into PCL-15-BLOCK-STK-SEQ
And either the STRING command or someplace after the ~ is changed to u or thats done in printer PCL.
And your saying the output spoolfile/data file still has the ~ which is sent to printer for PCL interpretation.
Is that right?
thanks, Keven Miller
----- Original Message -----
From: Tom Hula
To: [log in to unmask]
Sent: Monday, January 19, 2015 02:25 PM
Subject: [HP3000-L] HP PCL Question
This is being done on an HP3000 in Cobol.
I'm making a change to a report that prints in PCL5. The field that was changed was already getting bolded and that works fine. On a programming change from our customer, I am seeing fields like AQ004~ and B7003~.
In the existing program where I am trying to print this data, I am getting things like AQ004u and B7003u where that "u" has two dots above it. International, in other words. Looks like u umlaut in German. Obviously, the "~" symbol is some sort of PCL control character, but so far, I haven't been able to find the secret to making just the "~" appear or even when or why I would specify the "~" character as a control character. It would be nice if it was as simple as printing ~~ to make the ~ appear.
I'm actually taking three fields and the hyphens and putting them together like so...the field with the ~ on the end is the 2nd field:
INITIALIZE PCL-15-BLOCK-STK-SEQ
STRING PB-EDI-BLOCK DELIMITED BY SPACES
"-" DELIMITED BY SIZE
PB-EDI-STACK-ID DELIMITED BY SPACES
"-" DELIMITED BY SIZE
PB-EDI-STACK-SEQ DELIMITED BY SPACES
INTO PCL-15-BLOCK-STK-SEQ
So I actually ended up with "005-AQ004u-002" on one line (u is u umlaut) Tom Hula Victor Barnes Company
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|