DFSORT PROBLEM RECORD TYPE IS F

[pavandeepmadan]

CODE

Code: Select all

//SUR0008 JOB 'BYTELLER'                                        
//TOOLRUN EXEC PGM=ICETOOL                                      
//TOOLMSG DD SYSOUT=A                                            
//DFSMSG  DD SYSOUT=A                                            
//TOOLIN  DD *                                                  
                                                                 
  SORT FROM(TXNOFFLD) TO(SORTTEMP) USING(CTL1)                  
  DISPLAY FROM(SORTTEMP) LIST(REPORT) -                          
    TITLE('PAYMENTS BY TELLER') -                                
        BTITLE('TRANSFER TYPE') BREAK(71,2,CH) -                
        HEADER('TELLER') ON(23,8,CH) -                          
        HEADER('PAYMENTS') ON(60,11,ZD) -                        
        BLANK -                                                  
        BETWEEN(8) -                                            
        BTOTAL('SUBTOTAL:')                                      
/*                                                              
//CTL1CNTL DD *                                                  
                                                                 
  INCLUDE COND=(31,1,CH,EQ,C'P',                                
    AND,71,2,CH,EQ,C'AA',                                        
        AND,71,2,CH,EQ,C'AB',                                    
        AND,71,2,CH,EQ,C'BA')                                    
                                                                 
  SORT FIELDS=(71,2,ZD,A,23,8,ZD,A)                              
  RECORD TYPE=F                                                  
/*                                                              
//TXNOFFLD DD DSN=SURCICS.ZEUSBANK.TXNOFFLD,DISP=SHR            
//SORTTEMP DD DSN=&&SORTTEMP,DCB=SURCICS.ZEUSBANK.TXNOFFLD      
//REPORT   DD SYSOUT=A                                          

Coded

Output

PAYMENTS BY TELLER

TELLER PAYMENTS

SDFS


Select all
CE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 00
CE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
CE201I 1 RECORD TYPE IS F - DATA STARTS IN POSITION 1
CE751I 0 C5-BASE C6-BASE C7-BASE C8-I29500 E4-BASE C9-BASE E5-I29500
CE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
CE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
CE000I 0 - CONTROL STATEMENTS FOR 5650-ZOS, Z/OS DFSORT V2R2 - 19:22 ON TUE AP

INCLUDE COND=(31,1,CH,EQ,C'P',
AND,71,2,CH,EQ,C'AA',
AND,71,2,CH,EQ,C'AB',
AND,71,2,CH,EQ,C'BA')

[Robert Sample]

How are the 2 bytes starting in column 71 going to be 'AA' AND 'AB' AND 'BA' all at the same time (which is what you indicated you wanted)? Answer: they are not, so you will never get any output records from this code.

[nicc]

Why are you posting in every forum you cn find? This one is locked as are most others.