Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Sample JCL which prints a dataset on the local printer....

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

New User


Joined: 24 Nov 2006
Posts: 1
Location: India

PostPosted: Wed Jun 20, 2007 3:35 pm    Post subject: Sample JCL which prints a dataset on the local printer....
Reply with quote

How to print a report or dataset from JCL to a local printer? What are the parameters to be passed in Output JCL Statement? Also, what are all the ways in which we can specify the DEST parameter? Thanks in advance for any help in this regard.
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Jun 20, 2007 7:11 pm    Post subject:
Reply with quote

Hello and welcome to the forums,

Your question will be correctly answered by your system support, scheduling, or operations people. The answers to your question are site-specific and those people will know what your options are.
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 Jun 21, 2007 9:39 pm    Post subject:
Reply with quote

Hi,

Dick suggested the best option, still would like to provide the below JCL. JCL will initiate a printer with DEST=XXXX (see the last parameter of DD name OUTFILE ). You should be very careful about DEST parameter, a wrong parameter can initiate a production or another location printer, which may cause problems & yeah this JCL will work only if you use are using AFP for printing reports.

You need to know FORMDEF, PAGEDEF & DESTination of printer from support or operation people.

Code:
//OUTPUT1  OUTPUT FORMDEF=XXAFPF,PAGEDEF=XXAFPP,             
//          USERLIB=('HLQ.ANUJ.AFP')                     
//*                                                         
//STEP01  EXEC PGM=XXAFP                                     
//STEPLIB  DD DSN=HLQ.XXXX.PROD.PGMLIB,DISP=SHR             
//         DD DSN=XXXX.XXXX.LINKLIB,DISP=SHR
//*                                                         
//INFILE   DD DSN=HLQ.XXXXX.PRINT.FILES.DYNSUM1,       
//            DISP=SHR                                       
//*                                                         
//OUTFILE  DD SYSOUT=A,OUTPUT=*.OUTPUT1,                     
//           COPIES=1,DCB=(OPTCD=J,RECFM=VA),DEST=XXXX       
//*                   
//SYSIN DD DUMMY       
//SYSPRINT DD SYSOUT=R


If you would like to try Hard Copy print, then in ISPF go to START 3.4/Utilities/6, there provide the
data-set name to be printed
PRINT MODE: Batch,
SYSOUT class:site specific,
writer-name:Printer-Name(same as DEST in above JCL)
press enter.

Please be careful about the destination parameter in both the methods.
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
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
No new posts XMITIP sends it out. Can it copy on l... Rommel Dayon Rustia IBM Tools 0 Tue Sep 05, 2017 10:16 am
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us