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
 

 

How do you add a report descriptions page to your output

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
rlilley

New User


Joined: 21 Oct 2008
Posts: 2
Location: Cross Junction, Va

PostPosted: Wed Jul 27, 2011 7:08 pm    Post subject: How do you add a report descriptions page to your output
Reply with quote

I am looking for suggestions on adding a Report Description page to the end of my DFSORT reports. The description page is text explaining what the report is and explains any fields that may cause confusion to the report user.

Normally I create the DFSORT report and define the outputted report SYSOUT as an &TEMP file. Then I use a second step of IEBGENER to concatenate the report and the description page. see below:

Code:
//STEP1    EXEC  PGM=ICETOOL                                   
//TOOLMSG  DD SYSOUT=*                         ICETOOL MESSAGES
//DFSMSG   DD SYSOUT=*                         DFSORT  MESSAGES
//SYMNAMES DD DISP=SHR,DSN=                                   
//INPUTFIX DD DISP=SHR,DSN=                                   
//FIXRPT   DD DSN=&TEMPD,DISP=(,PASS),UNIT=SYSDA,             
//         SPACE=(CYL,(1,1))                                   
//REPORT   DD DSN=&TEMPR,DISP=(,PASS),UNIT=SYSDA,             
//         SPACE=(CYL,(1,1))                                   
//TOOLIN   DD *          CONTROL STATEMENTS                   
*                                                             
 COPY FROM(INPUTFIX) USING(FIX1)                               
*                                                             
 DISPLAY FROM(FIXRPT) LIST(REPORT) -                           
         DATE TITLE('Report for testing') PAGE -               
         HEADER('field1  ') ON(8,8,CH)  -                     
         HEADER('field2  ') ON(16,8,CH) -                     
         HEADER('Process Flag') ON(24,6,CH) -                 
         HEADER('Added By Flag') ON(30,6,CH) -                 
         COUNT('Total elements:') EDCOUNT(U04)                 
//FIX1CNTL DD *                                               
 OUTFIL FNAMES=FIXRPT,                                         
 INCLUDE=(FIX_PTFId,EQ,C'anytext'),                           
 OUTREC=(FIX_PTFId,                                           
         FIX_ElemName,                                         
         FIX_ElemType,                                         
         FIX_Procflg,CHANGE=(6,                               
             C'D',C'DELETE'),                                 
             NOMATCH=(C'      '),                             
         FIX_AddedBy,CHANGE=(6,                               
             C'S',C'XXX   ',                                   
             C'U',C'USER  '),                                 
             NOMATCH=(C'      '))                             
//S002     EXEC PGM=IEBGENER                                   
//SYSPRINT DD  SYSOUT=*                                       
//SYSUT1   DD  DSN=&TEMPR,DISP=SHR                             
//         DD  DSN=TEST.TEMP.REPORT.DESC,DISP=SHR             
//SYSUT2   DD  SYSOUT=*                                       
//SYSIN    DD  *


edited to add the CODE tags so that people willing to answer will be able to read better the info provided
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 Jul 27, 2011 8:55 pm    Post subject:
Reply with quote

Hello and welcome to the forum,

Other than the way you do this now, what are you looking for?

I don't believe i understand the question. . .
Back to top
View user's profile Send private message
sqlcode1

Active Member


Joined: 08 Apr 2010
Posts: 578
Location: USA

PostPosted: Wed Jul 27, 2011 9:05 pm    Post subject:
Reply with quote

rlilley,
Try with TRAILER1.

Example 1

Something like below(Untested)...
Code:
//FIX1CNTL DD *                                               
 OUTFIL FNAMES=FIXRPT,                                         
 INCLUDE=(FIX_PTFId,EQ,C'anytext'),                           
 OUTREC=(FIX_PTFId,                                           
         FIX_ElemName,                                         
         FIX_ElemType,                                         
         FIX_Procflg,CHANGE=(6,                               
             C'D',C'DELETE'),                                 
             NOMATCH=(C'      '),                             
         FIX_AddedBy,CHANGE=(6,                               
             C'S',C'XXX   ',                                   
             C'U',C'USER  '),                                 
             NOMATCH=(C'      ')),
        TRAILER1=('YOUR REPORT DESCRIPTION') 

Thanks,
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Jul 27, 2011 11:16 pm    Post subject:
Reply with quote

sqlcode1,

FIX1CNTL is for the COPY operator which produces FIXRPT. The OP wants to add the description to the end of the DISPLAY report. OUTFIL will NOT work with DISPLAY in this case since DISPLAY doesn't allow a USING, and DFSPARM would apply to both the COPY and the DISPLAY.

rlilley,

I would stick with what you're doing, unless you're willing to completely replace the DISPLAY report with an OUTFIL report in which case you could use TRAILER1. But although this would save a pass over the data, I don't think it would be easier than what you're doing now.

Of course, you could make REPORT a MOD data set and add another COPY operator after the DISPLAY operator instead of using a separate IEBGENER step if you want to do everything in one step.
Back to top
View user's profile Send private message
rlilley

New User


Joined: 21 Oct 2008
Posts: 2
Location: Cross Junction, Va

PostPosted: Thu Jul 28, 2011 1:23 am    Post subject:
Reply with quote

Thanks all for the replies.

Frank, I believe I will try your suggestion of making REPORT a MOD and use another COPY operator.

Thanks again,

rlilley
Back to top
View user's profile Send private message
sqlcode1

Active Member


Joined: 08 Apr 2010
Posts: 578
Location: USA

PostPosted: Thu Jul 28, 2011 2:30 am    Post subject:
Reply with quote

Frank,
Thanks for correcting my understanding. I didn't notice this earlier.

Thanks,
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Incorrect output when trying to add n... monica1 PL/I & Assembler 6 Fri Jan 13, 2017 5:02 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am
No new posts Detailed Transaction History report f... Kyle Carroll CICS 5 Tue Oct 18, 2016 12:42 am
No new posts output data in CSV Format janmejay COBOL Programming 8 Sat Oct 15, 2016 2:20 pm


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