Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

MVS CICS output to hp laser printer

Status
Not open for further replies.

nancyredig

Programmer
Dec 6, 2000
4
US
I know the HP GL codes, normal routing works (portrait) fine but need to print landscape. I have MVS COBOL/370 on mainframe but also work in MicroFocus COBOL.
01 WH-HEX-FOR-PRINTER.
05 TEMP1.
10 BINARY1 PIC XXX VALUE X'1B266C'.
05 BINARY-VALUE1 REDEFINES TEMP1 PIC S9(4) COMP-3.
05 TEMP2.
10 BINARY2 PIC XXX VALUE X'314F25'.
05 BINARY-VALUE2 REDEFINES TEMP2 PIC S9(4) COMP-3.
*******
EXEC CICS SEND TEXT
FROM (WH-HEX-FOR-PRINTER)
LENGTH (WC-LANDSCAPE-LENGTH)
PRINT
PAGING
ACUM
END-EXEC
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top