| Author |
Message |
Mike Ruff
Guest
|
 Posted:
Wed Mar 16, 2005 4:44 am Post subject:
HIS printing |
|
|
I am attempting to send a transparent section to an HP-5
printer, but all the codes, including the hex 35 and
associated length, are printed out on the printer rather
than being interpreted as SCS/PCL codes. I am just simply
sending codes directly from a Cobol program for testing.
Am I missing something in my PIC statement or Value
clause. eg
01 Print-this PIC x(8) Value '35021b45'.
Many thanks,
Mike Ruff |
|
| Back to top |
|
 |
Neil Pike
Guest
|
| Posted:
Wed Mar 16, 2005 3:35 pm Post subject:
Re: HIS printing |
|
|
Mike,
That's because you're sending characters rather than hex codes. My Cobol is
nearly 20 years rusty these days, but what you need to do is put the data into
the PIC(X) as BINARY data. i.e. Hex 35. Probably the easiest way to do this
would be through redefines over the original Print-this variable. If you
redefine a PIC 9 COMP-3 var over the first character and set this to 35 then
that would achieve what you want. Same for any other hex values.
| Quote: | I am attempting to send a transparent section to an HP-5
printer, but all the codes, including the hex 35 and
associated length, are printed out on the printer rather
than being interpreted as SCS/PCL codes. I am just simply
sending codes directly from a Cobol program for testing.
Am I missing something in my PIC statement or Value
clause. eg
01 Print-this PIC x(8) Value '35021b45'.
Many thanks,
Mike Ruff
|
Neil Pike. Protech Computing Ltd |
|
| Back to top |
|
|
Guest
|
| Posted:
Wed Mar 23, 2005 10:48 pm Post subject:
Re: HIS printing |
|
|
Neil,
I tries this, but the data still came out
printed, 'binary' format. I guess that my problem is
getting my HIS server to recognize the 'transparent' data
indicator characters, '35nn', and then not translating
the printer codes.
Thanks.
| Quote: | -----Original Message-----
Mike,
That's because you're sending characters rather than
hex codes. My Cobol is
nearly 20 years rusty these days, but what you need to
do is put the data into
the PIC(X) as BINARY data. i.e. Hex 35. Probably the
easiest way to do this
would be through redefines over the original Print-this
variable. If you
redefine a PIC 9 COMP-3 var over the first character and
set this to 35 then
that would achieve what you want. Same for any other
hex values.
I am attempting to send a transparent section to an
HP-5
printer, but all the codes, including the hex 35 and
associated length, are printed out on the printer
rather
than being interpreted as SCS/PCL codes. I am just
simply
sending codes directly from a Cobol program for
testing.
Am I missing something in my PIC statement or Value
clause. eg
01 Print-this PIC x(8) Value '35021b45'.
Many thanks,
Mike Ruff
Neil Pike. Protech Computing Ltd
.
|
|
|
| Back to top |
|
|
Neil Pike
Guest
|
| Posted:
Thu Mar 24, 2005 10:48 pm Post subject:
Re: HIS printing |
|
|
Mike,
You did set the first byte to 53 I assume? Which is the decimal equivalent of
x'35'.
Also the printer should be defined in HIS for "bypass GDI"
Could you post the relevant piece of the copybook and the cobol you've used?
| Quote: | I tries this, but the data still came out
printed, 'binary' format. I guess that my problem is
getting my HIS server to recognize the 'transparent' data
indicator characters, '35nn', and then not translating
the printer codes.
Thanks.
-----Original Message-----
Mike,
That's because you're sending characters rather than
hex codes. My Cobol is
nearly 20 years rusty these days, but what you need to
do is put the data into
the PIC(X) as BINARY data. i.e. Hex 35. Probably the
easiest way to do this
would be through redefines over the original Print-this
variable. If you
redefine a PIC 9 COMP-3 var over the first character and
set this to 35 then
that would achieve what you want. Same for any other
hex values.
I am attempting to send a transparent section to an
HP-5
printer, but all the codes, including the hex 35 and
associated length, are printed out on the printer
rather
than being interpreted as SCS/PCL codes. I am just
simply
sending codes directly from a Cobol program for
testing.
Am I missing something in my PIC statement or Value
clause. eg
01 Print-this PIC x(8) Value '35021b45'.
Many thanks,
Mike Ruff
Neil Pike. Protech Computing Ltd
.
|
Neil Pike. Protech Computing Ltd |
|
| Back to top |
|
|
Neil Pike
Guest
|
| Posted:
Tue Mar 29, 2005 10:48 pm Post subject:
Re: HIS printing |
|
|
Mike - what options do you have defined under the job format and advanced
sections of the SNA printer definition in HIS?
| Quote: | Tried this, but just got the same data printed out
in 'binary' rather than ascii. The HIS server is still
not recognizing the data as transparent and is trying to
print it rather than interpret it.
|
Neil Pike. Protech Computing Ltd |
|
| Back to top |
|
|
Neil Pike
Guest
|
| Posted:
Wed Mar 30, 2005 4:44 am Post subject:
Re: HIS printing |
|
|
Mike - that's a step in the right direction!
| Quote: | Tried this, but just got the same data printed out
in 'binary' rather than ascii.
|
Neil Pike. Protech Computing Ltd |
|
| Back to top |
|
|
Neil Pike
Guest
|
| Posted:
Wed Mar 30, 2005 4:44 am Post subject:
Re: HIS printing |
|
|
Mike,
If you've actually entered "35" then that may be it. HIS is expecting a
decimal here - so put 53. Or leave it blank as I believe that's the default.
| Quote: | Mike - what options do you have defined under the job format and advanced
sections of the SNA printer definition in HIS?
|
Under job format: format print job: / pdt / e:\pdt\hplj2.pdt
Under advanced: 3270 / transparency is ascii
/ transparency custom byte 35
after job ends, delay closing printer 10 seconds
Neil Pike. Protech Computing Ltd |
|
| Back to top |
|
|
|
|
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in