IBM Mainframe Forum

Mainframe Technical Support Forums
https://www.ibmmainframeforum.com/

Grouping control break fields in Easytrieve

https://www.ibmmainframeforum.com/easytrieve/topic10623.html

Page 1 of 1

Grouping control break fields in Easytrieve

PostPosted: Mon Jul 13, 2015 5:28 pm
by rg_nath
Hi,

I am using the below CONTROL statement to break fields. But i am unable to break all fields in resulted output file. My code and result is posted below.

Select all
  CONTROL  FINAL NOPRINT YEAR NOPRINT NEWPAGE RP-CD NOPRINT   -     
          CNS-CD NOPRINT                     
                         
*                                                                     
LINE 01 COL  02  RP-CD,     -
        COL  06  CNS-CD
*
  AFTER-BREAK. PROC                                                     
  IF LEVEL = 1                                                         
    DISPLAY COL 2 '**************'  END-IF                                                               
  IF LEVEL = 2                                                         
    DISPLAY COL 2 '--------------'  END-IF                                                               
  IF LEVEL = 3                                                         
    DISPLAY COL 2 '$$$$$$$$$$$$$'  END-IF                                                               


The output result is comes like below:

Select all
************************                                             PAGE:1         
************************                                                       
                        REPORT#             REPORT NAME                                                                               
                                                      HOURS FOR YEAR: 1995     

RP-CD  CNS CD 
----- ------- 
ALL                   
**************
--------------
601         
**************
601 AAAAAAA
**************
--------------
602         
**************
602 BBBBBBB
**************
602 CCCCCCCC
**************
602 DDDDDDDD
**************
602 EEEEEEEE
--------------
$$$$$$$$$$$$$

************************                                             PAGE:2           
************************                                                       
                        REPORT#             REPORT NAME                                                                               
                                                      HOURS FOR YEAR: 1996     

**************
603 AAAAAAAA
**************
603 BBBBBBBB
**************
603 CCCCCCCC
    CCCCCCCC
**************
603 DDDDDDDD
**************
603 EEEEEEEE
**************
--------------
604         
**************
604 AAAAAAAA
**************
604 HHHHHHHH
**************
--------------


But i am expecting the result like below. Can you please assist me on this.

Select all
************************                                             PAGE:1         
************************                                                       
                        REPORT#             REPORT NAME                                                                               
                                                      HOURS FOR YEAR: 1995     

RP-CD  CNS CD 
----- ------- 
ALL                   
**************
--------------
601         
**************
    AAAAAAA
**************
--------------
602         
**************
    BBBBBBB
**************
    CCCCCCCC
**************
    DDDDDDDD
**************
    EEEEEEEE
--------------
$$$$$$$$$$$$$

************************                                             PAGE:2           
************************                                                       
                        REPORT#             REPORT NAME                                                                               
                                                      HOURS FOR YEAR: 1996     

**************
603 AAAAAAAA
**************
    BBBBBBBB
**************
    CCCCCCCC
    CCCCCCCC
**************
    DDDDDDDD
**************
    EEEEEEEE
**************
--------------
604         
**************
    AAAAAAAA
**************
    HHHHHHHH
**************
--------------

Re: Grouping control break fields in Easytrieve

PostPosted: Mon Jul 13, 2015 6:37 pm
by BillyBoyo
On your output listing of the program, what value does it show for SUMCTL for the report? And DTLCTL?

Re: Grouping control break fields in Easytrieve

PostPosted: Mon Jul 13, 2015 7:09 pm
by rg_nath
Hi,

i have included 'SUMCTL NONE/HIAR' and 'DTLCTL FIRST' (Its default) in REPORT statement. But no change in the report output.

Re: Grouping control break fields in Easytrieve

PostPosted: Mon Jul 13, 2015 11:06 pm
by BillyBoyo
You have NOPRINT for each level of CONTROL. That means that only what you include in a BEFORE-BREAK or AFTER-BREAK proc will appear on change of any key. If you remove the NOPRINT and use SUMCTL HIAR is it closer to what you want?

Re: Grouping control break fields in Easytrieve

PostPosted: Tue Jul 14, 2015 6:18 pm
by rg_nath
Hi, I have used SUMCTL HIAR in REPORT with NOPRINT in CONTROL. The expected output not coming and included extra line for every break. Please help me on this.

Re: Grouping control break fields in Easytrieve

PostPosted: Tue Jul 14, 2015 6:46 pm
by BillyBoyo
I asked what happens when you remove the NOPRINTs?

Re: Grouping control break fields in Easytrieve

PostPosted: Tue Jul 14, 2015 7:26 pm
by rg_nath
Hi, By giving the below control statement as you told.

Select all

REPORT RPT1 PRINTER(RPT1) LINESIZE 132 NOADJUST NODATE NOHEADING -
       TITLESKIP 0 NOPAGE SUMCTL HIAR                             

  CONTROL  FINAL NOPRINT HS-YEAR NEWPAGE RP-CD -
           CNS-CD                               


Got the below output.
Select all
************************                                             PAGE:1         
************************                                                       
                        REPORT#             REPORT NAME                                                                               
                                                      HOURS FOR YEAR: 1995     

RP-CD  CNS CD 
----- ------- 
ALL                   
ALL                   
**************
ALL                   

--------------
601         
601         
**************
601 AAAAAAA
601 AAAAAAA
**************
601
--------------
602         
602         
**************
602 BBBBBBB
602 BBBBBBB
**************
602 CCCCCCCC
602 CCCCCCCC
**************
602 DDDDDDDD
602 DDDDDDDD
**************
602 EEEEEEEE
602 EEEEEEEE
--------------
602
$$$$$$$$$$$$$

************************                                             PAGE:2           
************************                                                       
                        REPORT#             REPORT NAME                                                                               
                                                      HOURS FOR YEAR: 1996     

**************
603 AAAAAAAA
603 AAAAAAAA
**************
603 BBBBBBBB
603 BBBBBBBB
**************
603 CCCCCCCC
    CCCCCCCC
603 CCCCCCCC
    CCCCCCCC
**************
603 DDDDDDDD
603 DDDDDDDD
**************
603 EEEEEEEE
603 EEEEEEEE
**************
603
--------------
604         
604         
**************
604 AAAAAAAA
604 AAAAAAAA
**************
604 HHHHHHHH
604 HHHHHHHH
**************
604
--------------

Re: Grouping control break fields in Easytrieve

PostPosted: Wed Jul 15, 2015 11:14 am
by rg_nath
Hi,

Please let me know if you need any thing else. I am eagarly waiting for the solution :shock:

Re: Grouping control break fields in Easytrieve

PostPosted: Wed Jul 15, 2015 2:09 pm
by BillyBoyo
I think you need to show the entire REPORT, including all LINE statements and all report procedures. Also the data which is causing that output.
All times are UTC + 5:30 hours
Page 1 of 1
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/