Doing some more IEBPTPCH clean-up.
We have an old job that copies printed output from tape to print.
The proc is:
//TEBC PROC PRTM1='(A,,941S),FCB=941S,DEST=CENTRAL,COPIES=1'
//TEBC#1 EXEC PGM=IEBPTPCH *********************** PRINT SPOOL
TAPE
//SYSIN DD DSN=UMS.PROD.DATA(PREFORMA),DISP=SHR //SYSUT1 DD
DSN=&DSN,UNIT=TAPE,DISP=(OLD,KEEP),VOL=SER=&TAPE //SYSUT2 DD
SYSOUT=&PRTM1 //SYSPRINT DD SYSOUT=*
Trouble is, the output appears to be wider than the printer, double
spacing the printing, and getting TOF after two pages.
I tried changing the SYSIN from
PRINT PREFORM=A
to
PRINT PREFORM=M
that wasn't it.
So I replaced the IEBPTPCH with an ICEGENER, and the output printed
out correctly.
I have no idea how long this has been wrong. I wonder if it might
have worked correctly for a while until some OS upgrade broke it.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
