SHARE
TWEET

split

a guest Apr 3rd, 2015 362 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //VIL0010D JOB UNIVER,CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID          
  2. //STEP01 EXEC PGM=SORT                                            
  3. //SYSPRINT DD SYSOUT=*                                            
  4. //SYSOUT DD SYSOUT=*                                              
  5. //SORTIN DD DSN=VIL0014.VISDARB2,DISP=SHR                        
  6. //SORTOF01 DD DSN=VIL0014.ATOI,                                  
  7. // DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,                            
  8. // SPACE=(CYL,(1,1)),                                            
  9. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)                              
  10. //SORTOF02 DD DSN=VIL0014.JTOR,                                  
  11. // DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,                            
  12. // SPACE=(CYL,(1,1)),                                            
  13. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)                              
  14. //SORTOF03 DD DSN=VIL0014.STOZ,                                  
  15. // DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,                            
  16. // SPACE=(CYL,(1,4)),                                            
  17. // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)                              
  18. //SYSIN DD *                                                      
  19.  SORT FIELDS=COPY                                                
  20.  OUTFIL FILES=01,INCLUDE=(20,20,CH,GE,C'A',AND,20,20,CH,LE,C'I')  
  21.  OUTFIL FILES=01,INCLUDE=(20,20,CH,GE,C'J',AND,20,20,CH,LE,C'R')  
  22.  OUTFIL FILES=01,INCLUDE=(20,20,CH,GE,C'S',AND,20,20,CH,LE,C'Z')
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top