SYNCSORT program examples

Examples of some of the things that you can do with Syncsort (PGM=SORT)
//SORT01  EXEC PGM=SYNCSORT                                 
//SYSOUT  DD   SYSOUT=*                                     
//SORTIN  DD   DSN=userid.TEST.INPUT.DATA,DISP=SHR          
//SORTOUT DD   SYSOUT=*                                     
//SYSIN   DD   *                                            
* EXAMPLE 1                                                 
* SORTING ON 1 FIELD. SHOWS OPTIONAL PARAMETERS             
 SORT FIELDS=(01,06,CH,A),                                  
      FILSZ=E1000,SKIPREC=3,STOPAFT=10,                     
      DYNALLOC=(3390,6)                                     
                                                            
                                                            
                                                            
                                                            
                                                            
                                                              
                                                              
                                                              
* EXAMPLE 2                                                   
* SORT. SUMMING. INCLUDING ON A CONDITION. BUILDING OUTPUT REC
 SORT FIELDS=(01,07,CH,A,     ACCOUNT NUMBER, CHARACTER       
              08,06,CH,A),    CLIENT NUMBER   CHARACTER       
              FILSZ=E1000                                     
*                                                             
 SUM  FIELDS=(16,13),           SUM STARTING IN 16, L 13      
              FORMAT=ZD                                       
*                                                             
*INCLUDE THE RECORD IF:                                       
 INCLUDE COND=(29,01,CH,EQ,C'I')        RECORD TYPE IS 'I'    
*                                                             
*                                                             
*                                                             
 OUTREC FIELDS=(01:01,28,           MOVE FIRST 28 FROM INPUT     
             29:C'  ',              PUT SPACES INTO 29, 30       
             32:C'0000000000000',        PUT 13 ZEROS  INTO 32   
             46:C'A')                    PUT 'A'       INTO 46   
                                                                 
                                                                 
                                                                 
                                                                 
                                                                 
* EXAMPLE 3                                                      
* SORT. SUM. INCLUDE. SHOWS ANDS / ORS                           
 SORT FIELDS=(03,07,CH,A,     ACCOUNT NUMBER, CHARACTER          
              10,06,CH,A),    CLIENT NUMMBER  CHARACTER          
              FILSZ=E1000                                        
*                                                                
*                                                                
*                                                                
 SUM  FIELDS=(30,13),           STARTING IN 30, L 13             
              FORMAT=ZD                                          
*                                                                    
*SORT THE RECORD ONLY IF:         (INCLUDE CONDITIONS)               
*                                                                    
 INCLUDE COND=((01,01,CH,NE,X'00'), FIRST POSITION IS NOT LOW-VALUES 
*                                                                    
       AND,                                                          
        (01,01,CH,NE,X'FF'),        FIRST POSITION IS NOT HIGH-VALUES
*                                                                    
       AND,                                                          
        (01,02,CH,EQ,C'CA'),        FIRST 2 POSITIONS = 'CA'         
*                                                                    
       AND,              PRODUCT ID     STARTS WITH 001 OR 002       
        ((10,03,CH,EQ,C'001'),OR,(10,03,CH,EQ,C'002')),              
*                                                                    
       AND,             TAX CODE      IS '0', '6', '8'               
        ((22,01,CH,EQ,C'0'),OR,(22,01,CH,EQ,C'6'),OR,                
         (22,01,CH,EQ,C'8')))