To stop a file getting printed in a printer

elangovan_paulraj · New User Joined: 03 Jan 2008 Posts: 1 Location: Chennai

Hi All,

I am relatively new to mainframes.

I have step in my JCL that uses IEBGENER to route the file created in a previous step to a printer and another destination (say 'X') which is a central repository.

The requirement now is to stop the file getting printed in the printer but to continue sending the file to the central repository 'X'.

Please find the JCL below.

//JOB1 JOB (MTZ6R3),'STATEMENTS',CLASS=A,MSGCLASS=C,
// MSGLEVEL=1,TIME=1440,COND=(0,NE)
// JCLLIB ORDER=(XXXX.XXXX.XXXX,YYYY.YYY.YYYY)
//JOBLIB DD DSN=ZZZZ.AAAA.LINKLIB,DISP=SHR
/*JOBPARM M=999999,L=999999
/*OUTPUT OPTI DEST=X
//P010 EXEC JOB1PROC
//P030 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=C
//SYSOUT DD SYSOUT=C
//SYSIN DD DUMMY
//SYSUT1 DD DSN='File generated in proc JOB1PROC' ,DISP=SHR
//SYSUT2 DD SYSOUT=(A,,OPTI),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)

Please let me know how to achieve my requirement.

Thanks
Elan

Anuj D. · Posted: Thu Jul 17, 2008 1:13 pm Post subject:

Hi,

Do you know what CLASS is been assigned to prnters at your shop ? It seems it's CLASS "C".

expat · Posted: Thu Jul 17, 2008 1:17 pm Post subject:

//SYSUT1 DD DSN='File generated in proc JOB1PROC' ,DISP=SHR
//SYSUT2 DD SYSOUT=(A,,OPTI),
// DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)

This routes one copy of the report, where is the other copy routed - is it included in the PROC ?