View previous topic :: View next topic
|
Author |
Message |
beruoist
New User
Joined: 14 Nov 2007 Posts: 70 Location: mumbai
|
|
|
|
I have a report which is getting printed in the spool.Now i need to get that report from spool to be printed in the dataset..i mean it should be printed in the dataset instead of the spool.And should be exactly the same.
Now below is the example of how the header is printed...
Code: |
WRITE (1) NOTITLE
'PGMNM' 48T #REPORT-TITLE 92T 'TIME ' #TIME /*<Y2000
107T 'DATE '
*PAGE-NUMBER(1) (EM=ZZ9) /* Y2000>
/ 43T 'SOME XYZ REPORT'
|
What i want is to write the header exactly the same...I know i can do this by defining the workfile varibale and then moving the appropriate value in the redifinition var.
So my question is 'IS THERE ANY OTHER WAY TO ACHIEVE THIS ? '
Regards
beruoist |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
There is no way of doing it programmatically, as the WRITE statement have its own unique characteristics (like the Tnotation, the slash mark, and EM).
However, you can add a step in your job to IEBGENER the CMPRT01 to a disk dataset.
O. |
|
Back to top |
|
|
beruoist
New User
Joined: 14 Nov 2007 Posts: 70 Location: mumbai
|
|
|
|
Ofer,
Please provide the JCL code to apply this.
I will be needing this to add in the NATRJE accordingly.to create the IEBGENER step in the end.
Thanks
Beruoist |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
Sorry, using IEBGENER is basic, and it is well documented in the manual.
O. |
|
Back to top |
|
|
beruoist
New User
Joined: 14 Nov 2007 Posts: 70 Location: mumbai
|
|
|
|
ok,thanks |
|
Back to top |
|
|
silentarya
New User
Joined: 11 Mar 2007 Posts: 35 Location: Chennai
|
|
|
|
You may also try for creating a dsn in the JCL itself which will write the report onto the DSN(DSN=MYDSN) instead of spool(sysout=*) in the cmprt01 or the like.
//CMPRT01 DD DSN=NIST.ARYA.MYPRG.REPORT1,
// DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,SPACE=(TRK,(50,50)),
// DCB=(RECFM=VB,LRECL=4092,BLKSIZE=4096) |
|
Back to top |
|
|
|