jcl sort Splitting Files based on a condition

Posted 2020-12-13 kakaisgood

//SORT1 EXEC PGM=SORT   
//SORTIN  DD *           
02CAR                   
2370000000000000 SMPL1   
2370000000000000 SMPL2   
2370000000000000 SMPL3   
9201007160000000         
02BIKE                   
2370000000000000 SMPL4   
2370000000000000 SMPL5   
2370000000000000 SMPL6   
9201007160000000         
//SORTOF01 DD SYSOUT=*   
//SORTOF02 DD SYSOUT=*   
//SYSOUT   DD SYSOUT=*         
//SYSIN    DD *                                               
 INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,EQ,C‘0‘),PUSH=(81:3,4))
 SORT FIELDS=COPY                                             
 OUTFIL FILES=01,                                             
        INCLUDE=(81,4,CH,EQ,C‘CAR ‘,AND,1,1,CH,EQ,C‘2‘),       
        BUILD=(1,80)                                           
 OUTFIL FILES=02,                                             
        INCLUDE=(81,4,CH,EQ,C‘BIKE‘,AND,1,1,CH,EQ,C‘2‘),       
        BUILD=(1,80)                                           
/*      

 

 

Read more: http://ibmmainframes.com/about51182.html#ixzz6Qk0akaB7