IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How do you add a report descriptions page to your output


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
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
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

Moderator Emeritus


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

PostPosted: Wed Jul 27, 2011 8:55 pm
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: 577
Location: USA

PostPosted: Wed Jul 27, 2011 9:05 pm
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 Developer


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

PostPosted: Wed Jul 27, 2011 11:16 pm
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
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: 577
Location: USA

PostPosted: Thu Jul 28, 2011 2:30 am
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts TRIM everything from input, output co... DFSORT/ICETOOL 1
No new posts Sortjoin and Search for a String and ... DFSORT/ICETOOL 1
No new posts Joinkeys - 5 output files DFSORT/ICETOOL 7
No new posts Build a record in output file and rep... DFSORT/ICETOOL 11
No new posts XDC SDSF output to temp dataset CLIST & REXX 4
Search our Forums:

Back to Top