| View previous topic :: View next topic |
| Author |
Message |
cyberspecies
Beginner
Joined: 26 Dec 2002
Posts: 3
Topics: 2
|
 Posted: Mon Jan 06, 2003 11:07 am Post subject: Simple question - How to print a dataset in mainframe |
 |
|
The heading says it - How do I print a dataset to the printer. Please give me the JCL.
Cyberspecies |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose
|
| Posted: Mon Jan 06, 2003 11:33 am Post subject: |
|
|
Cyberspecies,
Did you try option 3.6 ( Hardcopy) ?? The system will generate the JCL for you. All you need is to supply the printer name
Hope this helps...
cheers
kolusu |
|
| Back to top |
|
|
Frank Yaeger
Sort Forum Moderator
Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
|
| Posted: Mon Jan 06, 2003 11:34 am Post subject: |
|
|
Cyberseries,
It depends on what you want the output to look like.
If you just want a straight print of the records, you can use IEBGENER, DFSORT's ICEGENER, DFSORT copy, etc. Here's an example of a DFSORT copy job:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
/*
|
If you want the output formatted in some way, tell us the RECFM and LRECL of the input file and how you want the printed output to look.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort |
|
| Back to top |
|
|
semigeezer
Supermod
Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis
|
| Posted: Mon Jan 06, 2003 11:37 am Post subject: |
|
|
| This is actually a really good question because most of the problem printing on a mainframe isn't getting the program to do it (IEBGENER et al are fine) but how to direct it to a particular printer so that 1) it really prints and 2) you can find the output. Unfortunately, both of these are very site specific and unless your help desk is competent, sometimes difficult to find out. |
|
| Back to top |
|
|
Sreejith
Intermediate
Joined: 02 Dec 2002
Posts: 155
Topics: 25
Location: N.Ireland
|
| Posted: Mon Jan 06, 2003 12:00 pm Post subject: |
|
|
If you just need a very basic print function to print a dataset/member to a printer in your NT network you can use the FTP program Copy the following CLIST to your SYSPROC and name it say NPRINT and change the IP adrs given there to your printer IP adrs. You may also need to change the CALL 'TCPIP.SEZALINK(FTP) in it specify your library. Go to 3.4 and type NPRINT beside your dataset/member to be printed.
| Code: |
PROC 1 DDNAME
CONTROL NOMSG
FREE FILE(INPUT,OUTPUT,SYSPRINT)
CONTROL MSG
WRITE PRINTING &DDNAME ...........
ALLOC FI(INPUT) REUSE NEW +
BLOCK(80) RECFM(F) LRECL(80) +
SPACE(1,1) TRACKS
OPENFILE INPUT OUTPUT
SET INPUT = &NRSTR+
(10.53.58.51 -
)
PUTFILE INPUT
SET INPUT = &NRSTR+
(NONE -
)
PUTFILE INPUT
SET INPUT = &NRSTR+
(PUT &DDNAME -
)
PUTFILE INPUT
SET INPUT = &NRSTR+
(QUIT -
)
PUTFILE INPUT
CLOSFILE INPUT
ALLOC FI(OUTPUT) DA(*)
ALLOC FI(SYSPRINT) DA(*)
CONTROL NOMSG
CALL 'TCPIP.SEZALINK(FTP)'
FREE FILE(INPUT,OUTPUT,SYSPRINT)
EXIT
|
|
|
| Back to top |
|
|
cyberspecies
Beginner
Joined: 26 Dec 2002
Posts: 3
Topics: 2
|
| Posted: Mon Jan 06, 2003 12:44 pm Post subject: |
|
|
Thank you all for the prompt response 
I tried hard copy and it worked
Cheers,
Cyberspecies |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
