nancyredig
Programmer
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
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)
PAGING
ACUM
END-EXEC