SET BYDISPLAY = ON

quote:

BYDISPLAY
Within a vertical sort group, the sort field value displays only on the first line of the rows for its sort group. However, you can display the appropriate BY field on every row in a styled report using the SET BYDISPLAY command. Although SET BYDISPLAY is supported for all styled output formats, it is especially important for making report output more usable by Excel, which cannot sort columns properly when they have blank values in some rows.

This feature may enable you to avoid specifying the sort field twice, once as a display field and once for sorting (with the NOPRINT option).

The syntax is:

SET BYDISPLAY = {ON|OFF}
where:

OFF
Displays a BY field value only on the first line of the report output for the sort group. OFF is the default value.

ON
Displays the associated BY field value on every line of report output produced in a styled format.

Francis

Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server

 -SET &RPTNAME='GL MATCH PROGRAM';              
-SET &TODD=HHMMSS('A8');                       
-DEFAULT &BANK=ALL;                            
-DEFAULT &PRECAP=ALL;                          
-DEFAULT &FILEDATE=10311997;                   
-DEFAULT &OPCODE  ='TST';                      
-TYPE PROCESSING...  &FOCFOCEXEC BANK=&BANK    
-TYPE                &RPTNAME                  
-INCLUDE WHERTEST                              
DEFINE FILE GLHLDFST                           
 LAD/YYMD=&LAD;                                
 EAD/YYMD=&EAD;                                
 A_FST_E_TRAN_AMT/D19.2 = EDIT(FST_E_TRAN_AMT);
   A_FST_E_POST_DATE/YYMD = FST_E_POST_DATE;                             
  A_FST_E_TRAN_DATE/YYMD = FST_E_TRAN_DATE;                             
  A_FST_E_EFFECTIVE_DATE/YYMD = FST_E_EFFECTIVE_DATE;                   
  TRAN_TYPE/A2 = IF FST_E_TRAN_CODE EQ '01' OR '21' THEN 'DB' ELSE      
                 IF FST_E_TRAN_CODE EQ '02' OR '22' THEN 'CR' ELSE 'ER';
 END                                                                    
 -*                                                                     
 MATCH FILE GLHLDFST                                                    
     PRINT FST_E_GLACCT_NBR AS 'GLACCT NBR'                             
           FST_E_INST_NBR AS 'INST NBR'                                 
           FST_E_TRAN_CODE AS 'TR CODE'                                 
           TRAN_TYPE AS 'TR TYPE'                                       
           FST_E_TRAN_DESC AS 'DESC'                                    
           FST_E_TRAN_AMT AS 'TRAN AMT'                                 
           FST_E_TRAN_DATE AS 'TRAN DATE'                               
           FST_E_POST_DATE AS 'POST DATE'                               
          FST_E_EFFECTIVE_DATE AS 'EFF DATE'
BY FST_GRP_KEY3 NOPRINT                     
WHERE A_FST_E_TRAN_AMT GE 100000;           
WHERE A_FST_E_POST_DATE GE &LAD;            
WHERE A_FST_E_POST_DATE LE &EAD;            
RUN                                         
FILE GLHLDFDV                               
PRINT FDV_E_GLACCT_DESC                     
BY FDV_GRP_KEY AS 'FST_GRP_KEY3' NOPRINT
BY FDV_E_GLACCT_DESC NOPRINT            
ON TABLE SET BYDISPLAY ON               
AFTER MATCH HOLD AS 'GLMATCH' OLD       
END                                     
DEFINE FILE GLMATCH                     
  A_FST_E_TRAN_AMT/D19.2 = EDIT(FST_E_TRAN_AMT);                        
  TRAN_TYPE/A2 = IF FST_E_TRAN_CODE EQ '01' OR '21' THEN 'DB' ELSE      
                 IF FST_E_TRAN_CODE EQ '02' OR '22' THEN 'CR' ELSE 'ER';
 END                                                                    
 TABLE FILE GLMATCH                                                     
     PRINT FST_E_GLACCT_NBR AS 'GLACCT NBR'                             
           FST_E_INST_NBR AS 'INST NBR'                                 
           FST_E_TRAN_CODE AS 'TR CODE'                                 
           TRAN_TYPE AS 'TR TYPE'                                       
           FST_E_TRAN_DESC AS 'TRAN DESC'                               
           A_FST_E_TRAN_AMT AS 'TRAN AMT'                               
           FST_E_TRAN_DATE AS 'TRAN DATE'                               
           FST_E_POST_DATE AS 'POST DATE'                               
           FST_E_EFFECTIVE_DATE AS 'EFF DATE'                           
           FDV_E_GLACCT_DESC AS 'GL DESC'                                
ON TABLE HOLD AS 'XLREPORT' FORMAT EXCEL2K                                 
END                                       
-RUN                                      
-INCLUDE RUNTRAIL                         
-QUIT                                     

SET ASNAMES=ON
MATCH FILE CAR
PRINT MODEL
BY COUNTRY
RUN
FILE CAR
PRINT COUNTRY AS COUNTRY2
BY COUNTRY
AFTER MATCH HOLD OLD-AND-NEW
END
DEFINE FILE HOLD
PRINTVAL/A10=IF COUNTRY2 EQ ' ' OR COUNTRY2 IS MISSING THEN PRINTVAL ELSE COUNTRY2;
END
TABLE FILE HOLD
PRINT * PRINTVAL
END

FILE GLHLDFDV                               
PRINT FDV_E_GLACCT_DESC                     
BY FDV_GRP_KEY AS 'FST_GRP_KEY3' NOPRINT
BY FDV_E_GLACCT_DESC NOPRINT

FILE GLHLDFDV                               
SUM FDV_E_GLACCT_DESC                     
BY FDV_GRP_KEY AS 'FST_GRP_KEY3' NOPRINT
BY FDV_E_GLACCT_DESC NOPRINT

GamP

---

- Using AS 8.2.01 on Windows 10 - IE11.
	in Focus since 1988