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

Suppress value reported by BREAK in DISPLAY Statement


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Learncoholic

New User


Joined: 20 Sep 2007
Posts: 93
Location: India

PostPosted: Wed Aug 16, 2017 6:03 pm
Reply with quote

Hi,
I have a I/P file as below:
Code:
AAAAAAA   1111111111111111              00000101
AAAAAAA   2222222222222222              00000201
AAAAAAA   1223                          00000301
BBBBBBB   33333333                      00000401
BBBBBBB   5555555555555555              00000501
CCCCCCCCCC66666666666                   00000601


I want to create a report from the file & provide, Maximum, Minimum, Average & Total based on values present in the first 10 characters.
I have used the below DISPLAY statement using ICETOOL

Code:
DISPLAY FROM(INDD01) LIST(SPOOLDD) -                           
   ON(1,10,CH) ON(11,30,CH) ON(41,8,ZD) BREAK(1,10,CH)     -   
   TITLE('SAMPLE TITLE SHOULD BE PROVIDED HERE FOR REF') -     
   BTITLE('BREAK TITLE PRINTED HERE REF') -                     
   HEADER('PART1 DATA') HEADER('PART 2 DATA') HEADER('PART 3') -
   BTOTAL('TOTAL') BMINIMUM('MINIMUM') BMAXIMUM('MAXIMUM') -   
   BAVERAGE('AVERAGE')                                         


Now, the O/P is printing the BREAK values along with BTITLE.
A section of O/P file is provided below:

Code:
1SAMPLE TITLE SHOULD BE PROVIDED HERE FOR REF                           
                                                                       
 AAAAAAA     BREAK TITLE PRINTED HERE REF                               
                                                                       
 PART1 DATA             PART 2 DATA                                PART
 --------------------   ------------------------------   ---------------
 AAAAAAA                1111111111111111                 +00000000000010
 AAAAAAA                2222222222222222                 +00000000000020
 AAAAAAA                1223                             +00000000000030
                                                                       
 TOTAL                                                   +00000000000060
                                                                       
 MINIMUM                                                 +00000000000010
                                                                       
 MAXIMUM                                                 +00000000000030
                                                                       
 AVERAGE                                                 +00000000000020
1SAMPLE TITLE SHOULD BE PROVIDED HERE FOR REF                           
                                                                       
 BBBBBBB     BREAK TITLE PRINTED HERE REF                               
                                                                       
 PART1 DATA             PART 2 DATA                                PART
 --------------------   ------------------------------   ---------------
 BBBBBBB                33333333                         +00000000000040
 BBBBBBB                5555555555555555                 +00000000000050
                                                                       
 TOTAL                                                   +00000000000090
                                                                       
 MINIMUM                                                 +00000000000040
                                                                       
 MAXIMUM                                                 +00000000000050
                                                                       
 AVERAGE                                                 +00000000000045
1SAMPLE TITLE SHOULD BE PROVIDED HERE FOR REF                           
                                                                       
 CCCCCCCCCC  BREAK TITLE PRINTED HERE REF                               
                                                                       
 PART1 DATA             PART 2 DATA                                PART
 --------------------   ------------------------------   ---------------
 CCCCCCCCCC             66666666666                      +00000000000060
                                                                       
 TOTAL                                                   +00000000000060
                                                                       
 MINIMUM                                                 +00000000000060
                                                                       
 MAXIMUM                                                 +00000000000060
                                                                       
 AVERAGE                                                 +00000000000060


Here you may see that "AAAAAAA" or "BBBBBBB" or "CCCCCCCCCC" is printed before each break title. I want to suppress these values.
Is there a way it can be done using the same DISPLAY statement?

Thanks
Back to top
View user's profile Send private message
sergeyken

Active Member


Joined: 29 Apr 2008
Posts: 924
Location: Maryland

PostPosted: Thu Aug 17, 2017 1:50 am
Reply with quote

RTFM: DFSORT Application Programming Guide
Quote:
Optional break operands can be used to modify the break title for each section (the break value is always printed as part of the break title)

The designers assumed it should look like this:
Code:
XXXXXXXXX - group description section

FYI: If you are interested, the sectioning of reports is designed differently in SYNCSORT (moderators prohibit mentioning SYNCSORT in DFSORT topics, and vice versa)
Back to top
View user's profile Send private message
magesh23586

Active User


Joined: 06 Jul 2009
Posts: 213
Location: Chennai

PostPosted: Fri Aug 18, 2017 1:45 am
Reply with quote

You may try SORT instead of ICETOOL.
Code:

//STEP01  EXEC PGM=SORT                                             
//SORTIN  DD *                                                     
AAAAAAA   1111111111111111              00000101                   
AAAAAAA   2222222222222222              00000201                   
AAAAAAA   1223                          00000301                   
BBBBBBB   33333333                      00000401                   
BBBBBBB   5555555555555555              00000501                   
CCCCCCCCCC66666666666                   00000601                   
//SORTOUT DD DISP=(,CATLG,DELETE),                                 
//           SPACE=(CYL,(10,10),RLSE),                             
//           DSN=UROUTPUT                                       
//SYSOUT  DD SYSOUT=*                                               
//SYSIN   DD *                                                     
  OPTION COPY                                                       
  OUTFIL BUILD=(01,10,13X,                                         
                11,30,03X,                                         
                41,8,ZD,EDIT=(STTTTTTTTTTTTTTT),                   
                        SIGNS=(+,-),80:X),                         
  SECTIONS=(1,10,                                                   
  HEADER3=('SAMPLE TITLE SHOULD BE PROVIDED HERE FOR REF',2/,       
           'BREAK TITLE PRINTED HERE REF',2/,         
           'PART1 DATA             ',                             
           'PART 2 DATA                                ',         
           'PART 3 ',2/,                                         
           '--------------------   ',                             
           '------------------------------   ',                   
           '----------------  '),                                 
                                                                 
  TRAILER3=(/,'TOTAL  ',49X,                                     
                        TOT=(41,8,ZD,EDIT=(STTTTTTTTTTTTTTT),     
                        SIGNS=(+,-)),2/,                         
                                                                 
              'MINIMUM',49X,                                     
                        MIN=(41,8,ZD,EDIT=(STTTTTTTTTTTTTTT),     
                        SIGNS=(+,-)),2/,                         
                                                                 
              'MAXIMUM',49X,                                     
                        MAX=(41,8,ZD,EDIT=(STTTTTTTTTTTTTTT),     
                        SIGNS=(+,-)),2/,                     
                                                             
              'AVERAGE',49X,                                 
                        AVG=(41,8,ZD,EDIT=(STTTTTTTTTTTTTTT),
                             SIGNS=(+,-))))                   
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Moderator


Joined: 14 Mar 2007
Posts: 10712
Location: italy

PostPosted: Fri Aug 18, 2017 3:09 am
Reply with quote

Quote:
moderators prohibit mentioning SYNCSORT in DFSORT topics, and vice versa


nobody prohibits anything...
it is just basic good sense in order to avoid useless waste of resources

there is no reason to provide a OTHER PRODUCT solution that will not work in the TS environment
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 Converting a file from PD to display ... SYNCSORT 4
No new posts SKIP LOCKED DATA in UPDATE statement DB2 9
This topic is locked: you cannot edit posts or make replies. Splice JCL into one record for DD sta... SYNCSORT 2
No new posts Break a record into fields, each fiel... SYNCSORT 2
No new posts Unable to display comp variable COBOL Programming 4
Search our Forums:

Back to Top