Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

To stop a file getting printed in a printer

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
elangovan_paulraj

New User


Joined: 03 Jan 2008
Posts: 1
Location: Chennai

PostPosted: Thu Jul 17, 2008 12:10 pm    Post subject: To stop a file getting printed in a printer
Reply with quote

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
Back to top
View user's profile Send private message

Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Jul 17, 2008 1:13 pm    Post subject:
Reply with quote

Hi,

Do you know what CLASS is been assigned to prnters at your shop ? It seems it's CLASS "C".
Code:
//SYSOUT DD SYSOUT=C
If so, removing above from the JCL might help.(I assume you are aloowed to edit the JCL.)
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 17, 2008 1:17 pm    Post subject:
Reply with quote

//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 ?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us